Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
129404 130358 7215 112861 219904 397355 117604 126737 99729 256310 113066 157228 69952 152673 130642 125769 123467 56232 108330 22762 48554 182081 140857 93773 133398 113933 153851 140711 303804 161651 123344 157640 91279 189374 178768 0 175403 92342 100023 178277 145062 110980 86039 125481 95535 126456 61554 164752 159121 129362 48188 95461 229864 191094 150640 111388 165098 63205 109102 137303 125304 85332 95808 83419 101723 94982 129700 113325 81518 31970 192268 91086 80820 83261 116290 56544 116173 111488 60138 73422 67751 213351 51185 97181 45100 115801 186310 71960 80105 103613 98707 136234 136781 105863 38775 179997 169406 19349 153069 109510 43803 47062 110845 92517 58660 27676 98550 43646 0 67312 57359 104330 70369 65494 3616 0 143931 117946 131175 84336 43410 136250 79015 92937 57586 19764 105757 97213 113402 11796 7627 121085 6836 139563 5118 40248 0 95079 80763 7131 4194 60378 109173 83484
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