Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
7054 8170 8620 8771 11379 12066 12657 27438 27733 29722 30169 30936 31879 32228 32745 33008 33228 33425 33666 34077 34571 34801 34870 34931 35117 35429 35699 36222 36279 36432 37013 37848 37898 37967 38064 38401 38529 38683 38708 39018 39253 39341 39383 39401 39486 39525 39556 40439 40600 40809 40870 40891 40898 41117 41519 41547 41629 41697 41756 41888 42438 43412 44720 44953 45315 45409 45633 47060 47221 48138 48428 49267 50380 50530 50669 51321 52073 56676 62557 68184 68897 68906 69116 70249 70938
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