Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
0.0844978 0.622567 -0.0647729 -0.0201976 -0.235614 -0.0245627 -0.14627 -0.186056 -0.261904 0.0209337 0.158969 -0.0454523 -0.0161647 -0.0126288 -0.203332 -0.157433 0.088121 0.0221546 0.202771 0.0756165 0.0769882 0.325641 -0.130004 0.291592 0.00596357 0.077213 0.115696 -0.144392 -0.03675 0.10881 -0.0937618 0.258927 -0.103342 -0.119336 0.150643 -0.04806 -0.251281 -0.112157 -0.00968876 0.0962563 0.156712 0.0477261 0.101935 -0.133796 -0.0362738 -0.0925552 0.480534 -0.064738 -0.185168 0.0400008 0.420078 0.205879 -0.187934 0.119703 0.0516803 -0.173495 0.423708 -0.0405925 0.00703451 -0.157271 0.497046 -0.176838 -0.1503 -0.475479 -0.475479 -0.121567 -0.118131 -0.135417 -0.163728 -0.047384 0.10389 0.119501 -0.0968263 -0.0222381 0.17743 -0.157619 -0.0949135 0.187148 0.215833 -0.0764795 -0.00136952 0.129771 -0.0470181 0.42325 -0.113367 -0.0782813 0.0291394 -0.19713 0.184571 -0.00518162 -0.033678 -0.0193311 -0.0856745 0.152673 0.144231 -0.0771401 -0.038661 -0.446007 -0.512443 0.292981 -0.132036 -0.167515 0.143871 0.153392 -0.244797 -0.14981 0.226778 -0.101892 -0.107845 0.232761 0.257311 0.173283 0.0384632 0.197693 0.0641378 0.00502169 -0.445981 0.5389 -0.0631635 -0.0614346 0.215551 0.339519 0.266414 -0.180742 -0.0827839 -0.0661562 0.10719 0.22523 -0.0617 -0.109035 -0.234756 0.224964 -0.0840023 0.153951 0.218511 0.0516803 0.172761 -0.189018 -0.0921962 -0.17639 0.4387 -0.0872079 0.00508663 0.00814885 -0.22359 0.0650332 0.124084 -0.180572 -0.165123 -0.01753 -0.219876 -0.187343 -0.115413 -0.173495 -0.0887541 -0.276732 0.218511 0.144935 0.270174 -0.239997 0.412604 -0.083312 -0.164737 -0.165612 -0.163652 -0.227059 -0.0135008 0.458465 -0.0696862 0.136489 -0.708316
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