Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
29.82 3.16 38.48 20.82 0.09 41.09 2.97 0.1 23.05 8.46 9.31 0.37 1.32 154.7 0.28 9.4 11.06 10.05 0.06 0.74 10.5 3.83 2 198.66 0.03 0.41 7.28 16.46 9.85 0.49 14.86 21.7 34.84 0.06 4.53 12.45 17.46 1408.04 47.7 0.72 4.34 65.7 4.8 19.84 4.31 11.27 1.13 10.66 5.6 0.86 0.07 10.28 15.49 80.72 6.3 0.74 6.13 1.29 91.73 0.88 5.41 63.98 0.24 0.27 1.63 1.79 4.36 82.8 25.37 11.12 0.1 0.46 15.08 11.45 1.66 0.8 10.17 7.94 9.98 1236.69 246.86 76.42 32.78 4.58 7.64 60.92 2.77 127.25 7.01 16.27 43.18 24.76 49 3.25 5.47 6.65 2.06 4.65 2.05 4.19 6.16 3.03 0.52 2.11 22.29 15.91 29.24 14.85 0.4 3.8 1.24 120.85 3.51 2.8 0.62 0 32.52 25.2 52.8 2.26 0.01 27.47 16.71 0.25 4.46 5.99 17.16 168.83 4.99 3.31 179.16 3.8 7.17 6.69 29.99 96.71 38.21 10.6 2.05 0.86 21.76 143.17 11.46 0.05 0.18 0.11 0.19 0.19 28.29 13.73 9.55 5.98 5.3 5.45 2.07 0.55 10.2 52.39 46.76 21.1 0.54 1.23 9.51 8 21.89 8.01 47.78 66.78 1.11 6.64 0.1 1.34 10.88 74 5.17 36.35 45.53 63.03 9.206 317.5 3.4 28.54 29.96 90.8 0.01 23.85 14.08 13.72
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