Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
94.5 98.7 99.2 101.2 101.9 107.8 100.3 97.1 99.9 104.1 98.2 107.7 103.9 108.6 100.1 99.2 105.2 107.0 102.4 109.0 104.9 104.8 94.6 93.4 95.8 96.5 85.3 94.7 88.5 98.7 99.8 100.6 94.5 108.3 116.1 113.8 106.2 104.8 147.7 102.5 125.6 115.5 114.1 106.0 88.2 97.2 88.5 92.7 90.4 87.2 98.3 91.0 89.1 91.6 88.6 99.6 102.5 105.8 97.0 99.6 103.1 100.8 99.4 99.7 108.3 104.2 93.9 91.8 96.1 94.3 98.5 95.5 96.3 88.6 93.0 94.8 94.3 98.3 99.3 100.2 97.1 96.9 99.6 95.0 96.2 96.2 96.9 93.8 99.3 98.3 102.2 100.6 95.4 100.6 101.4 107.5 102.4 96.2 92.8 103.7 101.7 98.3 98.3 101.6 99.5 96.6 103.6 100.7 102.1 100.6 99.3 103.0 98.6 99.8 97.5 92.6 99.7 96.4 104.3 101.0 104.1 101.4 97.5 95.2 94.0 100.0 98.5 93.2 99.5 97.8 95.8 99.1 103.2 92.3 98.4 102.1 95.6 100.6 98.3 107.7 101.6 99.3 98.9 93.9 102.5 95.3 110.1 106.2 92.1 113.9 93.5 114.4 91.1 95.2 105.0 98.3 106.4 102.5 89.8 99.3 91.5 105.1 103.5 89.6 108.8 104.5 95.6 106.8 111.9 98.1 92.8 89.2 98.7 99.9 114.4 89.2 96.4 113.9 101.9 109.9 109.8 85.0 91.6 96.1 95.5 98.1 108.8 104.1 101.8 103.1 92.3 112.4 102.7 111.8 96.5 100.6 96.2 101.0 99.0 94.2 99.2 96.9 105.5 102.6 107.1 102.0 100.1 101.7 91.8 94.0 89.0 109.0 99.1 104.2 96.1 112.8 96.3 94.4 105.0 94.5 96.2 105.5 95.6 91.9 98.2 87.5 97.1 106.6 98.4 97.0 90.1 100.7 97.8 100.2 94.0 93.7 101.1 111.8 94.5 100.5 87.6 114.3 109.1 109.8 101.6 94.4 110.0 88.8 104.5 101.7 97.8 107.1
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