Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
105 54 91 92 94 105 97 111 59 109 90 105 83 42 49 96 99 66 104 76 99 108 74 110 96 87 97 106 80 74 91 74 95 98 98 95 110 70 102 86 96 102 100 94 52 98 99 48 50 109 68 67 39 100 111 101 101 111 75 82 32 71 109 68 89 113 78 87 2 49 96 100 82 100 110 49 90 104 110 108 113 61 60 109 68 111 77 73 89 78 110 65 63 44 52 101 42 107 77 103 96 57 112 49 110 56 86 88 94 51 48 66 85 109 63 102 86 83 94 81 110 64 93 104 105 49 88 95 102 99 63 76 109 57 73 91 108 105 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
2 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation