Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
0.2416 -0.2303 -0.2147 -0.2539 0.3134 -0.1142 -0.4394 0.133 0.3697 -0.01125 0.04399 0.1365 0.015 -0.3861 -0.3544 -0.003733 -0.3037 1.11 0.02706 0.2922 0.4104 0.5807 -0.2911 0.2979 0.1711 -0.1544 -0.1595 0.4024 -0.3499 -0.2595 -0.3273 -0.3373 -0.5343 0.5807 -0.04828 -0.156 -0.2911 -0.6378 0.4662 0.5823 0.7295 -0.05125 -0.3866 -0.1766 0.2888 -0.3247 -0.8043 -0.4965 0.6542 -0.6901 0.2102 0.08071 0.1812 0.4697
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