Wessa.net

Send output to:


Data:
132.8 132.5 131.4 131.4 130.7 131.5 131.2 130.1 130.5 129 128.2 128.4 127.3 127.7 127 123.9 125.4 124.6 124.5 124.8 124.1 124.2 122.8 122.3 121.1 121.7 122.2 122.2 122.7 121.7 121 119.8 120.2 116.6 116 118 117.1 116.2 113.3 114.3 113.6 113 112.9 112.7 112.5 113 111.9 110.9 109.8 108.3 109.2 109.2 108.7 109.8 110.8 110 109.6 109.5 110.8 111.6 113.1 114.3 114.1 113.8 112.6 112.7 111.5 110.7 110.4 109.7 110 111.3 109 108.2 107.2 108.7 110.3 110.3 109.5 109.5 109.4 109.6 111.3 110 109.5 110.693 109.195 108.095 108.199 106.87 105.278 108.711 111.192 109.641 109.42 109.935 111.126 110.733 110.34 111.766 111.294 111.54 112.008 111.007 114.963 112.045 110.703 108.894 107.51 111.35 112.964 115.203 115.182 115.191 112.346 110.774 113.07 111.138 109.092 107.971 107.051

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')

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

Median versus Mean
mean	115.185041322314
median	112.008