sims <- create_sims(n_reps = 100, n = 1000, central = 100,
sd = 10, exposure_type = "continuous",
exposure_trend = "cos1",
exposure_amp = 0.6,
average_outcome = 20,
outcome_trend = "no trend",
rr = 1.02)
fits <- fit_mods(data = sims, custom_model = spline_mod,
custom_model_args = list(df_year = 1))
check_sims(df = fits, true_rr = 1.02)
Run the code above in your browser using DataLab