Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
176.9 177.3 177.3 177.5 177.6 177.3 177.8 179.6 179.7 179.8 179.1 179.1 179.3 179.3 179.6 179.8 180.2 180.1 179.9 179.9 179.2 179.7 179.9 180.2 181.1 181.3 181.3 181.4 181.3 181.4 181.5 181.7 181.9 182.0 182.1 182.1 187.2 188.1 188.0 188.2 188.6 188.5 188.6 188.5 189.2 189.3 189.4 189.4 189.4 189.6 189.7 189.7 189.8 190.1 190.0 190.0 190.2 190.3 190.3 190.2 190.6 190.5 190.8 190.8 190.8 191.0 191.3 191.3 191.2 191.2 191.4 191.5 194.1 193.9 193.9 193.7 194.8 194.8 194.8 195.3 195.4 196.1 196.1 196.0 197.8 198.5 198.9 198.5 199.2 199.2 199.3 199.3 200.5 201.4 201.6 201.4 204.9 206.2 207.4 209.0 210.1 210.3 213.8 213.8 213.6 216.5 216.4 216.6 220.9 220.3 220.3 220.4 221.2 221.1 221.8 221.7
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