Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
93.1 93.6 95.8 101.8 97.3 104.5 105.1 99.6 100.9 99.6 101.5 103.6 102.0 104.1 101.3 99.1 101.9 107.6 106.8 106.2 103.3 111.4 86.0 86.7 90.2 89.6 88.6 97.4 93.5 97.4 100.5 93.5 93.0 111.7 117.0 118.5 106.5 105.6 136.2 114.8 128.3 106.0 113.3 106.6 85.1 96.6 88.2 89.8 92.3 83.4 90.2 89.2 89.7 93.3 87.6 107.6 100.0 111.5 115.4 104.8 112.3 102.9 107.6 105.3 105.3 103.0 90.0 95.4 89.3 94.4 97.6 88.5 93.6 87.7 93.4 91.6 91.6 102.0 96.4 102.7 97.7 97.1 103.1 101.8 101.4 98.9 97.5 104.3 97.3 96.7 99.7 101.9 97.2 106.6 99.6 113.2 99.1 99.4 95.1 107.5 106.5 99.1 96.7 103.5 104.0 93.1 105.2 110.0 110.1 97.8 96.3 108.0 99.7 93.5 100.7 97.0 96.0 99.2 95.4 101.8 104.3 99.2 99.3 94.0 98.9 101.0 98.7 95.9 103.9 96.2 97.8 94.6 103.6 100.4 98.4 104.6 92.9 97.8 98.3 104.7 98.6 99.5 102.7 92.1 96.6 92.7 102.0 110.9 92.3 114.1 92.9 108.3 88.5 94.0 101.1 92.1 105.6 98.5 88.7 101.1 94.0 103.8 98.9 89.2 111.4 107.5 99.1 108.2 114.9 99.1 92.2 90.8 100.5 98.2 115.3 96.8 92.6 119.2 102.7 109.5 108.5 79.3 95.5 92.3 98.9 89.5 117.5 107.4 109.2 103.4 91.4 115.2 104.9 106.7 92.2 101.6 97.8 92.0 94.0 103.7 102.7 91.1 107.2 100.8 121.6 105.6 100.6 102.7 99.8 92.9 91.2 115.6 98.3 103.7 98.7 119.8 92.8 93.3 106.8 93.9 99.0 119.9 94.2 92.7 106.9 88.8 101.7 105.3 104.0 98.6 99.6 103.4 100.2 94.9 97.2 104.7 104.0 117.6 95.8 106.4 93.0 119.6 119.7 115.8 118.3 97.4 113.7 89.2 108.5 111.1 108.3 112.4
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