Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
0.13 -0.2215 -0.1643 -0.495 0.5009 -0.1417 -0.2524 0.2226 0.4034 0.2117 0.1825 0.331 -0.3261 -0.4393 -0.3477 0.3771 0.02125 0.81 -0.1989 0.4799 0.2405 0.6098 -0.7785 0.1965 0.5882 -0.169 0.01908 0.2096 -0.5213 -0.08686 -0.04548 -0.6118 -0.5358 0.6098 -0.393 0.09651 -0.0633 -0.7025 0.1385 0.2124 0.6941 -0.7284 -0.3132 0.263 0.4155 -0.5716 -0.4298 -0.9356 0.5559 -0.6324 0.7787 0.1644 0.2036 0.4393
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