Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
-4.43364 0.768294 2.49665 0.218765 -0.873521 2.00961 -2.79865 0.606095 -2.32909 2.7046 0.539391 4.60552 -3.42387 -0.157053 2.34111 0.352914 2.89319 1.53252 0.139822 -1.23055 1.1952 0.833265 -0.13772 -0.264669 2.33532 -1.50584 1.03763 0.0785511 -0.541132 2.15429 0.452637 2.42733 0.657007 0.569347 -0.0482301 0.514999 -1.18326 0.199615 -6.18789 1.32237 1.70604 -0.24725 1.22449 -0.282068 0.335402 1.14098 -2.14397 -2.77815 1.80373 0.554284 -1.54132 6.97651 0.361032 0.669506 2.00765 0.699469 -1.51827 -3.43196 1.22794 2.68937 -1.21767 -1.6761 -1.62939 2.45681 -0.688693 3.03915 -1.21951 -1.8478 -2.05137 -1.40814 1.80528 0.329176 -2.65535 0.385312 2.72195 -2.08939 -1.66262 2.14638 -1.60542 -0.214358 -3.88234 3.18447 0.367286 1.36552 -1.28275 -0.338511 1.85969 1.20955 0.347083 1.55796 -1.61892 -1.40438 -0.715425 1.27352 -0.138271 1.07192 1.78596 1.62748 -0.134532 0.0862157 -2.43753 -0.499263 -0.581805 0.736237 1.84342 0.481268 -0.43687 -0.504646 2.58439 -4.11097 -0.0472911 2.94165 0.233194 3.61717 1.26431 1.22514 2.77139 2.29363 2.76054 1.36119 -0.17151 -3.45863 -2.34529 -6.10182 1.5884 -1.09773 -0.15457 -0.445697 -1.85864 -0.644412 0.710853 1.04986 -1.34411 -0.622079 -0.407121 1.35551 0.85897 -1.05635 -1.17432 -1.96866 -0.564179 1.85636 -2.22536 0.243129 -4.40235 -5.01229 -1.55106 -5.52032 0.0142292 -1.92879 -2.81461 1.04426 0.510181 -0.94616 -0.244994 2.27458 1.42615 -1.24161 1.35576 -0.491133 0.176706 1.26502 0.38601 -0.148386 0.657301 -0.790354
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