Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
NA NA NA NA NA NA 17.75694444 -10.5625 -10.40277778 -24.45138889 7.798611111 56.28472222 2.743055556 -26.97222222 -5.948611111 -13.34861111 5.718055556 -13.86527778 53.75694444 3.3125 30.80555556 -3.409722222 -22.11805556 -38.67361111 -5.215277778 7.194444444 -0.781944444 16.06805556 -14.44861111 27.13472222 3.715277778 3.854166667 -5.944444444 2.881944444 -17.57638889 -7.215277778 -5.965277778 -4.847222222 -11.49027778 -5.806944444 1.176388889 22.38472222 -27.86805556 26.3125 -5.777777778 6.840277778 3.298611111 0.659722222 29.03472222 22.52777778 18.55138889 8.193055556 2.968055556 -25.07361111 -30.65972222 -19.5625 -3.069444444 6.381944444 20.92361111 4.951388889 -18.67361111 2.444444444 1.718055556 -3.056944444 6.634722222 -8.531944444 -14.24305556 -0.895833333 -3.152777778 14.21527778 10.13194444 -13.54861111 0.534722222 2.111111111 NA NA NA NA NA NA
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