Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
0.344458 -5.95369 0.889461 1.53271 0.373213 -0.815227 1.44291 -0.593158 5.01444 2.15317 1.37914 1.26048 -1.68808 3.14715 -3.49418 1.76747 2.75965 1.0935 -1.06058 -0.589706 4.57721 1.77959 3.03716 -3.77642 0.716139 0.317126 0.19433 2.1594 0.698934 3.35867 1.26806 1.94273 0.938137 2.63993 2.26708 -3.84147 -5.77707 3.00345 -0.387582 -3.35213 0.551683 -1.61873 2.45144 3.22013 3.22137 -6.47215 2.2987 0.83165 -6.25337 -0.455332 0.223897 -0.887083 2.62706 4.74708 4.84834 0.0733768 1.70916 -0.856269 -3.50426 2.54671 0.745635 -2.82759 -4.48906 2.74829 -2.08642 -1.60044 -0.362111 0.0433215 -0.383171 2.02085 3.12185 0.311614 -3.23928 -5.39291 -5.78552 1.77617 -1.10927 0.700835 1.10939 2.17873 0.44968 -0.666967 2.50019 -1.28199 2.57218 1.91863 1.88294 -4.00429 -2.02241 -1.62702 -1.846 -1.231 4.44218 0.887439 -0.753728 1.58556 0.72608 -2.06118 -5.19678 -4.25357 2.00586 1.72947 -2.59785 3.9298 -1.4915 2.15261 -4.05149 0.300593 -2.25569 -2.96188 0.82963 -7.12022
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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation