Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
0.0150894 0.529869 -0.0987966 -0.0958672 -0.265441 0.00880552 -0.104599 -0.220111 -0.388123 -0.00794372 0.202599 -0.150764 -0.0587502 -0.0464669 -0.228278 -0.078691 0.0850244 -0.0528204 0.0888684 0.0971498 0.0933013 0.333651 -0.191729 0.239138 -0.0627963 0.00349876 0.156802 -0.123399 -0.0116525 0.0924501 -0.0592188 0.234802 -0.106025 0.118682 -0.106848 -0.108756 0.0743064 0.0683122 0.199573 -0.0430141 0.0545789 -0.0836391 -0.024013 -0.109792 0.375416 -0.0789528 -0.131812 0.0404652 0.386758 0.302611 -0.238034 0.0167735 0.0580881 -0.222985 0.453669 -0.0431938 0.0919679 -0.109535 0.51581 -0.142093 -0.182077 -0.474447 -0.474447 -0.140241 -0.141994 -0.0862846 -0.170048 -0.00577655 0.101439 0.165638 -0.133575 0.0237721 0.183393 -0.138377 -0.0615199 0.186022 0.236142 -0.0567991 -0.0467104 0.115779 -0.0501767 0.500182 -0.0669471 -0.0541438 0.0304113 -0.110475 0.202706 0.0243841 -0.0275846 -0.0418103 -0.111058 0.237846 0.0602212 -0.0546637 -0.0397956 -0.484054 0.430617 -0.164301 -0.236696 0.0187965 0.166724 -0.157348 -0.155937 0.224906 -0.109586 0.198687 0.218408 0.166566 0.0852202 0.276275 -0.0738554 -0.0549587 -0.425524 0.571209 -0.0445802 -0.1072 0.102008 0.349439 0.34462 -0.231048 -0.0667959 -0.109534 0.0969548 0.132688 -0.00885188 -0.111949 -0.221127 0.222033 -0.0969261 0.25376 0.196814 0.0580881 -0.233185 -0.0969523 -0.184419 0.333739 -0.129241 -0.0326539 -0.0353198 -0.246527 0.0595455 0.159159 -0.273876 -0.156923 -0.0676382 -0.196034 -0.149863 -0.131301 -0.222985 -0.088397 -0.240186 0.196814 0.195048 0.24786 -0.199224 0.485137 -0.115125 -0.224765 -0.0682992 -0.204261 -0.112766 0.0734266 0.461753 -0.0779538 0.224715 -0.745743
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