# NOT RUN {
data(fin)
data(fin.fcast)
fin.pcast <- pop.pred(fin,fin.fcast)
plot(fin,plot.type="functions",series="total",transform=FALSE,datatype="pop",
ages=c(0:100), years=c(1990+0:5*10), xlab="Age")
lines(fin.pcast,plot.type="functions",series="total",transform=FALSE,
datatype="pop",ages=c(0:100), years=c(1990+0:5*10), lty=2)
# }
Run the code above in your browser using DataCamp Workspace