Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
1.28304 -4.07599 -3.83222 -0.350144 1.20135 -0.0667887 -4.21137 -0.356061 -5.96156 -0.018959 -0.180716 -2.17211 -4.2813 1.74166 3.20255 0.325122 -1.62823 2.65272 -0.407988 -4.47005 -1.95515 -3.22642 -1.26505 -1.47806 0.416235 -1.90053 -4.55881 -1.08626 2.12154 -0.288062 0.845055 -0.277039 -3.75684 0.944402 -0.39865 -4.93102 -0.973059 1.00294 0.878257 -1.96247 3.28582 1.97119 -1.5913 3.68836 -1.63803 1.47918 2.77153 2.91951 -3.74395 1.53879 -3.53341 -4.57851 0.440684 0.244912 1.97145 -5.04085 -0.383556 -4.08197 -3.06089 0.390992 2.46221 -3.32081 -0.460858 -1.77741 -1.4174 2.47161 0.819445 -4.56408 0.708549 2.13578 2.45397 2.07242 -3.14284 -1.37117 3.49141 -3.45337 -0.855516 0.655022 -2.93071 2.4823 1.64265 1.51948 1.6376 0.223778 0.672923 -1.66849 3.24127 -4.37808 -1.33124 0.342586 3.68954 0.351137 0.721155 -0.410376 1.36605 1.9079 1.63738 2.38628 0.299193 2.62286 -1.34078 3.4852 1.5913 3.76942 0.324402 1.58661 -0.258342 -0.258342 2.99772 -0.526386 1.35678 1.63522 -1.70238 -0.196345 0.619085 2.44857 -1.55574 0.77316 2.59439 1.77795 -0.502878 -2.81035 2.69761 0.681744 1.54592 2.42431 1.76803 -1.0059 2.29527 2.66626 1.15795 0.995714 1.33018 4.08608 2.60479 1.81996 -0.990341 -1.14096 -5.38397 -2.86053 -1.58579 -0.374066 2.83363 3.18841 1.00601 0.2084 0.027632 -1.14647 -1.83044 1.42046 -1.02488 -1.85487 -4.52657 1.5913 -1.17243 2.83363 0.509481 3.85775 1.32649 0.642627 1.97274 -0.929458
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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation