Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
-483 151.9680703 -149.9899539 -540.0099154 -359.0356984 65.97626524 -196.9956385 71.98697722 478.0047588 125.0315994 313.0082655 421.020692 -43.9721676 48.99709313 -440.996761 -627.029153 -144.041451 -119.0095221 -62.00786736 -149.0040992 390.9901498 289.0258472 761.0191066 -49.94969134 1103.996698 -711.9270181 -1168.047063 -375.077216 -56.02479522 -91.00370363 -189.006016 55.98750539 297.0037012 360.019634 810.0237998 279.0535482 -807.9815526 90.94658679 59.0060122 -695.9960993 -194.0460102 -56.01282779 -137.0037028 -15.0090569 217.9990078 76.01441125 653.0050251 522.0431682 322.0345107 -457.9787113 -710.0302756 -99.04693794 -237.0065477 -104.0156678 -163.0068762 -9.010775889 212.9994043 -34.98591926 955.9976872 593.0631981 -478.9607944 -32.03166264 -430.0021175 -450.0284261 -189.02975 -43.01249618 -107.0028434 -21.00707363 158.9986113 289.0105109 134.0191056
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