data(diet)
# Illustrate the follow-up in a Lexis diagram
Lexis.diagram( age=c(30,75), date=c(1965,1990),
entry.date=cal.yr(doe), exit.date=cal.yr(dox), birth.date=cal.yr(dob),
fail=(fail>0), pch.fail=c(NA,16), col.fail=c(NA,"red"), cex.fail=1.0,
data=diet )
Run the code above in your browser using DataLab