Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
18.22603393 -10.43820584 -10.62325608 -24.9074432 7.106998638 55.0334049 0.932005188 -29.67536499 -9.653445224 -17.28049436 1.559134115 -16.62295294 52.2417288 2.139074683 29.97394343 -4.257249568 -22.98148029 -39.09036598 -5.185391 7.708022367 0.105725675 16.67964537 -14.11309067 26.96725579 2.886037717 3.751564011 -5.320386827 4.599299868 -14.76571782 -3.909481256 -2.164384006 -1.330984011 -8.368294079 -3.507429943 2.653445127 22.19946426 -29.87441448 22.37994334 -11.63650931 0.002101329 -4.518992416 -6.325030147 22.88279281 17.93361465 15.40539308 6.180331784 2.088614755 -24.93747351 -29.66679297 -17.29405038 0.474548418 10.08374153 24.78323026 7.859558974 -16.71691829 3.869912015 2.502698929 -2.049714186 7.864550303 -7.547517662 -13.66281683 -0.415195524 -2.77171802 14.54200091 10.40434879 -13.57347601 0.21255987 1.441069462
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