Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
823.7 -805.1 -67.58 213.3 -602.8 711.4 -155.3 -326.1 357.3 -353.8 -165.6 498.1 188.3 17.49 131.1 234 -344.6 184.2 12.31 -129 206.6 -187.5 -181.8 615.5 -359.4 -133.5 358.6 -86.84 223 -454.9 145 333.6 -536.6 327.9 -300 89.8 42.24 51.99 -93.76 180.6 -347.7 358.1 -430.2 80.74 390.6 -526.5 573.8 -337.2 -150 161 147.6 -387.8 565.9 -362.6 431.9 -485 15.27 352.1 -95.54 -194.4 163.6 99.94 -224.3 99.6 -335.8 218.9 -139.4 488.1 -240.3 -200.9 -10.67 -17.88 -37.08 275.7 -348.5 198.4 74.1 39.46 60.76 -189.3 -201.6 165 -110.8 114.8 -6.088 -200.6 137.3 170.3 -274.3 -200.5 636.4 -704.5 443.7 232.1 -597.6
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