Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
33.865 32.226 31.077 31.293 30.236 30.160 32.436 30.695 27.525 26.434 25.739 25.204 24.977 24.320 22.680 22.052 21.467 21.383 21.777 21.928 21.814 22.937 23.595 20.830 19.650 19.195 19.644 18.483 18.079 19.178 18.391 18.441 18.584 20.108 20.148 19.394 17.745 17.696 17.032 16.438 15.683 15.594 15.713 15.937 16.171 15.928 16.348 15.579 15.305 15.648 14.954 15.137 15.839 16.050 15.168 17.064 16.005 14.886 14.931 14.544 13.812
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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation