\begin{Schunk}
\begin{Sinput}
 par(xpd=T)
 h1 <- hist(dat$nummen, prob=T, main="Male Sexual Partners (nummen)", xlab="Number of Male Sexual Partners", ylim=c(0,0.7)) 
 text(max(h1$mids), 0.5, pos=1, label=paste("Mean=", mnummen,"\nStd.Dev=", sdnummen,"\nMedian=", mednummen,"\nC.V.=", cvnummen))  
\end{Sinput}
\end{Schunk}
