Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
-1.24419 -4.88718 -0.490945 -1.06096 -5.36602 -7.0784 0.0109581 2.76842 -1.32718 -0.165241 -6.22745 -1.18352 -6.42614 -1.20752 -0.947302 -6.02698 -1.16283 -3.28201 -1.9326 -6.60769 0.718001 -1.86342 1.27168 -1.12953 -2.01122 -2.84157 -1.06147 -4.28968 -2.04517 -6.62058 -3.08226 -3.48847 -1.75628 -2.96096 -2.8161 -3.99483 -0.866192 -8.11894 -2.4253 -0.0973222 -1.61189 -1.36344 -2.01086 0.422831 -2.56833 -0.20309 -3.2608 1.27284 -4.29449 -0.177927 -4.79323 2.3006 -3.9465 -0.827154 -0.152985 1.33331 -0.939047 -1.55621 -5.55347 -0.105781 0.0578376 0.0849968 -4.87649 -9.48533 -0.696666 4.78925 5.54093 3.19797 6.11705 3.33417 -0.0518329 4.08728 2.54109 -2.10681 -0.086689 2.95521 0.629497 0.701727 1.34989 3.66394 1.6906 2.34252 -1.59601 -0.02425 4.15463 -4.67904 5.60757 1.54829 4.41975 2.9667 4.9664 2.25106 3.01281 3.34552 -0.495234 -1.68141 0.399273 1.16896 4.71519 -2.74168 2.53148 4.79416 3.30913 5.76483 2.19268 3.42699 2.47067 1.70197 1.9171 -0.701076 5.67777 -5.11897 5.11584 1.81735 4.0105 0.574013 0.987892 -3.313 1.80108 -0.455804 3.67362 -1.29397 -0.926348 5.39551 5.82035 -1.29497 2.67097 6.90898 4.03103 5.88712 5.9298 5.36353 5.17222 0.174608 -4.18691 -8.74799 0.935582 -3.41513 0.194321 4.05321 4.54415 0.769981 3.5866 0.122622 -0.77787 -1.53279 0.100308 -4.29024 0.868474
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