Wessa.net

Send output to:


Data:
777.515 -149.351 164.173 182.104 -209.795 324.778 -145.883 43.353 194.123 15.228 0.500914 116.554 0.833391 -273.682 -0.411285 -298.507 43.786 -18.121 0.366955 -196.689 -147.678 -228.037 -356.621 168.472 125.273 -176.493 -315.821 -0.569257 -391.229 16.923 -319.868 18.125 180.082 0.294529 -456.566 -120.608 -0.613072 138.735 0.245001 -0.244272 -308.962 -192.195 -1.275 -224.218 -119.745 381.848 402.446 0.873424 102.278 -318.671 313.649 185.516


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')

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