Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
0.0036109152155184 -0.171584925807968 0.325067808640341 -0.0940679676614769 -0.233834268716418 0.310278731297227 0.679977143523932 -0.295172714736033 0.0681080865203015 -0.806884524163399 0.336467587196128 1.23735958557298 0.0184771687168986 -0.3331931465722 0.0286769412881763 -0.0103909608468235 0.187591510868386 -0.00398038473564299 0.727693146356356 -0.221759528438456 0.192535819331278 -0.336633767976511 -0.869034414850496 0.0601564687766434 0.282111790899119 0.206116096745581 -0.238747039500387 0.383662573694648 -0.366409434900751 0.326874793487138 0.0017050918247572 -0.184737528261849 -0.0592986757848862 -0.0644865643145161 -0.832895002123145 0.176521208961043 0.203269164392835 -0.000814212589783953 -0.18517250317619 0.188597191214611 0.109498678644736 0.426905804844609 -0.32545423779884 0.453004237678114 -0.0570516429882141 -0.0342235899344155 0.237148838150567 0.176075687481638 0.23044451695179 -0.0960195503362943 -0.189213639660799 -0.236911645229776 -0.21302952427676 -0.826673059108413 -0.453326832520124 -0.593901475865971 0.161838802436164 -0.0820073782983919 0.310644546237324 0.377107967845728 -0.842811304101193 0.0231887352541481 -0.718701346087977 -0.119339465474083 0.240644206590055 -0.773528755094417 0.0797711008843767 -0.357595311339551 -0.0375727200472735 0.209607207928601 -0.601970089769743 0.319391533455687 0.474390700480027 -0.357690289543053 -0.508051995875865 -0.456688386342127 0.0366168630140685 -0.174113048971846 0.339063546115365 -0.827250924444718
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