Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
73.97 75.01 75.98 78.85 79.34 79.62 79.76 79.62 79.89 79.88 79.97 79.63 80.04 80.23 80.44 81.78 82.51 82.43 82.35 82.53 82.08 82.73 82.46 81.98 82.11 82.26 82.51 82.89 83.83 84.73 84.48 84.84 84.99 84.7 84.54 84.73 84.51 84.54 84.27 84.47 84.25 84.33 84.29 84.53 84.01 84.18 84.08 83.44 83.61 83.89 83.4 82.96 82.76 83.35 87.78 88.99 88.92 88.91 89.79 90.54 93.15 92.79 93.21 95.35 100.91 103.69 104.04 104.16 104.71 105.18 104.92 104.83 104.9 105.05 104.6 103.21 102.52 101.09 101.19 102.34 102.62 102.47 101.82 101.86 101.54 101.98 101.23 100.4 99.94 99.94 100 98.8 99.07 99.46 99.18 98.47 97.12 96.91 96.09 97.17 96.8 97.13 99.9 100.56 100.84 99.81 100.44 100.07
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