Takes daily rain-forcing time series input and adds it to the parameter set
Examples
n_days = 1000
t <- 1:n_days
rainfall_ts <- sin((t*2*pi)/365) + 1.1
params <- get_parameters() |>
set_rainfall_manual(rainfall_ts) |>
set_equilibrium(init_EIR = 5)