R/simulate_heterogeneity_ode.R

#' Simulation of a compartmental infectious disease transmission model with 2 types of hosts
#'
#' @description  This model allows for the simulation of an ID with 2 types of hosts
#' 
#'
#' @param S1 : initial number of susceptible type 1 hosts : numeric 
#' @param I1 :  initial number of infected type 1 hosts : numeric
#' @param S2 :  initial number of susceptible type 2 hosts : numeric
#' @param I2 :  initial number of infected type 2 hosts : numeric
#' @param b11 :  rate of transmission from infected type 1 host to susceptible type 1 host : numeric
#' @param b22 :  rate of transmission from infected type 2 host to susceptible type 2 host : numeric
#' @param b12 :  rate of transmission from infected type 1 host to susceptible type 2 host : numeric
#' @param b21 :  rate of transmission from infected type 2 host to susceptible type 1 host : numeric
#' @param g1 :  the rate at which infected type 1 hosts recover : numeric
#' @param g2 :  the rate at which infected type 2 hosts recover : numeric
#' @param w1 :  the rate at which type 1 host immunity wanes : numeric
#' @param w2 :  the rate at which type 2 host immunity wanes : numeric
#' @param tmax :  maximum simulation time, units of months : numeric
#' @return This function returns the simulation result as obtained from a call
#'   to the deSolve ode solver.
#' @details A compartmental ID model with several states/compartments
#'   is simulated as a set of ordinary differential
#'   equations. The function returns the output from the odesolver as a matrix,
#'   with one column per compartment/variable. The first column is time.
#' @section Warning:
#'   This function does not perform any error checking. So if you try to do
#'   something nonsensical (e.g. any negative values or fractions > 1),
#'   the code will likely abort with an error message.
#' @examples
#'   # To run the simulation with default parameters just call the function:
#'   result <- simulate_heterogeneity_ode()
#'   # To choose parameter values other than the standard one, specify them like such:
#'   result <- simulate_heterogeneity_ode(S1 = 100, S2 = 1e3, b11 = 0.7, tmax = 100)
#'   # You should then use the simulation result returned from the function, like this:
#'   plot(result$ts[,"time"],result$ts[,"S1"],xlab='Time',ylab='Number Susceptible 1',type='l')
#' @seealso The UI of the Shiny app 'Host Heterogeneity', which is part of this package, contains more details on the model.
#' @author Andreas Handel
#' @references See e.g. Keeling and Rohani 2008 for SIR models and the
#'   documentation for the deSolve package for details on ODE solvers
#' @export


simulate_heterogeneity_ode <- function(S1 = 1e3, I1 = 1, S2 = 1e3, I2 = 0, b11 = 0.01, b12 = 0, b21 = 0, b22 = 0, g1 = 1, g2 = 1, w1 = 0, w2 = 0, tmax = 120)
{
  
  # This function is used in the solver function and has no independent usages
  heterogeneityeq <- function(t, y, parms)
  {
    with(
      as.list(c(y,parms)), #lets us access variables and parameters stored in y and pars by name
      {
        
        #the ordinary differential equations
        dS1 =  - S1 * (b11 * I1 + b21 * I2) + w1 * R1; #susceptibles
        dI1 =  S1 * (b11 * I1 + b21 * I2)  - g1 * I1 #infected, symptomatic
        dR1 =   g1 * I1 - w1 * R1 #recovered, immune
        
        dS2 =  - S2 * (b12 * I1 + b22 * I2) + w2 * R2; #susceptibles type 2
        dI2 =  S2 * (b12 * I1 + b22 * I2)  - g2 * I2 #infected, symptomatic type 2
        dR2 =   g2 * I2 - w2 * R2 #recovered, immune type 2
        
        
        list(c(dS1, dI1, dR1, dS2, dI2, dR2))
      }
    ) #close with statement
  } #end function specifying the ODEs
  
  
  
    ############################################################
  Y0 = c(S1 = S1, I1 = I1, R1 = 0, S2 = S2, I2 = I2, R2 = 0);  #combine initial conditions into a vector
  dt = min(0.1, tmax / 1000); #time step for which to get results back
  timevec = seq(0, tmax, dt); #vector of times for which solution is returned (not that internal timestep of the integrator is different)
  
  
  ############################################################
  #vector of parameters which is sent to the ODE function  
  pars=c(b11 = b11, b12 = b12, b21 = b21, b22 = b22, g1 = g1, w1 = w1, g2 = g2, w2 = w2); 

  #this line runs the simulation, i.e. integrates the differential equations describing the infection process
  #the result is saved in the odeoutput matrix, with the 1st column the time, the 2nd, 3rd, 4th column the variables S, I, R
  #This odeoutput matrix will be re-created every time you run the code, so any previous results will be overwritten
  odeoutput = deSolve::lsoda(Y0, timevec, func = heterogeneityeq, parms=pars, atol=1e-12, rtol=1e-12);

  result <- list()
  result$ts <- as.data.frame(odeoutput)
  return(result)
}

Try the DSAIDE package in your browser

Any scripts or data that you put into this service are public.

DSAIDE documentation built on July 4, 2019, 5:04 p.m.