Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
2291180 1971664 2193270 2197733 2345324 2195121 2170583 2241521 2154945 2912568 2392562 3336621 4080642 3735329 4018383 4171360 3855698 4101316 4199346 3959646 3960841 4784025 4105467 5929558 4048642 3828808 4268127 4171816 4004783 4295447 3968177 3918480 4040260 4530715 4103330 6025506 4632308 4133863 4519182 4151573 4486595 4504699 4180443 4222193 4373727 4734738 4403232 5903985 4414074 4061816 4504697 3994176 4114925 4485120 4171230 4476075 4179369 4823185 4585751 6110454 4279575 3782118 4098678 4065616 4413733 4481214 4345018 4294488 4361269 4535031 4318397 6040168
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