Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
-5.82196 0.534479 1.99646 1.53766 -0.399349 1.58727 -2.54631 1.7247 -4.15502 1.95038 1.44158 4.11777 -3.37315 -1.55247 0.477489 -0.326913 2.59009 0.875057 0.74565 -1.90779 0.818798 0.101503 -0.0665522 -0.827666 2.65586 -2.16577 0.814738 -0.12952 -0.152113 2.61391 -1.52865 2.08156 0.196446 0.587123 -0.96812 -0.180312 -1.80792 1.21824 -7.07833 0.269939 1.76689 -0.751142 2.39321 -0.569019 0.555631 0.924647 -1.38531 -1.3066 2.57665 1.68099 -1.14569 6.70519 2.30258 0.087354 2.3668 2.6603 0.802885 -2.69268 1.48096 3.14263 -1.40026 -0.888931 -0.888931 2.58132 -1.9323 2.18861 -0.93299 -3.45799 -1.53332 -1.374 1.68535 0.378097 -2.71268 1.11437 3.75992 -1.14305 -0.501793 0.201749 -1.41058 -0.0545041 -2.51756 3.79193 0.823091 1.73195 -2.36561 -0.06711 2.37831 1.79627 -0.337093 1.47554 -2.03049 0.663489 -1.57641 3.10413 -1.89632 1.29071 2.06729 1.523 -0.0963266 -0.845832 -3.23998 -0.236696 -1.32801 -1.50113 1.94625 0.986489 -0.92829 0.241483 2.05285 -4.04766 -1.37722 1.31979 1.77197 3.68731 2.08252 2.46634 1.74333 2.65471 2.56964 1.04435 0.169918 -3.34787 -3.62158 -6.61187 1.05745 -2.45309 -1.18302 -0.323052 -1.72921 -1.28739 1.44371 2.30258 -1.56112 -0.61695 -0.796807 -0.297735 -0.189079 -1.02164 -2.38926 -2.04817 0.360256 1.04976 -3.52811 1.21851 -3.78938 -6.11931 -1.29057 -6.04685 0.087354 -0.972696 -3.11922 1.44371 2.07174 0.797217 0.953455 2.03071 2.2495 -0.759683 1.52842 0.21616 0.784222 2.70225 0.615166 0.311006 1.75346 -2.08696
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