\begin{Schunk}
\begin{Sinput}
 myx <- rexp(1000, 5)
 hist(myx , breaks=30, prob=T, xlab="Skewed", ylab="Density", main="")
 mx <- round(mean(myx, na.rm=T), 2)
 sdx <- round(sd(myx, na.rm=T), 2)
 text(mx, 4.0, pos=4, label=paste("Mean = ", mx), col="red") 
 text(mx+0.5, 1.35, pos=4, label=paste("Std. Dev. = ", sdx))
 abline(v=mx, col="red")
 medx <- round(median(myx), 2)
 abline(v=medx, col="green")
 text(medx, 3.0, pos=4, label=paste("Median =", medx), col="green")
\end{Sinput}
\end{Schunk}
