Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
2.00831 -2.90669 1.08835 2.70945 -1.01678 -1.03745 -1.71604 -1.02738 -2.18365 -0.152015 -2.45733 -0.691576 -0.950445 -1.56835 -1.68155 3.25206 0.824221 -2.97933 -1.89336 -2.3533 -0.869507 0.604271 0.669561 0.235465 0.0574771 3.14591 4.30688 0.580806 -0.651923 0.565181 1.67831 1.04261 2.03533 -0.584554 1.16399 -3.04765 -5.36237 -0.0708078 2.51984 1.31727 1.96629 -1.67605 -2.58936 -0.107505 -1.59798 -0.206368 1.31042 1.08183 2.59119 1.64867 2.28826 2.99323 2.08905 -0.761382 0.512838 -0.254559 -1.18241 -4.94026 2.23085
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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation