Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
16870 15080 15070 13850 16320 15110 15590 16300 15790 16530 21520 21480 17520 17650 17170 15580 15750 15200 18050 18000 17190 20080 22420 24780 20300 16550 16930 16230 18050 17460 17950 19260 16190 19920 22330 21920 20800 17680 18350 15690 19760 18530 19650 16890 17780 19760 23970 26540 20970 19630 16770 19410 20030 18130 20120 19120 20840 20800 21180 21500 16080 15030 15480 13820 17310 17980 17790 18870 20040 20770 20920 20510 15770 13560 16520 13820 15190 14210 14420 15430 16560 15610 19050 21990 14730 16550 14070 13950 15300 13090 15260 13270 16270 17480 19580 22740 16480 14010 14110 14030 13940 15200 15280 16430 15150 16850 20000 22150 19560 14620 15630 14590 14460 16220 16570 16380 16430 16830 20500 22620 18130 14450 17620 14610 15560 14310 14270 15540 16450 16530 20160 22070 16650 13610 15060 13600 14530 15220 14600 15520 15480 18270 17370 19410 14740 14580 15420 14040 15220 13850 16410 15100 16810 19380 18680 17260 14560 14450 14560 13650 14870 15580 14880 16840 15940 18500 19980 20790 14940 10571 12181 11681 12361 10761 11741 11391 14271 14871 14831 15131 13571 11651 12821 11101 12971 11851 12221 12841 14441 15751 17371 17631
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