diff --git a/R/mortality_processes.R b/R/mortality_processes.R index 1e7446d9..71306c49 100644 --- a/R/mortality_processes.R +++ b/R/mortality_processes.R @@ -116,7 +116,7 @@ reset_target <- function(variables, events, target, state, parameters, timestep) # onwards infectiousness variables$infectivity$queue_update(0, target) - + # treated compartment residence time: if(!is.null(variables$dt)) { variables$dt$queue_update(parameters$dt, target) diff --git a/R/processes.R b/R/processes.R index 1a7b2ebb..a8c20efb 100644 --- a/R/processes.R +++ b/R/processes.R @@ -30,7 +30,7 @@ create_processes <- function( correlations, lagged_eir, lagged_infectivity, - timesteps, + timesteps, mixing = 1, mixing_index = 1 ) { @@ -105,22 +105,22 @@ create_processes <- function( 0 ) ) - + # ======================= # Antimalarial Resistance # ======================= # Add an a new process which governs the transition from Tr to S when # antimalarial resistance is simulated. The rate of transition switches # from a parameter to a variable when antimalarial resistance == TRUE. - + # Assign the dt input to a separate object with the default single parameter value: dt_input <- parameters$dt - - # If antimalarial resistance is switched on, assign dt variable values to the + + # If antimalarial resistance is switched on, assign dt variable values to the if(parameters$antimalarial_resistance) { dt_input <- variables$dt } - + # Create the progression process for Tr --> S specifying dt_input as the rate: processes <- c( processes,