Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
0.407477 1.39884 2.45985 1.51824 -1.35788 0.966994 -1.84344 1.60045 -3.69478 2.16643 1.82588 4.70701 -2.65597 -0.857785 1.09633 0.883856 2.81284 1.26991 0.665021 -1.65735 1.40084 1.45506 0.728891 6.79174e-06 2.97147 -1.18045 1.34422 1.29748 -0.800076 2.33736 -0.0300339 2.78192 0.947053 -0.308442 0.597977 -0.427582 -2.94975 0.267412 -0.305597 1.41881 -6.88766 0.917018 2.00047 -0.597869 2.28878 -0.847732 0.587874 1.02882 -2.0883 -1.66836 1.32817 2.1166 -0.798143 7.6876 0.993124 0.243607 1.41495 2.16079 0.26422 -3.14801 1.29287 2.29232 -2.15386 -1.10527 -1.10527 2.1331 -0.831098 2.48006 -1.51383 -2.37116 -2.28578 -1.58171 2.19619 -0.264699 -3.34977 0.157621 2.67737 -2.43595 -1.83807 0.373219 -1.94852 0.367665 -2.65548 3.24677 0.237918 1.77238 -2.35353 0.360279 2.15065 0.887959 0.0167948 1.10867 -2.1897 0.0172276 -0.743422 2.32126 -0.174769 0.881587 -0.00973062 2.21173 1.68973 -0.48507 -0.582208 -2.62052 -0.0474983 -1.28329 -0.309158 1.61406 -1.06988 1.22716 -1.21922 -0.459462 2.33369 -4.15337 -1.01106 1.60876 1.84029 3.02466 2.18774 2.39003 2.14432 2.72879 3.07559 1.69311 0.0484295 -3.13146 -2.45142 -5.96186 0.655895 -1.6498 0.563591 -0.610965 -1.45069 -1.26053 0.865016 0.993124 3.14686 -1.67119 -1.16328 -0.683087 0.407477 -0.24447 -1.25359 -2.79524 -1.62338 0.0275217 0.599323 -3.69329 0.796115 -4.34079 -4.91634 -2.59076 -6.47706 0.243607 -2.04116 -3.15911 0.865016 2.0016 0.505922 0.846807 1.48766 1.52583 -1.28513 0.991614 -0.406582 0.881802 1.59426 0.452082 0.426796 0.553659 -2.41551
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