Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
-5.83435 0.520857 2.01706 1.56008 -0.435736 1.5845 -2.52814 1.71658 -4.20364 1.96279 1.45397 4.11738 -3.36967 -1.5354 0.496876 -0.367061 2.58771 0.887249 0.765678 -1.9172 0.811842 0.0994056 -0.0619229 -0.832395 2.67465 -2.1701 0.819508 -0.140187 -0.159958 2.6357 -1.52884 2.09492 0.597659 0.193102 0.590058 -0.959794 -3.1729 -0.177719 -1.7751 1.24801 -7.04864 0.255649 1.7881 -0.722119 2.39788 -0.572888 0.553691 0.932192 -1.39445 -1.29741 2.56517 1.68875 -1.11895 6.69345 2.29565 0.0929099 2.36183 2.67768 0.804831 -2.7031 1.47995 3.14126 -1.39678 -0.868783 -0.868783 2.5788 -1.93308 2.21161 -0.923156 -3.46045 -1.56053 -1.34966 1.69499 0.37593 -2.68681 1.11047 3.77494 -1.13683 -0.481589 0.196616 -1.41269 -0.0409315 -2.51228 3.798 0.824082 1.72501 -2.35417 -0.0538119 2.3925 1.79739 -0.310735 1.47677 -2.01105 0.676646 -1.53968 3.09956 -1.9098 1.28972 -0.476764 2.06309 1.52847 -0.109352 -0.804591 -3.24925 -0.21182 -1.32318 -1.49469 1.9435 -1.12175 1.01981 -0.938225 0.254103 2.07022 -4.05078 -1.34169 1.35196 1.79235 3.68594 2.11515 2.47714 1.73232 2.67536 2.599 1.04955 0.17628 -3.31733 -3.60664 -6.61108 1.06116 -2.44435 -1.19159 -0.32077 -1.72546 -1.29338 1.44696 2.29565 3.26251 -1.54146 -0.614586 -0.784826 -0.271011 -0.183026 -1.01176 -2.37531 -2.05635 0.357935 1.03557 -3.50001 1.22632 -3.79077 -6.09324 -1.31671 -6.04646 0.0929099 -0.97034 -3.1224 1.44696 2.08834 0.793685 0.974958 2.03432 2.25919 -0.765007 1.54896 0.218191 0.777107 2.68224 0.612756 0.323036 1.74414 -2.08948
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