Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
8378669.00 7557530.00 8656721.00 7729873.00 7067002.00 7222189.00 6758161.00 6745665.00 8203660.00 8799755.00 7995151.00 6844694.00 7400186.00 6146183.00 6793027.00 5815146.00 5993505.00 5838016.00 5926815.00 5642890.00 7120621.00 7781743.00 7638921.00 5886070.00 7358890.00 6981189.00 8423532.00 6819313.00 6727221.00 6923349.00 7578240.00 7228898.00 8988846.00 8404694.00 9601659.00 8213138.00 8434646.00 8466539.00 9106270.00 8438555.00 7723821.00 7538413.00 7199881.00 8168314.00 9045790.00 8544483.00 9020709.00 7932021.00 8435986.00 7920357.00 8333659.00 7415547.00 7770392.00 8188878.00 8092465.00 7188528.00 8152373.00 9025069.00 9233973.00 6916290.00 8171721.00 7012501.00 8779456.00 7308709.00 8084547.00 8255978.00 7658071.00 7371877.00 8780827.00 10116778.00 9567175.00 7455902.00
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