\begin{Schunk}
\begin{Sinput}
 # One approach
 boxplot(totnum~ sex , data=dat, ylab="Sex Partners since age 18 (excl. cases > 99)",xlab="Respondent Gender", names=c("Male","Female"))
\end{Sinput}
\end{Schunk}
