Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
-5.35023 1.52029 2.40685 1.36253 -1.04941 1.09941 -2.99055 1.89294 -3.24312 2.39653 1.3899 4.75337 -2.97831 -1.0237 0.919134 0.220929 2.62745 1.36277 0.849764 -1.85573 1.50643 1.56956 0.783143 -0.306824 2.9139 -1.26632 1.18175 0.838298 -0.730032 2.66121 0.501258 2.38309 0.959973 -0.175181 0.951677 -0.273281 -2.59834 0.499752 -0.953446 1.04412 -6.87404 1.36591 1.77168 -1.00023 2.10218 -0.907548 0.804679 0.969396 -2.52242 -1.71698 1.93244 1.10292 -0.192966 7.73538 1.35768 0.268611 1.28062 2.34439 -0.252467 -3.16503 0.967141 2.47492 -1.72469 -1.50114 -1.50114 2.19506 -0.491499 2.15842 -1.19208 -2.3098 -1.9928 -1.55092 1.94051 -0.197606 -3.05957 0.269526 2.71673 -2.22599 -1.49113 0.287059 -1.97051 0.6413 -2.52194 3.2453 0.290781 1.40705 -2.5699 0.127128 2.23876 1.08923 -0.115231 1.0047 -1.92447 -0.371234 -0.596311 2.41311 -0.239874 0.875979 -0.16063 2.00886 1.56247 -0.061437 -0.413995 -2.62463 -0.921161 -1.38999 -0.295255 1.60161 -0.998072 1.21332 -1.05827 -0.808376 1.91204 -4.30582 -0.877568 1.8645 1.75266 2.95797 2.22194 2.22556 2.4656 2.71532 3.28056 1.79127 0.17671 -2.89858 -2.25192 -5.83953 0.786382 -1.91074 0.531957 -0.545978 -1.4003 -1.50302 1.0079 1.35768 3.43172 -1.72594 -1.60146 -0.420479 0.54464 -0.1547 -1.26751 -2.65689 -1.58637 -0.269765 0.802504 -3.43474 0.588831 -4.09574 -5.16225 -2.01679 -6.19464 0.268611 -1.82769 -3.31666 1.0079 1.68658 0.308295 0.504595 1.786 1.75339 -1.02015 1.17658 -0.362933 0.764463 1.19308 0.688301 0.574494 0.41141 -2.54628
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