Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
79 58 60 108 49 0 121 1 20 43 69 78 86 44 104 63 158 102 77 82 115 101 80 50 83 123 73 81 105 47 105 94 44 114 38 107 30 71 84 0 59 33 42 96 106 56 57 59 39 34 76 20 91 115 85 76 8 79 21 30 76 101 94 27 92 123 75 128 105 55 56 41 72 67 75 114 118 77 22 66 69 105 116 88 73 99 62 53 118 30 100 49 24 67 46 57 75 135 68 124 33 98 58 68 81 131 110 37 130 93 118 39 13 74 81 109 151 51 28 40 56 27 37 83 54 27 28 59 133 12 0 106 23 44 71 116 4 62 12 18 14 60 7 98 64 29 32 25 16 48 100 46 45 129 130 136 59 25 32 63 95 14 36 113 47 92 70 19 50 41 91 111 41 120 135 27 87 25 131 45 29 58 4 47 109 7 12 0 37 37 46 15 42 7 54 54 14 16 33 32 21 15 38 22 28 10 31 32 32 43 27 37 20 32 0 5 26 10 27 11 29 25 55 23 5 43 23 34 36 35 0 37 28 16 26 38 23 22 30 16 18 28 32 21 23 29 50 12 21 18 27 41 13 12 21 8 26 27 13 16 2 42 5 37 17 38 37 29 32 35 17 20 7 46 24 40 3 10 37 17 28 19 29 8 10 15 15 28 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