problem-3.33

problem-3.33  We can make the plot and add the lines with
> attach(mw.ages)
> plot(1:103, Male + Female, type="l")
> lines(supsmu(1:103,Male),lty=2)
> lines(supsmu(1:103,Female),lty=3)
    
The town is a suburb of New York City. Most twenty somethings move away, returning after they are ready to settle down.