Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
108 10 66 23 25 56 73 34 72 42 74 16 66 9 41 57 48 51 53 55 51 79 39 55 30 55 22 37 2 38 27 56 25 39 33 43 43 23 44 28 39 23 24 29 78 57 37 27 44 39 51 31 24 30 27 14 28 41 31 74 19 51 51 62 59 24 54 39 16 36 31 31 42 39 25 31 38 31 17 22 55 62 51 49 16 12 45 37 37 68 72 143 9 55 17 37 27 37 58 21 19 78 35 48 27 43 30 25 69 72 13 61 43 22 51 67 36 21 44 45 34 36 72 39 43 80 40 61 23 29 29 54 43 20 61 57 54 36 16 40 27 61 69 34 21 34 34 13 12 51 19 81 42 22 85 25 22 19 45 45 51 24 73 24 61 23 14 54 36 26 30
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