Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
0.00 0.24 0.87 -0.70 -0.76 10930672251612.00 -0.08 0.29 -0.70 -0.78 -0.16 0.75 0.86 -0.62 0.01 0.91 -0.66 -0.46 0.58 -0.48 -161185243937049.00 0.33 1.00 0.70 -164197256209659.00 122700705507484.00 0.41 0.26 -0.66 0.30 0.45 -115332511220963.00 0.96 0.40 0.63 -159436054642384.00 -0.02 0.40 0.85 -0.08 12818210519783.00 -0.48 -133131801079985.00 -365487911756718.00 -0.55 -203132739035969.00 0.99 148547035898322.00 258600276209511.00 0.33 0.71 0.10 0.69 0.67 -216927188186462.00 0.87 -104761496502711.00 0.96 0.11 -100182149850508.00 0.46 -0.47 0.82 0.43 -20306648521777.00 0.39 0.46 0.28 -0.05 0.78 -0.10 0.32 -0.40 0.24 0.96 -0.19 -251701659938666.00 -0.06 0.96 -108361007055046.00 0.79 -0.02 0.90 -0.64
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