Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
1.16085 2.51209 2.25655 -4.40015 -2.94585 -0.756524 2.7195 2.1541 -1.45122 -3.08911 -0.998573 -4.42949 1.20911 -1.22191 -3.25737 0.730284 -0.100121 -0.924133 -2.09647 1.09102 1.8769 -0.0397394 -0.126022 -1.05052 2.08833 1.89561 -0.580717 1.26243 -1.00983 1.12046 -1.59733 -2.73112 0.00793088 -0.155684 -0.0654249 1.61797 -2.76686 0.067343 -3.55663 0.302895 2.98114 0.157188 3.3209 -1.29816 1.84412 -2.8116 3.10218 2.62924 0.717077 -2.2379 1.48566 1.12239 2.87617 -0.013942 -4.8702 3.71548 -0.803933 2.11503 -2.36412 2.33706 -1.5745 3.44978 -1.14656 -0.658341 -1.42941 0.938925 2.50971 1.64797 -0.300007 1.15569 2.83339 1.36396 0.309699 1.54175 1.30022 -0.369096 -1.88715 -0.437025 2.51409 -0.114875 -4.7274 -1.63109 0.00406303 0.403099 0.471862 -2.20643 2.87352 2.61814 -3.34894 -0.604305 -1.3926 -2.15336 -0.678212 -3.639 2.05498 4.07254 -2.60589 0.877642 -1.02896 -1.048 3.41874 -2.98196 2.92299 -3.07667 -0.692508 0.247301 1.47584
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