Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
4808.2 4797 4765.4 4783.4 4789.2 4765.2 4814 4870.6 4862.2 4909.2 4950.4 4939.6 4896.8 4956 5028.8 5077.6 5149.6 5284 5294.6 5358 5438 5393.6 5326.4 5284 5135.8 5164.8 5187.4 5164.8 5242 5281 5268.4 5278.4 5311.8 5280.6 5291 5224.4 5192.4 5166.4 5147.4 5158.2 5118.8 5136.6 5132.2 5069.6 5042.6 5057 5055.6 5148.8 5127.2 5127.8 5079 5092 5099.8 5056 5120.8 5125.2 5165 5214.2 5249.8 5317.4 5395.6 5479.2 5493.6 5448.8 5490 5549.4 5604.4 5677.2 5735.8 5791 5833.4 5917.2 5938.4 6007.6 6117.4 6176.6 6235 6271 6280.4 6317 6306 6290.8 6272 6203.6 6136 6207.4 6224 6291.4 6332.2 6352.4 6434 6414 6479.4 6555.4 6614.8 6671 6726.4 6733.8 6758.2 6748.6 6733.4 6701.6 6662.2 6676.6 6678.8 6676.2 6736 6732.2 6664.4 6733.6 6731.4 6756.2 6771.8 6754.4 6802.4 6893.2
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