Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
126346 125966 126296 127306 127042 126903 126276 125939 125713 128183 128434 126719 126536 126549 126901 129473 129173 128363 127544 127000 126527 129445 129138 127610 127855 128037 127843 127194 127490 128000 128625 129049 130198 134112 134767 134523 135427 136478 138613 141444 141208 141436 141311 140874 141740 144939 145041 143762 144331 144470 145283 149654 151019 152125 150527 148389 149055 151058 150818 146338 145738
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