Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
109 68 131 71 68 89 115 78 118 87 162 49 122 96 100 82 100 115 141 110 146 90 121 104 147 110 108 113 115 61 60 109 68 111 77 73 89 78 110 65 117 63 52 62 131 101 42 77 96 57 112 49 56 86 88 48 85 63 102 162 86 114 94 81 110 64 104 105 49 88 95 102 99 63 76 109 117 57 120 73 91 108 105 119 31 48 50 150 154 194 158 159 67 147 39 100 111 138 101 101 114 165 114 111 75 82 121 32 150 117 165 154 126 138 149 145 120 138 109 132 172 169 114 156 172 167 113 173 2 165 165 118 158 49 155 151 220 141 122 44 152 107 154 103 154 175 143 110 131 167 137 121 149 168 140 168 94 51 145 66 109 128 164 119 126 132 142 83 166 93 117
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