base <- create_baseline(n = 10, average_baseline = 22, trend = "linear",
slope = .4)
exp <- sim_exposure(n = 5, central = 100, sd = 10, amp = .6,
exposure_type = "continuous")
create_lambda(baseline = base, exposure = exp$x, rr = 1.01)
Run the code above in your browser using DataLab