Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
250.782608695645 363.92546583851 8.21118012422378 359.628364389234 81.128364389234 258.628364389234 464.961697722568 720.628364389234 204.295031055901 230.128364389234 231.795031055901 -210.704968944099 155.664596273294 185.807453416149 -74.9068322981364 -28.4896480331261 62.010351966874 22.510351966874 -283.156314699793 -126.489648033126 -535.82298136646 7.01035196687387 -190.32298136646 -276.82298136646 -108.453416149067 -341.310559006211 -126.024844720497 -80.6076604554865 -223.107660455486 -551.607660455487 107.725672877847 -418.607660455486 -218.94099378882 97.8923395445136 -516.44099378882 -71.9409937888199 -416.571428571427 -374.428571428571 79.857142857143 -92.7256728778469 116.774327122153 -196.725672877847 -288.392339544514 -604.725672877847 158.94099378882 107.774327122153 22.4409937888197 3.94099378881965 -321.689440993788 49.4534161490682 341.739130434783 -210.843685300207 14.6563146997928 189.156314699793 79.489648033126 -40.8436853002073 131.822981366459 -342.343685300207 218.32298136646 81.8229813664593 2.19254658385198 -111.664596273292 83.6211180124221 53.0383022774324 -51.4616977225677 278.038302277433 -80.6283643892342 470.038302277433 259.704968944099 -100.461697722567 234.204968944099 473.704968944099 438.074534161492 228.217391304347 -312.496894409938
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