Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
400 100 250 450 100 500 450 400 51 300 250 250 120 200 230 100 450 500 190 300 175 640 250 482 500 150 250 350 900 580 850 200 550 200 250 450 250 500 700 650 400 51 500 577 580 150 200 650 800 450 250 960 250 600 800 700 300 400 600 500 200 638 450 200 440 200 500 700 1000 900 1000 360 350 280 1200 150 1100 1016 1200 580 600 800 400 500 230 300 500 110 700 1400 500 450 350 780 1250 400 300 200 51 500 500 650 830 250 710 900 250 1100 120 1500 200 580 210 150 650 1900 967 200 600 150 160 280 752 900 500 150 300 400 100 500 450 80 300 400 150 200 800 600 250 750 200 300 800 400 51 1250 500 350 1150 600 200 1300 550 200 300 700 700 500 500 700 300 250 300 900 1200 750 300 600 600 700 750 560 600 400 200 1000 500 450 850 850 350 900 1100 500 800 1200 500 650 550 400 650 400 600 700 500 600 800 800 350 1000 383 950 280 1000 600 600 380 350 1500 1000 500 380 1100 950 900 900 800 400 800 750 300 1000 1500 550 800 750 850 600 300 1000 900 800 800 800 1100 900 1250 2500 250 1250 1000 1600 950 900 350 1000 700 630 1200 600 600 1000 1100 800 800 980 800 1400 2000 1000 1200 1000 1100 1000 700 1400 850 1000 1200
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