# NOT RUN {
birth <- mk_event_poisson('birth', intensity = 10)
# }
# NOT RUN {
params <- list(beta = 10)
death <- mk_event_poisson('death', intensity = 'beta') # name of one parameter
mk_model(events = list(birth, death), parameters = params)
# }
# NOT RUN {
# }
Run the code above in your browser using DataCamp Workspace