Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
-4.84007 0.823207 1.34075 1.77579 -0.331453 1.39848 -1.00555 1.6881 -3.09575 2.50918 0.845918 3.63996 -2.99757 -1.01354 0.416632 -1.10793 1.36561 0.907072 0.218848 -1.04042 1.3347 -0.333169 0.461807 -0.950616 2.77823 -3.55346 0.472766 -0.0944869 -0.00344538 1.74655 -2.07521 1.38399 0.451083 0.617575 -1.668 -0.297765 -2.77541 1.13202 -5.94243 0.508139 1.22255 0.281204 2.56787 -0.0440416 1.14769 1.71581 -0.676116 -0.968854 2.40985 1.22089 -0.913893 4.34049 2.05435 0.477562 1.46727 2.26834 0.382109 -2.37195 0.674201 2.50457 -0.807056 0.138655 0.138655 1.88823 -1.64594 2.00015 -0.923692 -2.95483 -1.83055 -0.75578 1.64744 -0.601272 -4.01812 0.428937 3.25965 -1.62773 -0.0864379 -0.167192 0.20408 0.384178 -2.45469 2.30282 1.30954 1.64274 -2.72508 -0.495409 2.34206 0.739062 1.24083 1.55078 -1.55864 0.583494 -2.16215 2.93142 -1.95026 2.32232 0.916592 0.608463 1.15806 -0.348586 -2.65163 -0.117431 -0.543592 -1.47231 1.39863 1.51531 0.439926 0.119215 1.08717 -2.89389 -0.463462 -0.398125 2.21135 2.32223 0.782051 3.12529 1.51713 1.6349 1.6483 0.82678 0.866804 -3.011 -2.19369 -5.51709 0.614788 -3.12961 -1.37385 -1.54785 -1.61916 -2.77023 1.24319 2.05435 -0.174897 0.406264 -0.454424 -1.69543 -1.15817 -1.71273 -2.99068 -2.31425 1.60577 1.02911 -2.89106 1.43103 -3.2089 -5.66698 -0.875543 -6.51831 0.477562 0.607921 -2.04468 1.24319 1.41981 0.739257 1.55959 0.20936 2.21684 0.136969 2.76693 -0.251307 0.58592 2.115 0.566113 0.986065 1.80614 -0.730779
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