Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
2.44321 -2.61362 1.27669 1.40126 -4.04734 -3.70408 -1.04518 3.24097 2.15247 0.315385 -4.43832 -0.631666 -5.94849 0.310547 -0.0179496 -1.33297 -0.073934 -1.55528 -0.868318 -4.54868 2.39574 -1.47736 2.79157 0.458269 -2.82859 -0.594331 0.0978977 -2.49445 -0.471316 -4.68597 -1.84496 -2.76344 -0.56307 -0.576755 -0.734949 -1.83912 -1.22633 -4.23778 -0.814293 1.99965 -0.672755 -0.954424 0.299413 3.36479 -1.19412 1.38744 -1.61865 3.36164 -1.71675 1.24674 -2.9613 3.07979 -1.27357 -1.45556 0.688511 2.38533 0.0746806 0.748565 -3.6506 0.913928 0.728284 0.298679 -3.02502 -3.46569 2.00448 2.1365 2.39962 -3.09901 3.82244 -0.410077 3.85776 0.371919 4.70766 -2.61644 -0.496747 0.76727 -1.06381 2.22215 1.73583 -0.0662374 2.19447 0.976277 1.50086 -0.578253 3.44396 -3.05148 0.480758 -0.373989 3.25145 0.590297 1.09474 1.54734 1.17212 2.15462 0.0223139 -0.629747 1.10952 -3.61595 1.14292 -5.3616 2.63646 1.64095 -0.255053 2.75212 2.33286 1.74025 5.12139 -0.57938 -0.57938 -0.00947375 1.80922 -2.15882 1.80037 -2.67446 2.07967 -0.0885219 -0.309651 -1.33232 1.55178 -1.61828 -0.1891 -0.3709 1.43865 2.16146 1.05055 1.30309 1.11451 2.5961 1.34008 3.08327 2.17635 3.36137 2.15862 -1.34784 -0.758253 -4.27481 -2.42213 -0.466902 -1.07685 3.22853 0.445504 0.496056 -0.543513 -1.10907 -1.87356 -1.52076 -1.45846 -5.43577 2.19566
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