Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
0.56 0.79 0.68 0.66 0.37 0.71 0.35 0.55 0.76 0.49 0.56 0.60 0.44 0.55 0.58 0.40 0.42 0.58 0.64 0.58 0.44 0.46 0.64 0.59 0.54 0.71 0.20 0.89 0.55 0.71 0.48 0.49 0.58 0.78 0.71 0.51 0.65 0.68 0.24 0.36 0.65 0.79 0.67 0.74 0.72 0.73 0.58 0.67 0.43 0.59 0.43 0.80 0.74 0.43 0.72 0.50 0.45 0.88 0.67 0.32 0.20 0.84 0.83 0.65 0.74 0.53 0.58 0.65 0.64 0.60 0.52 0.53 0.73 0.52 0.61 0.73 0.79 0.29 0.86 0.37 0.68 0.52 0.26 0.74 0.72 0.24 0.71 0.59 0.27 0.57 0.51 0.69 0.69 0.50 0.63 0.65 0.54 0.69 0.52 0.53 0.74 0.73 0.75 0.70 0.69 0.57 0.14 0.42 0.48 0.27 0.21 0.41 0.56 0.44 0.52 0.59 0.73 0.79 0.67 0.88 0.96 0.43 0.84 0.81 0.67 0.45 0.58 0.70 0.61 0.44 0.54 0.41 0.66 0.83 0.88 0.40 0.54 0.60 0.57 0.59 0.81 0.51 0.65 0.59 0.68 0.65 0.06 0.74 0.29 0.73 0.54 0.39 0.27 0.40 0.20 0.85 0.42 0.68 0.72 0.52 0.78 0.60 0.93 0.73 0.81 0.51 0.86 0.67 0.50 0.74 0.85 0.75 0.83 0.82 0.58 0.72 0.89 0.51 0.75 0.84 0.84 0.59 0.64 0.45 0.57 0.58 0.72 0.38 0.68 0.45 0.55 0.73 0.73 0.73 0.71 0.38 0.79 0.32 0.62 0.42 0.45 0.97 0.67 0.08 0.49 0.66 0.67 0.55 0.55 0.49 0.56 0.69 0.47 0.68 0.43 0.00 0.48 0.77 0.71 0.43 0.50 0.68 0.34 0.47 0.33 0.80 0.74 0.82 0.57 0.46 0.91 0.41 0.64 0.58 0.45 0.77 0.67 0.53 0.07 0.65 0.76 0.56 0.07 0.72 0.61 0.47 0.06 0.37 0.76 0.47 0.55 0.85 0.77 0.79 0.70 0.46 0.51 0.65 0.57 0.68 0.52 0.70 0.46 0.88 0.76 0.74 0.56 0.47 0.44 0.75 0.78 0.26 0.55 0.49 0.81 0.45 0.39 0.89 0.66 0.34 0.84 0.05 0.79 0.60 0.69 0.58 0.66
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