Wessa.net

Send output to:


Data:
7.5 6.0 6.5 1.0 1.0 5.5 8.5 6.5 4.5 2.0 5.0 0.5 5.0 5.0 2.5 5.0 5.5 3.5 3.0 4.0 0.5 6.5 4.5 7.5 5.5 4.0 7.5 7.0 4.0 5.5 2.5 5.5 3.5 2.5 4.5 4.5 4.5 6.0 2.5 5.0 0.0 5.0 6.5 5.0 6.0 4.5 5.5 1.0 7.5 6.0 5.0 1.0 5.0 6.5 7.0 4.5 0.0 8.5 3.5 7.5 3.5 6.0 1.5 9.0 3.5 3.5 4.0 6.5 7.5 6.0 5.0 5.5 3.5 7.5 6.5 6.5 6.5 7.0 3.5 1.5 4.0 7.5 4.5 0.0 3.5 5.5 5.0 4.5 2.5 7.5 7.0 0.0 4.5 3.0 1.5 3.5 2.5 5.5 8.0 1.0 5.0 4.5 3.0 3.0 8.0 2.5 7.0 0.0 1.0 3.5 5.5 5.5 0.5 7.5 9 9.5 8.5 7 8 10 7 8.5 9 9.5 4 6 8 5.5 9.5 7.5 7 7.5 8 7 7 6 10 2.5 9 8 6 8.5 6 9 8 9 5.5 7 5.5 9 2 8.5 9 8.5 9 7.5 10 9 7.5 6 10.5 8.5 8 10 10.5 6.5 9.5 8.5 7.5 5 8 10 7 7.5 7.5 9.5 6 10 7 3 6 7 10 7 3.5 8 10 5.5 6 6.5 6.5 8.5 4 9.5 8 8.5 5.5 7 9 8 10 8 6 8 5 9 4.5 8.5 9.5 8.5 7.5 7.5 5 7 8 5.5 8.5 9.5 7 8 8.5 3.5 6.5 6.5 10.5 8.5 8 10 10 9.5 9 10 7.5 4.5 4.5 0.5 6.5 4.5 5.5 5 6 4 8 10.5 6.5 8 8.5 5.5 7 5 3.5 5 9 8.5 5 9.5 3 1.5 6 0.5 6.5 7.5 4.5 8 9 7.5 8.5 7 9.5 6.5 9.5 6 8 9.5 8 8 9 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')

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