Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
149 139 148 158 128 224 159 159 167 165 159 119 176 163 124 137 121 153 148 221 188 149 244 148 150 153 156 132 161 151 131 166 157 145 162 163 187 116 148 155 125 116 128 138 164 162 202 186 183 214 188 177 126 139 162 159 116 127 133 114 140 121 126 130 118 150 154 194 158 159 147 138 131 114 165 114 121 150 117 165 154 126 149 145 120 132 172 169 114 156 172 167 115 118 173 162 122 115 141 165 165 118 158 146 121 155 147 115 151 220 141 117 122 131 152 154 175 143 131 167 137 121 149 168 140 168 145 162 114 164 119 126 132 142 166 117 120 117 119
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