Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
3592.21 5955.74 4652.25 4211.65 4787.85 3599.73 4174.27 5106.33 5325.75 6604.61 5711.90 6919.30 7048.76 8655.98 6658.53 7247.03 8779.57 6602.49 9832.48 9369.49 8582.76 8206.94 6515.83 8618.10 8505.39 9881.64 9375.29 15642.50 12232.73 6288.93 12473.94 11142.82 10236.32 10581.51 8763.71 10819.04 11636.25 14650.13 10671.38 17468.63 13873.19 13077.58 16866.81 14186.64 19919.87 17681.78 9984.28 17423.09 13514.45 12334.57 12274.56 11752.23 13054.00 12460.98 8626.68 13722.62 12066.22 6798.83 6593.82 6606.19 6315.28 7232.95 6747.44 7803.61 6700.31 5369.53 8081.19 10718.39 9447.21 6815.10 5497.80 6805.31
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