Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
484.00 64.00 625.00 841.00 196.00 100.00 144.00 289.00 961.00 1024.00 196.00 81.00 441.00 36.00 100.00 9.00 36.00 676.00 4.00 9.00 841.00 441.00 289.00 441.00 324.00 784.00 4.00 841.00 144.00 256.00 576.00 1225.00 196.00 400.00 169.00 49.00 841.00 36.00 625.00 441.00 121.00 25.00 9.00 676.00 400.00 100.00 1225.00 1156.00 9.00 289.00 1.00 841.00 1156.00 36.00 784.00 49.00 36.00 4.00 529.00 484.00 64.00 729.00 169.00 16.00 441.00 1.00 100.00 1089.00 196.00 961.00 144.00 64.00 144.00 529.00 324.00 841.00 1.00 1156.00 100.00 169.00 484.00 64.00 100.00 1156.00 144.00 324.00 625.00 441.00 729.00 900.00 36.00 81.00 625.00 256.00 1156.00 841.00 361.00 400.00 16.00 784.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