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
Chart options
R Code
library(Hmisc) m <- mean(x) e <- median(x) bitmap(file='test1.png') op <- par(mfrow=c(2,1)) mydensity1 <- density(x,kernel='gaussian',na.rm=TRUE) plot(mydensity1,main='Density Plot - Gaussian Kernel',xlab='Median (0 -> full line) | Mean (0 -> dashed line)',ylab='density') abline(v=e,lty=1) abline(v=m,lty=5) grid() myseq <- seq(0.01, 0.99, 0.01) hd <- hdquantile(x, probs = myseq, se = TRUE, na.rm = FALSE, names = TRUE, weights=FALSE) plot(myseq,hd,col=2,main='Harrell-Davis Quantiles',xlab='quantiles',ylab='Median (0 -> full) | Mean (0 -> dashed)') abline(h=m,lty=5) abline(h=e,lty=1) grid() par(op) dev.off() load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Median versus Mean',2,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'mean',header=TRUE) a<-table.element(a,mean(x)) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'median',header=TRUE) a<-table.element(a,median(x)) 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
2 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation