Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
250.783 363.925 8.21118 359.628 81.1284 258.628 464.962 720.628 204.295 230.128 231.795 -210.705 155.665 185.807 -74.9068 -28.4896 62.0104 22.5104 -283.156 -126.49 -535.823 7.01035 -190.323 -276.823 -108.453 -341.311 -126.025 -80.6077 -223.108 -551.608 107.726 -418.608 -218.941 97.8923 -516.441 -71.941 -416.571 -374.429 79.8571 -92.7257 116.774 -196.726 -288.392 -604.726 158.941 107.774 22.441 3.94099 -321.689 49.4534 341.739 -210.844 14.6563 189.156 79.4896 -40.8437 131.823 -342.344 218.323 81.823 2.19255 -111.665 83.6211 53.0383 -51.4617 278.038 -80.6284 470.038 259.705 -100.462 234.205 473.705 438.075 228.217 -312.497
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