Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
-420.3 102.7 264.1 -206 -52.29 -155.3 -206.7 77.53 625.8 403.3 235.8 331.9 -228.5 -6.156 -38.23 103.2 147.9 44.31 -266.9 330 188.3 -148.2 -29.15 78.47 200.9 -131.3 -220.4 267.1 -109.4 52.99 -320.3 77.6 -95.51 139.9 -14.38 48.93 -215.3 169.4 -329.6 5.414 110.6 -139.2 245.4 -32.79 -140 -222 130.4 -238.2 419.6 -248.5 440 -287 -125.5 1.584 319.8 -100.5 -77.48 149.7 -152.6 -129.5 -275.8 -235.9 -11.72 301.8 310.2 -93.95 -230.6 -215.1 -30.17 215.1 -69.67 59.69 -59.59 219.5 213.1 -197.1 -366.8 -102.4 -57.51 109.2 64.85 -150.6 0.6003 217.8 -166.6 -268.3 118.1 -166.3 67.5 303.5 -128.1
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