Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
36.2 38.5 34.0 37.4 34.4 39.0 36.4 37.8 38.1 42.1 38.5 39.4 38.4 39.4 40.5 36.4 38.9 42.1 38.0 40.0 39.1 41.3 33.9 35.5 34.5 35.7 36.2 38.8 36.4 36.7 38.7 37.3 38.1 39.8 42.1 38.4 38.5 42.1 51.2 40.2 43.2 36.6 37.3 41.5 31.5 35.7 33.6 34.6 32.8 34.0 34.9 34.3 36.5 35.1 37.8 39.9 39.1 40.5 40.5 38.4 41.4 35.6 38.0 37.4 40.1 40.9 35.6 36.9 37.5 36.3 35.5 38.7 36.4 33.2 36.5 36.0 38.7 38.7 37.8 37.4 38.4 38.1 39.3 38.7 38.5 36.5 37.7 36.5 38.0 36.7 37.2 39.2 37.5 38.0 37.3 41.1 37.5 38.7 35.9 40.0 40.1 37.0 36.3 40.7 39.6 31.1 38.6 42.0 38.5 34.2 37.2 37.1 40.2 35.3 38.0 36.3 36.8 41.0 38.3 38.0 40.8 39.5 36.9 36.9 37.7 36.6 38.9 37.5 39.8 38.3 35.5 36.3 37.8 37.8 36.5 37.8 37.0 37.7 34.3 40.8 37.4 36.5 37.5 35.5 38.0 35.7 39.2 40.9 35.2 40.6 35.4 41.8 34.1 37.9 38.2 35.6 38.5 37.0 35.9 36.2 35.0 38.5 40.7 36.0 39.5 40.5 38.5 43.9 40.4 37.6 37.0 34.0 38.4 38.7 41.5 36.0 35.3 42.1 38.0 42.8 40.0 33.8 35.5 35.3 37.7 39.4 41.9 38.5 40.8 38.0 36.4 41.8 40.7 38.5 35.4 38.5 35.5 36.5 37.6 37.4 37.8 35.2 37.9 37.9 40.9 41.9 39.1 40.2 36.0 34.5 35.8 40.2 38.3 39.0 37.4 41.2 34.8 36.9 39.4 37.6 38.5 42.5 37.4 35.2 41.1 33.4 37.2 38.3 38.1 37.4 35.2 39.4 38.0 35.1 40.4 38.3 40.6 40.2 37.9 40.8 34.7 38.8 41.4 41.3 40.7 36.3 40.8 34.9 40.9 38.9 38.9 40.8
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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation