Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
106.68 109.73 108.06 111.33 105.66 103.65 100.34 100.56 102.67 101.5 102.35 104.98 106.31 103.73 106.62 108.54 105.12 105.29 104.62 104.34 108.23 107.6 106.87 107.96 108.34 109.04 106.95 105.59 108.08 108.48 106.84 105.6 106.9 106.84 106.81 106.98 107.53 107.37 106.98 108.94 106.38 109.02 106.53 105.02 109.7 108.39 110.18 109.54 109.1 110.85 112.23 110.58 110.77 108.08 108.05 108.87 109.61 111.27 107.61 110.98 106.63 106.83 108.77 106.12 106.8 106.34 105.16 107.97 106.76 108.78 105.58 109.22 105.67 109.04 106.59 109.66 108.05 109.91 107.63 107.15 103.8 103.43 103.59 107.63
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