# NOT RUN {
Lexis.diagram( entry.age = c(3,30,45),
risk.time = c(25,5,14),
birth.date = c(1970,1931,1925.7),
fail = c(TRUE,TRUE,FALSE) )
Lexis.lines( entry.age = sample( 0:50, 100, replace=TRUE ),
risk.time = sample( 5:40, 100, r=TRUE),
birth.date = sample( 1910:1980, 100, r=TRUE ),
fail = sample(0:1,100,r=TRUE),
cex.fail = 0.5,
lwd.life = 1 )
# }
Run the code above in your browser using DataLab