Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
26 37 43 52 52 43 49 52 43 53 51 53 29 43 51 53 47 39 48 50 35 30 49 47 50 43 41 45 48 41 43 53 44 46 37 51 51 37 42 38 34 53 49 49 40 52 34 32 48 42 26 52 51 50 52 16 46 52 50 52 44 52 37 51 48 50 33 46 33 47 52 41 52 50 51 29 40 46 43 51 50 52 51 53 47 25 47 46 50 39 51 35 53 46 38 50 48 48 47 47 44 51 43 38 45 50 49 37 46 51 53 48 51 47 51 52 50 31 50 47 47 43 41 51 50 22 41 53 42 52 44 53 50 36 47 44 45
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