Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
20 25 15 15 25 25 25 21 30 25 20 40 13 30 25 20 25 20 25 20 20 15 15 12 20 5 20 15 25 22 20 22 25 20 20 35 30 25 20 20 20 25 25 15 20 35 25 25 30 23 10 22 25 25 22 30 20 25 25 22 25 25 25 22 25 12 18 20 20 22 30 25 22 20 50 30 25 20 30 22 25 30 22 25 22 22 25 25 25 20 22 15 20 30 20 25 30 35 22 12 30 15 10 30 9 25 20 20 35 25 35 30 12 25 15 25 25 20 20 6 15 40 20 40 25 25 20 15 15 22 24 22 20 25 25 25 35 40 20 22 22 20 25 25 18 25 20 25 30 20 22 35 22 25 25 25 25 22 23 35 15 25 18 22 25 25 28 30 20 25 25 30 22 30 10 10 25 20 22 25 25 15 22 25 25 28 22 30 25 20 25 25 20 30 20 30 50 19 20 28 20 25 35 25 25 15 16 20 20 25 30 20 25 25 25 20 20 25 25 30 22 20 25 25 18 18 20 25 25 30 25 20 25 20 20 20 22 18 22 20 15 25 25 20 25 15 22 25 25 15 12 25 30 22 15 22 25 12 18 30 25 25 40 24 25 15 25 20 25 25 25 20 30 20 25 30 22 25 25 25 50 19 50 25 35 20 20 20 20 20 25 25 25 20 20 20 20 25 18 25 22 22 30 30 8 20 25 30 50 22 20 10 25 25 25 25 18 25 20 25 30 18 20 25 22 22 20 20 25 20 20 20 20 25 20 10 20 25 30 25 50 30 30 50 15 25 25 22 20 22 30 25 18 22 22 30 40 25 20 10 20 9 15 20 15 20 30 12 15 12 20 15 12 25 20 25 25 25 30 20 25 15 15 22 10 15 10 20 25 20 20 38 20 20 20 40 25 25 30 25 10 20 25 12 15 25 20 22 22 20 25 25 25 15 40 20 20 16 25 15 20 25 20 30 50 20 25 20 30 30 25 25 12 25 25 25 20 20 20 15 20 25 15 25 50 30 20 20 25 12 15 20 20 35 22 15 18 30 22 12 12 20 20 15 25 15 20 20 25 18 30 20 25 25 25 20 20 25 20 22 15 15 22 20 10 25 20 20 15 12 20 5 20 15 15 25 25 25 15 25 22 25 20 18 22 25 35 25 25 25 35 30 22 30 50 15 25 24 20 25 25 25 12 15 22 25 25 25 25 15 20 20 15 35 30 20 22 65 20 25 22 20 25 25 20 25 15 20 12 15 10 25 15 30 35 25 25 25 25 25 40 40 25 25 20 25 25 22 25 30 25 25 30 25 25 30 25 25 20 22 22 20 25 22 25 22 40 25 25 25 22 20 35 20 35 25 22 25 25 25 25 25 40 25 30 25 20 25 25 30 22 22 20 15 15 25 25 20 20 15 25 15 20 22 25 15 15 18 5 15 25 18 40 25 25 20 30 20 25 25 25 22 22 25 25 30 25 25 25 25 20 20 25 25 25 25 20 30 25 22 30 20 20 30 25 25 30 20 25 25 24 25 30 18 15 22 22 25 22 22 25 15 20 22 18 35 20 20 20 25 25 30 15 25 22 26 25 20 25 25 25 22 25 25 20 22 30 15 30 25 20 25 25 35 22 20 25 20 20 18 20 22 25 10 20 25 20 20 30 25 20 15 20 25 10 20 25 22 22 25 25 15 25 20 10 25 16 25 35 25 15 25 25 30 25 10 22 20 25 20 20 25 22 18 30 19 25 20 25 20 25 20 22 12 30 12 22 25 25 25 25 30 30 10 22 22 25 20 22 20 25 20 15 25 20 25 20 30 15 40 25 20 22 22 30 20 40 20 25 20 25 20 50 50 25 25 40 30 22 30 20 25 25 30 25 25 20 18 18 28 25 22 15 40 40 12 12 18 12 25 26 18 25 22 15 25 15 15 15 25 15 12 22 20 20 25 20 12 9 15 12 15 25 20 20 15 15 30 21 25 22 22 50 15 25 15 25 22 18 50 20 50 20 20 30 25 20 22 25 50 40 25 25 25 25 30 40 25 30 20
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