\begin{Schunk}
\begin{Sinput}
 boxplot(x)
 text(0.8, median(x), paste("median is", round(median(x), 2)), pos=2)
 text(1.2, 37, paste("box=interquartile \n range"))
\end{Sinput}
\end{Schunk}
