Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
1.82739 0.264705 -3.47755 -2.766 -0.319407 2.06088 2.56481 -0.335547 -1.96884 0.648335 -3.65567 -1.62742 -2.22448 0.830498 -1.52964 -1.61618 1.05399 -1.12395 -1.26499 -0.0300505 -1.71697 0.577378 1.0863 2.42057 -2.55815 0.790163 -0.60785 0.533689 1.57027 1.62997 0.713207 2.35585 -1.04836 3.06337 0.437938 1.37937 0.00747416 1.4812 2.16891 0.482158 2.55523 -0.640018 1.56226 -1.54149 0.318045 1.24891 -0.903278 0.495885 -0.302681 0.572289 3.25607 -1.51033 -0.778855 0.913861 -2.68649 -0.109458 0.17071 -4.1778 -1.30927 1.16458 -1.52325 -1.18787 2.33557
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