Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
-0.8813 0.1944 -2.466 -0.5583 1.588 -0.1567 -0.09743 -0.5017 1.971 2.002 1.039 -0.5388 -0.5701 -0.7968 0.6283 -0.3725 0.8786 0.5445 2.549 0.5969 1.277 -0.9481 0.2004 -1.416 0.4413 1.248 0.001285 1.12 1.59 -0.8103 -4.08 0.03533 -0.0813 1.047 0.8356 0.4825 1.328 -1.888 -1.673 -0.5462 -0.3843 0.4753 -5.41 -1.745 0.7216 1.067 -0.9191 0.2335 0.8196 1.064 2.559 0.975 -2.673
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