Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
-1.85502047409861 5.42325613348655 -1.1234903336018 4.02302041635636 -3.70675955840905 -8.53941542077969 4.93905336252266 1.68004621616743 3.06238689238125 -2.96360598975477 0.0398803029143075 -11.9588519658638 -5.2352433150426 -0.234265607448981 0.39464718550503 -2.68551735068717 5.45454346948067 -4.80026740539989 1.05169803071146 -8.3513703304272 -9.20785512133322 -5.50601159414801 -1.86845807058172 2.77535002763025 -0.905710233996908 -1.61970741932654 1.80926341353426 4.71661835509078 2.55826904932389 -0.944719836096742 8.18244056856599 -0.675358029630718 11.4011369352281 5.92537383872062 2.68271473110235 2.75420648119648 5.36484336451385 -3.03911735134487 3.04093380290683 -5.94885125947215 -5.31977951272112 16.2170997726063 -4.82497802270131 -1.2680074271542 3.14375113622215 2.44350017077555 -1.60369346269775 12.2783987645259 4.00940401287636 11.2093805476324 -17.8147978620139 1.34662779244791 5.64958104144711 -5.41828656554999 -12.7132731146149 1.15125154273856 -0.618858176676447 -3.47053653288149 10.1003984705898 -2.2056537861004 1.07421076464852 -7.58402346062713 -8.81334463299344 1.07706725344991 -0.205433478012266 2.75209963259331 -0.66654458066125 5.88515050247279 -3.64970311433029 -1.05281150807058 5.51772114732076 3.76283217800716 2.06005908877604 -13.9571087789075 -10.2892105232075 -5.73537318731128 4.93732869349814 -1.2788365433526 -1.44827615320924 4.72517985390048 -0.337702845498472 -1.99684529532814 -4.14081538557938 -2.81667058742596 4.8384269578177 2.63763322215184 -5.68513055761853 1.96907189555487 -9.05288074831037 0.127753114733716 -0.156302963892685 -4.94950854900784 1.10808896101927 0.284820730737251 0.2286459062025 4.29475935511529 -4.87654795604795
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