Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
20 38 0 49 76 104 37 53 42 62 50 65 28 48 42 47 71 0 50 12 16 77 29 38 50 33 49 59 55 40 40 51 41 73 51 0 46 44 31 71 61 28 21 42 44 40 15 46 43 47 12 46 56 47 48 35 44 25 47 28 48 32 28 31 13 38 39 68 32 5 53 33 54 36 52 0 52 45 16 33 48 33 24 37 17 32 55 39 31 26 37 66 35 24 18 37 86 13 21 32 8 38 45 24 23 2 52 5 0 43 18 44 45 29 0 0 32 65 26 24 7 62 30 49 3 10 42 18 40 1 0 29 0 46 5 8 0 21 21 0 0 15 47 17
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