Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
867.8875 -2250.2807 33618.3570 9954.3447 354.1917 18882.4064 20229.4311 268402.4162 -113346.9261 -45016.3942 35069.8614 58531.0957 -77256.3771 -31473.5946 -52391.0075 32854.9848 101107.7328 -176275.9604 79531.8844 -176414.2516 151290.5795 167731.5942 143237.1224 80251.9665 118735.7263 75035.8259 19198.3085 -36364.5639 -36170.5787 -109567.3951 -100783.3361 -149267.4039 38947.3511 58613.0601 16074.4602 -41563.0049 -15970.5965 -47563.9548 59595.3577 65897.8405 -166489.2832 46312.3270 -15952.8723 -87780.6524 134744.1727 75232.8122 24408.7558 -15406.1403 -3766.7535 27197.2240 -46777.2890 -82472.8213 -35154.7185 -46946.8700 -43641.5365 -54920.7085 54905.4038 -10509.5841 -13706.8047 -42347.6088 -28990.4688
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