\begin{Schunk}
\begin{Sinput}
 dat$totnum <- dat$nummen + dat$numwomen
 hist(dat$totnum, prob=TRUE, xlab="Total sexual partners (Male + Female)", main = "All Respondents")
\end{Sinput}
\end{Schunk}
