> attach(mw.ages) > plot(1:103, Male + Female, type="l") > lines(supsmu(1:103,Male),lty=2) > lines(supsmu(1:103,Female),lty=3)