Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
-31.0980235 -59.82069243 -83.54046372 -76.68373905 -55.77257036 -29.6238004 -403.2438048 -416.7823955 -213.421553 371.5667217 165.9832759 542.6202623 295.0272171 -21.11902782 437.4008577 365.2948005 67.93063266 -247.7888563 545.0980747 -296.7736209 352.4776174 283.7982001 -273.3158756 446.0622246 -214.7278196 -60.42061989 372.1559273 99.25913817 318.4243399 125.2778341 -327.8536836 -432.9707946 442.1391593 14.35498565 299.0405338 88.23651949 -180.5370992 201.9851728 193.5368814 -313.092895 -152.7485726 299.9826242 42.48114217 133.8422785 -129.8300651 -699.3737309 171.5633824 -24.53844347 116.3631648 -218.1543085 -257.1025414 98.61247817 -190.7422418 198.4227075 -145.26734 611.5170714 56.05225984 -117.514343 -3.714995217 296.9903895 360.6100073 61.63192359 -746.5795309
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