Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
101 100 100 100 100 100 100 101 99 100 99 101 102 100 103 100 99 102 101 102 99 98 101 100 101 102 99 101 99 103 100 101 102 101 100 99 100 101 101 101 101 101 99 100 100 102 99 100 98 98 101 101 101 100 100 100 103 101 104 100 100 100 100 99 100 100 101 101 100 101 99 102 99 97 100 101 100 100 100 102 100 99 99 99 98 100 101 100 101 100 99 98 101 100 101 100 100 101 100 99 101 99 99 100 99 100 101 100 100 100 102 100 100 105 100 99 100 99 100 100 99 99 103 101 100 100 101 100 100 101 99 99 99 102 100 101 101 98 99
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