Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
0.0369999745003413 -5.9623186537317 13.199750510756 -4.38134104653015 -8.55664024772041 11.1858500834747 43.1600828172584 -18.0555098078549 -1.03390376859901 -21.480207773057 12.9526883745974 92.7450087068449 -7.62959923006792 -36.3793071886167 6.34670392141556 5.4438142475064 11.2068476762212 -9.34880084666512 70.7983973254214 -21.4398345761841 19.3537016552739 -24.3407859893616 -47.8930389401323 -5.23120399526416 15.0447379573563 2.66174086946239 -18.5463802136914 24.2312685058628 -22.3926123716306 30.8921837808626 10.2858183676532 -17.6363037027495 -6.4130297615578 -14.0694124848462 -34.2139388425848 23.3594254521777 7.01011297221759 -10.153611430772 -14.8280599663193 13.537714424612 10.981865403099 33.2311335292979 -13.6424737570068 35.0456012872994 2.68076271897523 -6.2039576547908 -1.91546067977486 21.6997226809524 31.3300726113285 -6.0290002401709 -20.550957597228 -7.38401440956276 -22.453555756565 -42.9605320118509 -26.5894843205177 -29.8859887428515 -4.97592443186665 -14.2340692287293 -2.3967562794556 15.7192136412636 -23.9426635182183 -4.34641981100157 -14.9522778744557 -5.27697234321827 1.41659439929679 -13.9195439755118 -3.38446142046753 -4.40427257572364 -1.7286971613264 0.550474509876316 -8.22986146756033 3.80177197561401 10.3746038348396 -6.47719720961919 -8.27547947953864 -4.31240532620612 -1.49329925845406 -4.95561884498003 -0.0399352246639766 -6.47575127776272
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