Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
2.54139 0.841751 3.6983 -3.14364 1.7639 -8.58455 2.15901 1.5652 -0.155532 -2.48285 1.11913 -6.26392 -0.573668 0.624946 -0.442327 -2.58525 -0.997612 2.56874 0.0527845 -3.12457 2.25731 2.67731 4.4522 -12.0088 9.27004 2.11054 1.82696 -2.40911 -1.88395 1.39652 4.24562 -2.98489 2.35025 0.00610934 -8.41967 -6.58672 1.06447 7.62567 1.86182 1.82612 2.88709 3.13301 -2.73939 4.39868 -5.78886 -2.06685 -2.49025 3.94411 1.93419 -3.6394 -2.1005 -0.0548356 -3.20824 5.90262 3.13769 -7.12821 -10.384 7.97103 6.74384 4.67721 3.9073 -2.04575 1.08726 -0.573274 0.0124482 -2.11033 -4.03736 0.674096 6.97868 0.527539 1.6867 -4.19486 7.17078 -1.99439 3.05796 1.46399 -6.32714 2.90479 3.66065 -6.35767 3.6327 -0.945759 -7.78368 2.15204 -4.22697 3.71987 5.90346 -0.351871 0.239184 -0.197876 -0.940684 4.79944 -2.05372 1.51668 5.20679 2.38885 2.91937 -0.0584591 -0.00640817 0.548254 -4.03176 -0.87454 -7.09334 -9.93603 -0.360056 -0.426711 0.516472 -2.13465
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