Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
-0.639331159594218 -0.663249304852279 -1.57703238363959 -0.291086233440849 -0.383249304852277 1.81166884040579 -0.417032383639588 -0.542032383639588 0.443967616360412 -0.575249304852277 -0.529086233440849 0.702668840405791 0.428750695147722 -1.21095052889766 1.87666884040579 -1.16303238363959 -0.351950528897657 0.367995621301082 0.551750695147723 0.514750695147723 0.764967616360411 -0.663331159594209 0.0346149906045305 0.352913766559151 -1.14703238363959 -1.04003238363959 -0.515331159594208 1.18396761636041 -0.700249304852277 0.22891376655915 0.265750695147723 -0.183950528897657 -0.236249304852278 -0.222950528897657 -0.103249304852278 0.629750695147723 -0.551950528897657 -0.540249304852277 1.68991376655915 0.14561499060453 1.52796761636041 0.203750695147723 -0.982331159594209 0.297750695147723 0.456967616360411 -0.0242493048522772 -0.217331159594208 0.811967616360412 0.389967616360411 -0.488385009395469 -1.19638500939547 -0.35438500939547 -0.303950528897657 0.276967616360412 1.53096761636041 0.0926688404057911 -0.251249304852278 0.328750695147723 0.135750695147723 -0.290032383639588 0.656967616360411 0.338750695147722 0.44691376655915 0.342696845346462 0.652668840405792 -0.751331159594208 0.383967616360411 0.357049471102342 -1.02333115959421 0.612696845346462 -0.41738500939547 -0.0463311595942091 -0.385385009395469 -0.132249304852278 -0.282249304852277 -0.0222493048522774 -0.508249304852277 0.919668840405792 0.495668840405792 -0.272249304852277 0.741750695147723 0.391750695147722 -0.813032383639588 1.15199562130108 -0.0380862334408494 -0.141249304852277 -1.67408623344085 -0.677032383639589
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