Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
317402 310184 315463 318505 314563 311117 306333 302178 300655 323998 326212 312417 307031 304043 308136 320973 319482 313360 309036 304375 306248 330736 335366 323054 319095 317652 321330 332513 329035 326163 324009 319993 321098 347849 351119 341654 337059 334885 339930 350924 346186 341880 336529 329220 328200 350784 352606 342592 336988 332114 334011 340002 336267 330856 320052 312158 313310 330764 331936 319531 313927
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