Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
-0.363775 -0.398342 0.124934 0.0261302 0.123816 0.119241 -0.898823 -0.0400656 -0.0939613 0.176012 0.215448 -0.119396 0.401362 0.0896237 0.420572 0.482284 0.697433 0.354247 0.00257601 -0.177932 0.0126273 0.114433 -0.0173765 -0.155306 -0.168492 0.0514652 0.126363 -0.0128281 0.0406277 -0.282883 0.0225639 0.732045 0.419224 0.124464 0.212527 -0.12691 0.390346 0.13894 0.601462 -0.403895 -0.362991 0.00378725 -0.0122793 -0.421003 0.160199 -0.400386 -0.30977 0.0546595 0.00722687 -0.0399991 -0.128741 -0.29043 -0.467973 0.787328 -0.166158 -0.292864 0.82076 0.461377 0.405049 -0.197139 0.38293 -0.0147158 0.327501 -0.269976 -0.269976 0.0967822 -0.0919844 -0.0693304 0.1857 -0.334839 -0.390246 -0.142001 0.00749042 0.241211 0.145391 0.109747 0.166313 0.0329052 0.0155809 -0.675546 -0.640804 0.111204 0.126167 0.089197 -0.0745407 0.0669867 0.105864 -0.335564 -0.0403367 0.109753 -1.58286 0.226415 0.320067 -0.0563292 0.84125 0.313318 -0.222429 -0.453083 -0.663599 0.563799 0.370634 -0.227636 0.0760165 0.209831 -0.0116676 0.0239226 0.300877 0.465369 0.0328649 -0.519641 -0.579891 0.121312 0.348926 -0.375148 0.13857 0.556968 -0.308337 -0.531907 0.417077 -0.216324 -0.202086 0.132854 -0.31167 0.378199 -0.344134 -0.332537 -0.516584 -0.414998 -0.351289 0.29512 0.209786 -0.260902 0.126806 0.292265 0.323552 -0.166158 0.645944 -0.234037 0.0281076 -0.292959 -0.0619789 0.676576 0.539556 0.305965 -0.21531 -0.489063 -0.191953 -0.310878 0.158413 0.249361 -0.412873 0.235427 0.230421 -0.292864 -0.357448 -0.457631 0.323552 0.427588 0.270839 -0.00525043 0.154223 -0.085807 -0.590193 -0.136427 0.0445927 -0.419574 0.162665 0.217035 -0.044231 -0.131498 0.0808169
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