Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
70 68 0 68 120 120 72 96 109 104 54 98 49 88 57 74 112 45 110 39 55 102 96 86 78 64 82 100 99 67 87 65 43 80 84 0 105 51 98 124 75 120 84 82 87 78 97 76 104 93 82 73 87 95 105 37 96 88 83 124 116 76 65 86 85 107 124 78 83 78 59 33 92 52 121 92 99 86 75 96 81 104 76 90 75 86 100 88 80 73 88 79 81 48 33 120 90 2 96 86 15 48 81 84 46 59 96 29 0 83 63 68 84 54 0 0 75 87 104 80 3 93 55 96 48 8 60 84 112 8 0 52 4 57 0 14 0 91 89 0 0 54 77 76
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