Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
1146 278 108 78 42 35 43 45 27 47 26 29 53 24 43 54 66 94 120 156 180 182 222 170 194 210 226 202 213 251 258 274 253 290 281 313 323 374 397 451 510 555 577 685 743 810 930 1075 1125 1239 1372 1549 1658 1920 2015 2276 2260 2637 2655 2950 3120 3290 3469 3635 3835 4157 4315 4351 4244 4309 4266 4492 4973 5747 6354 6541 7035 7684 8338 9352 10097 11189 11542 12090 12313 12717 13240 13270 13161 12810 11963 10756 9163 6601 4552 3368 3035 2686 2261 1699 1186 795 527 319 178 232
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