diff --git a/R/human_infection.R b/R/human_infection.R index 54c32b8e..f712b5bd 100644 --- a/R/human_infection.R +++ b/R/human_infection.R @@ -386,7 +386,7 @@ calculate_lm_det_infections <- function( min = parameters$philm_min, max = parameters$philm_max, a50 = parameters$alm50, k = parameters$klm, iaa = iaa, iam = iam) - lm_det_infections <- bitset_at(infections, bernoulli_multi_p(philm)) + bitset_at(infections, bernoulli_multi_p(philm)) } #' @title Calculate clinical infections diff --git a/R/processes.R b/R/processes.R index 5efadc88..f5e5a7b7 100644 --- a/R/processes.R +++ b/R/processes.R @@ -191,7 +191,7 @@ create_processes <- function( if(parameters$parasite == "falciparum"){ imm_var_names <- c(imm_var_names, 'ib', 'iva', 'ivm', 'id') } else if (parameters$parasite == "vivax"){ - imm_var_names <- c(imm_var_names, 'iaa', 'iam','hypnozoites') + imm_var_names <- c(imm_var_names, 'iaa', 'iam', 'hypnozoites') ## hypnozoite infection prevalence rendering processes <- c(