Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
4778 4838 4899 4935 4995 5032 5083 5104 5127 5180 5193 5210 5251 5275 5309 5339 5363 5402 5410 5408 5441 5438 5474 5521 5561 5632 5666 5699 5748 5833 5892 5965 6040 6077 6126 6199 6209 6252 6338 6411 6520 6611 6703 6799 6874 6950 7066 7245 7302 7310 7336 7436 7468 7430 7430 7460 7481 7568 7537 7501 7576 7582 7618 7690 7723 7789 7831 7837 7838 7848 7856 7874 7864 7847 7834 7805 7754 7738 7792 7798 7821 7875 7886 7947 7959 7988 8023 8066 8052 8108 8110 8166 8222 8204 8225 8264 8275 8337 8407 8427 8497 8592 8622 8679 8714 8781 8891 8977 9110 9273 9378 9437 9527 9547 9642 9761
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