Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
-499375000000008.00 -475089285714286.00 -353660714285715.00 -932232142857142.00 -1339375.00 -107223214285714.00 -100366071428571.00 -0.908035714285717 234910714285715.00 167767857142857.00 -235089285714286.00 0.90625000000001 938988095238099.00 553273809523811.00 0.347023809523805 296130952380952.00 278988095238095.00 -213869047619047.00 0.847023809523821 297559523809524.00 -536726190476191.00 -673869047619047.00 -606726190476191.00 -101011904761905.00 -87264880952381.00 -498363095238095.00 -806934523809524.00 -845505952380952.00 -94264880952381.00 -955505952380953.00 -506934523809524.00 -584077380952381.00 541636904761904.00 162449404761905.00 280163690476191.00 268735119047619.00 303571428571429.00 34.1 375142857142857.00 390285714285714.00 568571428571429.00 634285714285714.00 641142857142857.00 439428571428572.00 29.4 -267142857142857.00 -25.2 -388428571428571.00 -350592261904762.00 -385163690476191.00 -402020833333333.00 -419877976190476.00 -328592261904762.00 -238877976190476.00 -313020833333333.00 -199735119047619.00 -20616369047619.00 -978779761904761.00 -541636904761905.00 -72592261904762.00 -177559523809523.00 -65327380952381.00 -761845238095238.00 -700416666666666.00 -181755952380953.00 -237041666666667.00 -258184523809524.00 -216898809523809.00 -177327380952381.00 -710416666666668.00 -333273809523809.00 532440476190475.00 108080357142857.00 151508928571429.00 215651785714286.00 247794642857143.00 142080357142857.00 657946428571428.00 726517857142858.00 149375.00 655089285714286.00 837946428571428.00 143508928571429.00 140080357142857.00
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