Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
1.88483 1.22192 2.10286 -4.77577 -3.5597 0.392577 3.50205 1.20006 -1.891 -3.13261 -0.17157 -5.48551 0.404247 -0.839968 -3.41356 0.932314 -0.0767137 -1.67376 -1.08529 -0.533987 1.3636 -0.641625 1.77554 0.441363 -1.46516 2.30779 2.74012 -1.0539 1.31696 -2.31046 1.10791 -1.55898 -2.72262 0.175267 -0.83055 -0.482046 2.2572 -3.2434 0.549526 -4.34165 -0.405708 1.32561 0.154179 2.19862 -1.01134 1.20798 -3.21021 2.87105 2.04906 1.45488 -2.26302 0.699436 1.58559 1.8391 -0.224938 -4.31382 3.1599 -0.792825 2.66263 -2.74341 2.04278 -2.13244 3.91382 -2.19897 -0.80106 -1.66522 0.495176 3.12968 1.51809 -0.680625 0.592094 -0.927428 3.40878 2.01437 1.36089 2.5528 1.74346 -0.121059 -2.80236 0.54836 2.86524 0.550526 -5.66745 -0.948622 0.834369 0.436364 0.641357 -1.19937 2.62584 3.38969 -3.85628 -0.325322 -0.759454 -1.85514 -0.756654 -3.30543 1.22681 4.44421 -3.05797 1.30772 -0.115211 -0.862559 3.76595 -1.61573 3.81759 -3.10527 -0.219553 1.8173 1.30684
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