\begin{Schunk}
\begin{Sinput}
 x <- 40 + 8*rgamma(1000, 1, 2)
 boxplot(x, xlim=c(0,2))
 text(0.8, median(x), paste("median is", round(median(x), 2)), pos=2)
 text(1.2, mean(x), paste("mean is", round(mean(x),1)), pos=4)
 points(1.0, mean(x), pch=13, col="red", cex=2)
\end{Sinput}
\end{Schunk}
