Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
0.00723633314239409 0.00526148350633816 0.032297276963504 0.0438493712369061 0.0406193149478766 0.0225399256792365 0.0429050485636863 -0.0652636134357437 0.0667612429822045 -0.0230935494225914 0.123984742434245 -0.0161838864929552 0.0481525953811686 0.061584323346605 -0.0553711019502459 0.0162828132943874 0.149215740428984 0.0122889345666841 -0.0601851570696218 -0.0960878345863387 0.0533290579404104 0.00186353976031847 0.0146520792014924 0.00408386391004033 0.0618679442222754 -0.0451005090675352 -0.0839348576295127 0.149432899514918 -0.0693510793466955 -0.0265099690976529 0.0026560023164063 0.0035332991044759 0.0489459105309277 0.0110512572857078 0.0390935492208456 -0.11041873165271
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