Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
-31.0980235042716 -59.8206924271108 -83.5404637229203 -76.6837390525943 -55.7725703639553 -29.62380040276 -403.243804757836 -416.782395531722 -213.421552958589 371.566721695855 165.983275906532 542.6202623301 295.02721709437 -21.1190278168924 437.4008577275 365.294800512585 67.9306326630958 -247.788856282479 545.098074661517 -296.773620935714 352.477617436036 283.798200110577 -273.315875572704 446.06222457008 -214.72781956204 -60.4206198854663 372.155927347334 99.2591381678085 318.424339918272 125.277834109822 -327.853683550757 -432.970794551573 442.139159285423 14.3549856459813 299.040533753827 88.2365194871691 -180.537099245963 201.985172786433 193.536881410406 -313.092895033498 -152.748572628851 299.982624154345 42.4811421719933 133.842278481663 -129.830065090609 -699.373730899397 171.563382431515 -24.5384434740972 116.363164839684 -218.154308468131 -257.102541429251 98.6124781717281 -190.742241794984 198.422707475118 -145.26733998686 611.517071444689 56.0522598394018 -117.514342950461 -3.71499521678197 296.99038945692 360.610007278467 61.6319235909414 -746.579530943922
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