Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
12.2998 -3.36798 -8.73993 1.15382 -6.38302 -0.121549 2.41258 -2.59552 -8.80525 4.76771 -5.83785 -5.15151 1.41472 2.50822 7.63514 -2.45274 -0.456028 -3.04996 -0.814259 2.87446 -2.25812 -2.41832 1.73996 0.835386 3.12178 -2.35137 -1.46776 -1.07345 -1.82633 -3.60804 -5.09129 3.09927 1.43811 -7.02756 3.21596 0.157 0.525684 4.31814 -2.78742 -4.49541 10.7845 -4.08629 0.981503 -0.328436 3.42497 -0.340546 3.77298 -1.69787 4.55953 -6.6778 -9.57039 2.87537 -1.31612 2.76001 4.89552 5.97635 1.41719 -0.152886 -0.379436 0.429777 7.75665 -0.786936 -0.0989647 0.410126 3.24935 7.30269 -6.48253 2.29139 6.99086 -0.241292 0.606285 -11.0233 1.66563 1.13457 5.51513 2.63378 3.51926 7.50855 3.4812 -0.921707 6.93793 -6.50771 -5.47976 0.666604 0.0389107 5.31846 -4.282 -4.69494 0.373445 -5.48053 2.80857 -0.761832 1.63041 -7.9603 1.00712 -2.23402 -3.0011 3.17856 -1.92517 -9.17432 -9.4294 7.34251 -0.676389 1.44551 -2.88754 1.55706 2.83647 6.17771
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