diff --git a/R/sim_contacts.R b/R/sim_contacts.R index aab20f5..caaf639 100644 --- a/R/sim_contacts.R +++ b/R/sim_contacts.R @@ -37,8 +37,8 @@ #' infectious_period = infectious_period, #' prob_infection = 0.5 #' ) -sim_contacts <- function(contact_distribution = function(x) stats::dpois(x = x, lambda = 2), # nolint line_lenght_linter - infectious_period = function(x) stats::rlnorm(n = x, meanlog = 2, sdlog = 0.5), # nolint line_lenght_linter +sim_contacts <- function(contact_distribution = function(x) stats::dpois(x = x, lambda = 2), # nolint line_length_linter. + infectious_period = function(x) stats::rlnorm(n = x, meanlog = 2, sdlog = 0.5), # nolint line_length_linter. prob_infection = 0.5, outbreak_start_date = as.Date("2023-01-01"), anonymise = FALSE,