Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
85.2 83.0 87.9 86.4 100.0 94.4 90.7 88.5 82.5 88.6 83.6 90.9 91.6 101.8 96.4 92.8 96.4 97.5 89.6 100.5 95.9 98.8 76.4 80.0 76.3 79.7 74.6 88.7 73.9 83.5 88.7 84.5 79.1 100.5 115.6 113.1 100.9 98.8 148.1 108.1 126.2 104.3 111.2 104.3 76.0 81.5 73.7 79.5 83.4 70.4 86.7 77.9 82.0 79.6 77.6 100.0 99.8 104.2 105.3 98.3 104.8 94.7 102.4 99.7 105.5 100.3 83.9 86.6 78.4 84.6 91.5 82.8 82.9 76.0 83.3 81.8 78.8 95.0 95.4 98.6 95.8 89.0 97.8 94.9 99.8 89.7 88.1 90.9 86.0 86.5 95.6 93.2 83.1 97.5 88.8 99.2 91.6 86.7 88.2 94.0 95.0 92.0 89.2 95.5 98.6 87.3 102.8 101.6 88.7 92.3 90.6 105.0 95.0 89.6 92.4 86.6 90.0 90.0 92.4 87.5 99.2 98.1 83.3 86.1 84.1 89.9 92.1 78.0 93.5 87.0 90.1 90.3 99.8 89.4 87.2 101.1 86.1 98.6 88.5 106.6 93.1 93.0 91.0 77.1 85.3 81.9 99.1 100.5 76.5 106.8 77.6 102.9 72.8 88.2 100.1 83.5 105.0 90.8 76.6 92.4 81.2 95.6 92.1 83.4 106.0 95.1 90.4 100.4 115.9 90.8 81.9 75.0 90.3 90.3 108.8 79.4 83.2 110.3 92.7 104.5 104.6 69.4 83.6 86.8 90.4 83.7 109.3 98.9 98.0 101.2 80.6 113.7 94.1 105.7 85.6 96.6 86.0 89.7 78.0 89.7 89.2 85.7 103.1 89.1 113.9 96.3 93.9 101.3 83.9 84.4 79.4 104.0 89.7 97.6 87.6 122.1 81.1 81.5 100.0 88.7 91.8 110.4 87.6 82.8 95.3 78.2 91.1 96.7 89.4 93.0 86.4 96.7 88.1 94.9 93.3 95.6 98.2 113.8 82.8 100.5 79.7 118.0 109.0 113.4 106.1 84.3 107.6 83.6 105.0 111.5 101.3 108.5
R Code
library(moments) agostino <- agostino.test(x) anscombe <- anscombe.test(x) geary <- geary(x) jarque <- jarque.test(x) load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Skewness and Kurtosis Test',1,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,paste('<pre>',RC.texteval('agostino'),'</pre>',sep='')) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,paste('<pre>',RC.texteval('anscombe'),'</pre>',sep='')) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,paste('<pre>',RC.texteval('jarque'),'</pre>',sep='')) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,paste('<pre>',RC.texteval('geary'),'</pre>',sep='')) a<-table.row.end(a) a<-table.end(a) table.save(a,file='mytable.tab')
Compute
Summary of computational transaction
Raw Input
view raw input (R code)
Raw Output
view raw output of R engine
Computing time
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation