\begin{Schunk}
\begin{Sinput}
 xy1 <-
 histogram(~I(numwomen+nummen)  | sex, data=dat, xlim=c(0,100))
 print(xy1)
\end{Sinput}
\end{Schunk}
