Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
0.101999999999999 0.113 0.166 0.176 0.1776 0.181 0.1934 0.1204 0.0644000000000001 -0.0423999999999999 -0.0808000000000001 -0.0165000000000001 -0.0459999999999998 -0.0830000000000001 -0.082 -0.08 -0.0134 0.0279999999999999 0.0254000000000001 0.0494000000000001 0.0834 0.1076 0.1372 0.0994999999999999 0.0570000000000002 0.00699999999999999 -0.03 -0.058 -0.1214 -0.153 -0.1066 -0.0886000000000001 -0.0656 0.0155999999999999 0.0122000000000001 -0.0395000000000001 -0.0339999999999997 0.00299999999999999 0.0129999999999999 0.045 0.0566000000000001 0.0650000000000001 0.0424 0.0564 0.00440000000000004 -0.00339999999999993 0.00220000000000009 -0.0435000000000001 -0.0789999999999999 -0.04 -0.0669999999999999 -0.0829999999999999 -0.0994000000000001 -0.121 -0.1546 -0.1376 -0.0866 -0.0774 -0.0708000000000001
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