# NOT RUN {
# ITP and MMR data
# }
# NOT RUN {
itp.mod <- nonparasccs(indiv=case, astart=sta, aend=end,
aevent=itp, adrug=mmr, aedrug=mmr+42, sp1=28000, sp2=1200,
data=itpdat)
# }
# NOT RUN {
# }
# NOT RUN {
itp.mod
# }
# NOT RUN {
# Plot the exposure and age related relative incidence functions
# }
# NOT RUN {
plot(itp.mod)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab