Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
-619.000000000000000 -517.699041774918000 223.514709240721000 -967.980783644196000 329.740441841572000 109.375657675839000 527.006139168516000 -117.685635420767000 502.003558006032000 302.282345107174000 -411.721926586784000 138.662015102645000 -585.358354774593000 -394.399894064740000 22.233203690404500 -768.297564043327000 280.712753803935000 -443.866135832459000 -37.377498552983500 -485.441724847306000 709.649368391671000 277.952740093246000 -76.187842608616800 222.911249368004000 -777.488410425251000 -80.018530370811300 285.688898080261000 -779.680233479605000 -17.862278616599700 269.974359677577000 -119.899207773971000 54.141514382101400 937.543513180943000 52.655911042984400 265.293832671838000 -2.836438673632070 -692.385994990975000 230.569104797780000 328.953331068020000 -391.286455127971000 323.852209620938000 -193.577487518074000 -299.836207204939000 466.779602938550000 916.652167964750000 564.082238287798000 232.502554052839000 -11.420263157457200 -370.606656030543000 339.247931065411000 40.373299886725400 -618.038225259597000 621.109997297344000 38.473958690710800 91.364060458063200 204.854892945363000 273.322692180216000 668.917389198028000 202.689246497566000 209.500963536935000 -669.769061446519000 -9.405668022114700 269.088009165802000 -755.644800443048000 660.356181723919000 -177.512389250745000 580.677655919160000 233.462518606158000 411.387253196423000 559.056459673333000 486.274899596096000 492.051493148436000 -528.089271427612000 -626.225488859407000
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