# NOT RUN {
# }
# NOT RUN {
library(missDeaths)
sim = md.simparams() +
md.sex("sex", 0.5) +
md.uniform("birth", as.Date("1915-1-1"), as.Date("1930-1-1")) +
md.uniform("start", as.Date("2000-1-1"), as.Date("2005-1-1")) +
md.death("death", survexp.us, "sex", "birth", "start") +
md.eval("age", "as.numeric(start - birth)/365.2425", 80, FALSE) +
md.exp("event", "start", c("age", "sex"), c(0.1, 2), 0.05/365.2425)
data = md.simulate(sim, 1000)
complete = md.censor(data, "start", as.Date("2010-1-1"), c("event", "death"))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab