Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
-521.8 644.5 -42.28 -412.7 426.3 -506.9 -69.53 409.3 181.6 -38.49 185 229.4 -332.6 117 -30.56 -29.38 180.1 -345.1 -22.85 484.5 -291.7 -110.8 288.3 -84.38 213.8 -394.4 68.54 351.1 -532.2 513 -273.6 -88.72 254.2 -12.05 -33.97 280.7 -459.6 426.1 -165.2 14.57 46 -139.7 213.2 -187.2 -226.2 161.7 165.2 -332.4 506.8 -305.5 299.9 -406.7 108.5 242.4 -255 148.2 -92.53 75.73 -220.6 -12.77 -161.2 128.4 -41.65 364.5 -62.76 -292.9 58.97 -128.1 -21.81 330.2 -370.2 169.4 92.06 50.29 -23.21 -20.02 -134.1 -136.7 234.7 -5.092 72.14 -169.7 123.3 147.7 -245.5 -210.4 565.7 -718 472.9 260.6 -587.6
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