Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
-1.97501 3.28234 -0.85699 -0.209592 -1.63587 -1.90418 -0.534087 -2.40851 -3.18999 -8.32044 -3.21012 -2.33688 -6.51662 -3.78328 -4.55629 -4.25768 -6.63345 -2.58025 1.15501 -1.63971 3.44805 0.477897 1.49641 -1.71834 0.310933 -1.39735 4.44804 2.26219 3.93165 -1.12638 5.52174 0.636516 0.0374935 -1.15944 1.11035 3.70351 0.8673 4.87645 2.50049 -1.08665 -0.232926 2.5642 0.150539 2.43128 3.66325 -0.559198 -1.5286 -1.5055 -2.01284 2.12894 -3.96535 4.64984 0.00492432 1.24106 0.432189 1.5778 1.46032 -1.69742 2.53523 2.28736 -1.80463 6.02771 3.13887 -2.68558 -1.38867 4.27311 -1.18692 1.26397 -4.49502 1.21558 1.79721 -1.26571 -2.98754 -0.782106 -1.29653 1.54323 5.28524 -4.29999 1.57818 2.11868 5.67838 3.15768 -4.46022 -1.7432 -5.49295 -2.73099 -0.892859 -2.48069 1.24577 3.24644 -1.52078 0.81486 2.44111 2.5891 -2.62064 2.59135 -2.01432 1.77106 3.16565 1.50541 3.0818 -4.03543
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