Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
0.460317 -5 4 1 6 7 -0.539683 5 -2 -12 -0.0816327 6 -1 4 2 -0.0816327 -2 1 2 -3 -0.0816327 5 -0.539683 -3 -6 -0.539683 6 -3 1 7 7 -1 -0.0816327 -0.0816327 -3 -3 -3 -4 0.460317 -8 0.918367 -4 3 5 -3 -3 2 -3 -7 -8 -7 -2 -2 -0.539683 -3 -5 0.918367 -4 2 -3 -1 6 -0.539683 2 -3 -2 2 6 5 3 -2 5 -2 3 4 -4 0.460317 -6 2 -1 3 -0.0816327 -4 -2 -5 -0.539683 4 0.918367 -4 3 2 2 -4 5 -3 0.918367 -4 0.918367 8 0.918367 -2 -6 2 1 7 5 3 -1 -0.539683 1 -3 -3 0.918367 3 3 -2 3 5 0.918367 -4 4 7 2 5 -6 -7 6 5 -1 -3 -4 4 -0.539683 -0.539683 -5 5 -4 -6 3 0.460317 -6 -2 -5 1 0.460317 4 3 1 -9 -4 3 7 -8 4 0.460317 4 -0.0816327 -8 4 2 -0.539683 -2 -3 -7 -8 -0.0816327 -0.539683 -2 -6 -3 -6 -11 0.460317 -2 7 4 0.918367 5 -2 -7 1 3 5 1 -2 6 2 0.460317 5 0.918367 -5 0.460317 4 -3 -0.0816327 2 0.460317 -3 3 1 -3 -2 -6 -0.0816327 -2 -4 0.460317 0.460317 -7 -4 -0.539683 4 5 1 -0.539683 3 4 2 5 -1 -1 3 -7 -3
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