Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
8485 1500000 103833 15000 9964 10000 15000 18896 5000 30657 20335 3105 34965 7400 17232 13681 16000 10879 36000 434084 33837 12101 11242 90215 228 14034 37700 18491 12913 100000 3500 600 17859 50 52000 31730 7551 0 17000 12000 52000 0 1126 39466 21000 27368 20200 50000 18450 9520 8241 101647 37782 25109 46500 16112 80000 526269 70745 20516 400 24000 20000 70000 3084506 9206 10882 29828 1000 18269 32031 68770 12759 10659 7495 19951 2056743 73467 16000 10393 2662 0 0 25986 6541 0 9964 6971 6986 5000 9501 3152 23009 68120 9841 10000 41214 2000 10000 28467 12545 12500 2188 25000 250 5256 37000 18013 2803 28074 637957 12804 10000 27607 337 15869 4123 85291 16340 9133 0 14634 0 10000 3030 9695 4000 2960 54938 634746 7164 100 1451529 55000 23747 4200 127800 53779 9573 16897 15463 13650 20833 22376 26253 107441 16725 66711 517 13986 18352 70000 1100 59343 14548 7214 78780 20400 11492 2998 37240 8240 11322 716360 26059 9666 10000 33100 24573 4700 50400 25217 22692 1921 33000 5000 80000 2000 46297 9964 4435 104600 9950 30000 15000 179895 14164 6620 15000 25150 8537 50 14768 21507 68350 13671 26771
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