Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
30 34 36 37 30 35 30 31 37 32 30 30 35 30 32 35 30 29 35 30 31 31 31 30 31 30 34 34 31 30 23 30 32 30 36 28 29 36 34 37 30 30 27 32 39 31 31 30 30 29 29 35 27 33 30 19 36 30 37 30 29 33 30 30 26 36 30 30 32 21 31 30 33 29 35 43 30 31 31 30 30 35 36 33 31 28 32 20 30 27 30 29 29 22 30 30 26 28 30 30 31 25 30 19 2 32 24 31 30 4 1 4 0 0
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