Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
3.59954721 0.04238554 -2.81307431 -1.22439409 -2.60493705 -1.12063322 0.78457483 -2.63132972 -1.00729584 1.91660041 4.01771088 -0.08323368 -0.36351422 1.37332165 -3.4313958 0.78524813 0.78826526 1.33230189 2.06724768 -6.91844089 -3.4061436 -4.46767131 -8.65160446 -1.57721066 -1.12578031 1.52417663 5.26038156 5.16049345 -2.12120079 -5.66164291 -4.55566816 4.48097758 4.01455406 3.18792001 1.70293029 0.26449855 3.45663965 -2.28781022 -6.24314264 4.72755313 3.80538479 5.34962762 -0.40937922 8.23589769 3.17749882 -2.31669705 4.62988865 -6.93873033 -4.23410743 -3.95416054 3.15483735 4.48483132 -3.93480588 -3.82846083 1.37872099 0.75358492 0.73812514 5.32867038 7.86878864 3.56877219 -1.88841602 2.83447464 1.32609905 1.52466813 5.68476555 1.52821666 -2.67388034 -2.5408683 -9.82054212 1.56062769 -3.85432832 5.10421924 -4.90526386 -5.32496036 4.93205428 6.02364807 -0.41092927 1.60134902 -3.85158793 -4.36134447 -4.00596907 -2.9970532
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