Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
1.19814 -0.350526 -2.66877 9.32888 1.6214 9.93459 -1.84868 -2.33115 0.49835 -0.561255 -1.16802 -0.47892 2.66376 0.295939 1.06278 1.08969 1.03851 -2.42223 1.65476 -3.00596 -0.874179 -0.16186 -0.228289 0.556501 -6.83157 -0.401632 2.10431 1.9554 -2.25937 -2.44985 0.565526 -0.91088 -1.10172 0.0158956 -5.06817 2.39776 -0.289498 -0.796891 -3.50031 -3.01769 2.36285 -2.3933 -0.528472 -3.34581 -2.60899 -3.31276 -1.27647 4.28993 -2.62574 -1.37154 0.864888 2.46347 -0.187366 -4.64141 -0.538426 1.79638 -3.17015 -4.32754 0.774147 2.15447 -1.34395 -2.78029 0.783906 1.02323 -4.38807 2.59552 -1.83823 0.319833 1.92447 -0.848499 3.13086 1.27872 -1.6582 -2.3029 5.07457 2.43558 3.56448 0.380975 -4.22436 -1.10707 -0.692393 -3.07553 0.603121 -0.30265 0.193688 0.489952 -0.77014 1.46207 4.15595 1.45514 1.95503 0.841168 2.1669 -3.98145 -0.343911 1.95365 -1.80327 0.448734 -2.55534 -0.468088 1.85501 1.45022 -3.99657 3.78113 2.44604 -0.0889025 4.03991 -0.580606 7.61272 1.85603 0.182817 -2.53441 1.69002 1.40792 -0.841567 0.830792 -0.389637 -4.32545 2.31912 0.223467 1.37259 -1.5238 -3.94535 -1.11535 -2.35843 -2.71762 -0.359716 1.4021 0.311555 -2.57886 2.59737 -2.14191 2.16457 -0.367438 2.55551 7.60156 1.02417 0.109089 -1.85724 -2.98978 -2.2889 2.25106 -0.559822 0.061958 -1.28258 1.13165 -2.33256 -3.14328 2.16716 -0.550863 3.58591 -2.56579 -2.52726 2.23791 3.42 1.95503 0.360106 1.4021 -4.45635 2.92925 1.82722
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