Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
-0.352491067189297 -0.693726212281901 -2.62057482256158 4.31439985409331 6.12699035221105 -11.007722453913 9.85737357338869 -5.68308331784826 -2.73868553233788 -6.96089757829408 -2.30558059708951 11.4091362466934 -3.36204181750916 -14.3226417503077 -6.08251008012596 -14.6033454556627 -3.62530423371471 11.273178154969 -0.371222853324218 -3.03711645114068 0.399790646086001 12.6798995234074 4.91702961212093 -1.21903073075922 -3.38013895067434 9.99540956510879 6.92576282552566 10.4736153969682 2.9399140408402 4.36433098901772 -4.23099068714022 -0.0544639004525236 4.9839331308856 -11.0615861073884 -1.41631588881505 -0.599850377760058 0.647026043791595 1.9090371435873 2.89203604596708 -0.00249842894119334 -4.63822948933668 2.83423527757095 -6.86863363017918 9.10508456804962 -12.8257487320615 -3.28367221464237 6.38917992951302 6.82425066542711
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