Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
355 355 670 1910 1000 920 920 920 920 1150 1160 660 920 920 930 1160 1030 920 930 920 1029 1000 1160 1150 858 999 909 999 909 999 670 999 60 670 400 920 617 636 1068 1068 385 920 600 1090 766 636 545 921 1253 900 945 945 600 800 557 530 842 460 644 588 588 588 561 612 531 800 700 1313 700 535 987 740 297 760 470 1100 614 1109 1100 438 800 1000 630 1300 380 959 614 400 400 400 350 869 520 850 900 794 1220 1100 900 1200 900 1238 1200 1100 1110 900 373 696 520 1238 900 1200 900 373 146 445 324 211 447 1185 848 671 760 1176 1360 760 1360 869 720 1360 822 1185 822 1185 2100 868 765 858 808 720 660 1176 160 160 160 210 295 287 197 59 470 680 750 59 1200 88 88 180
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