--- title: "Spread of a pathogen in a discrete structured population" author: "Sebastian Lequime" date: "`r Sys.Date()`" output: rmarkdown::html_vignette vignette: > %\VignetteIndexEntry{Spread of a pathogen in a discrete structured population} %\VignetteEngine{knitr::rmarkdown} %\VignetteEncoding{UTF-8} %\VignetteDepends{ggplot2} %\VignetteDepends{dplyr} %\VignetteDepends{igraph} %\VignetteDepends{viridis} %\VignetteDepends{ggnetwork} --- ```{r setup, include=FALSE} knitr::opts_chunk$set( collapse = TRUE, comment = "#>" ) ``` Aside from the simple simulation set up, explored in [another tutorial](none.html), where hosts are "not structured", `nosoi` can take into account a population structured either in discrete states or in a continuous space. We focus here on a discrete state structure (for the continuous structure, see [this tutorial](continuous.html)). The discrete structure is intended to allow the simulation to take place in a geographical context with discrete states such as countries, regions, islands, cities. Note that other kind of structures could be taken into account (e.g. high risk/low risk, etc). In this setting, parameter values are allowed to change according to the host's current location among the available states. This tutorial focuses on setting up a `nosoi` simulation for a pathogen which host population is structured between different locations. # Structure of the population We consider here a population of hosts that are in three different locations called "A", "B" and "C". Hosts can move (if they undergo a movement event) between these locations with a certain probability that can be set directly, or derived from other data. Here, we take the transition matrix, called here after `structure.matrix`, to be: ```{r setupMatrix2, echo=FALSE} matrix(c(0, 0.2, 0.4, 0.5, 0, 0.6, 0.5, 0.8, 0), nrow = 3, ncol = 3, dimnames = list(c("A", "B", "C"), c("A", "B", "C"))) ``` It can graphically be represented as follows: ```{r setupMatrix, echo=FALSE, message=FALSE, warning=FALSE} if (!(requireNamespace("ggplot2", quietly = TRUE) && requireNamespace("viridis", quietly = TRUE) && requireNamespace("igraph", quietly = TRUE) && requireNamespace("ggnetwork", quietly = TRUE))) { message("Packages 'ggplot2', 'viridis', 'igraph' and 'ggnetwork' are needed for plotting this figure.") } else { library(ggplot2) library(viridis) library(igraph) library(ggnetwork) transition.matrix <- matrix(c(0, 0.2, 0.4, 0.5, 0, 0.6, 0.5, 0.8, 0), nrow = 3, ncol = 3, dimnames = list(c("A", "B", "C"), c("A", "B", "C"))) # melting the matrix go get from -> to in one line with probability melted.transition.matrix <- as.data.frame.table(transition.matrix, stringsAsFactors = FALSE) colnames(melted.transition.matrix) <- c("from", "to", "prob") melted.transition.matrix <- subset(melted.transition.matrix, melted.transition.matrix$prob != 0) graph.Matrix <- igraph::graph.data.frame(melted.transition.matrix, directed = TRUE) graph.Matrix2 = igraph::layout_in_circle(graph.Matrix) if (utils::packageVersion("ggnetwork") > "0.5.12") { # unfortunately, the update to igraph 2.0.0 has broken the connection # between ggnetwork and igraph, see: # https://github.com/briatte/ggnetwork/issues/74 #using ggnetwork to provide the layout graph.matrix.network <- ggnetwork::ggnetwork(x = graph.Matrix, layout = graph.Matrix2, arrow.gap = 0.18) graph.matrix.network2 <- subset(graph.matrix.network, !is.na(graph.matrix.network$prob)) #plotting the network ggplot(graph.Matrix, aes(x = x, y = y, xend = xend, yend = yend)) + geom_edges(color = "grey70", arrow = arrow(length = unit(1, "lines"), type = "closed"), curvature = 0.2) + geom_nodes(aes(color = name) , size = 30) + geom_nodetext(aes(label = name), color = "white", fontface = "bold", size = 15) + scale_color_viridis(guide = FALSE, discrete = TRUE) + theme_blank() + ylim(-0.5, 1.2) + xlim(-0.5, 1.2) + geom_text(data = graph.matrix.network2, aes(x = (x + xend) / 2, y = (y + yend) / 2, label = prob, color = name), size = 6) } else { plot(graph.Matrix, edge.label = melted.transition.matrix$prob, vertex.color = "white", edge.curved = seq(-0.5, 0.5, length = 1 + ecount(graph.Matrix)), arrow.mode = 3, edge.arrow.size = 0.3) } } ``` For `structure.matrix` to be adequate, a few rules have to be followed: - `structure.matrix` should be of class `matrix`; - `structure.matrix` should have the same number of rows and columns, and they should have the same names; - `structure.matrix` rows represent departure states and columns arrival states. Each coefficient is the probability of moving from a departure state to a different arrival state if a movement is made. Row values thus sum up to 1. # Setting up the simulation The wrapper function `nosoiSim` takes all the arguments that will be passed down to the simulator, in the case of this tutorial `singleDiscrete` (for "single host, discrete structure"). We thus start by providing the options `type="single"` and `popStructure="discrete"` to set up the analysis: ```{r setupA, eval=FALSE} SimulationSingle <- nosoiSim(type="single", popStructure="discrete", ...) ``` This simulation type requires several arguments or options in order to run, namely: - `length.sim` - `max.infected` - `init.individuals` - `init.structure` - `structure.matrix` - `pExit` with `param.pExit`, `timeDep.pExit`, `diff.pExit` and `hostCount.pExit` - `pMove` with `param.pMove`, `timeDep.pMove`, `diff.pMove` and `hostCount.pMove` - `nContact` with `param.nContact`, `timeDep.nContact`, `diff.nContact` and `hostCount.nContact` - `pTrans` with `param.pTrans`, `timeDep.pTrans`, `diff.pTrans` and `hostCount.pTrans` - `prefix.host.A` - `print.progress` - `print.step` All the `param.*` elements provide individual-level parameters to be taken into account, while the `timeDep.*` elements inform the simulator if the "absolute" simulation time should be taken into account. The `diff.*` elements inform the simulator if there is a differential probability according to the state the host is currently in and the `hostCount.*` elements inform the simulator if the number of host in each state has to be taken into account. All parameters must be provided, although `timeDep.*`, `diff.*` and `hostCount.*` have default values set to `FALSE`; if you do not want to use these options, then you do not have to explicitly provide a value. ## General parameters `length.sim` and `max.infected` are general parameters that define the simulation: - `length.sim` is the maximum number of time units (e.g. days, months, years, or another time unit of choice) during which the simulation will be run. - `max.infected` is the maximum number of individuals that can be infected during the simulation. `init.individuals` and `init.structure` are the “seeding parameters”: - `init.individuals` defines the number of individuals (an integer above 1) that will start a transmission chain. Keep in mind that you will have as many transmission chains as initial individuals, which is equivalent as launching a number of independent nosoi simulations. - `init.structure` specifies the original location of these individuals in the structured population (has to be the same original location for all starting individuals). The location provided in `init.structure` should of course be present in the `structure.matrix`. Here, we will run a simulation starting with 1 individual, for a maximum of 1,000 infected individuals and a maximum time of 300 days. ```{r setupB, eval=FALSE} SimulationSingle <- nosoiSim(type="single", popStructure="none", length.sim=300, max.infected=1000, init.individuals=1, ...) ``` ## Core functions The core functions `pExit`, `nContact`, `pMove` and `pTrans` each follow the [same principles to be set up](nosoi.html#setting-up-the-core-functions). To accommodate for different scenarios, they can be constant, time-dependent (using the relative time since infection `t` for each individual or the "absolute" time `pres.time` of the simulation) or even individually parameterized, to include some stochasticity at the individual-host level. In any case, the provided function, like all other core functions in `nosoi`, has to be expressed as a function of time `t`, even if time is not used to compute the probability. In case the function uses individual-based parameters, they must be specified in a list of functions (called `param.pExit`, `param.nContact`, `param.pMove` or `param.pTrans`) (see [Get started](nosoi.html#parameters)). If no individual-based parameters are used, then these lists are set to `NA`. > Keep in mind that `pExit`, `pMove`, and `pTrans` have to return a probability (i.e. a value between 0 and 1) while `nContact` should return a natural number (positive integer or zero). Several parameters, such as the time since infection, the "absolute" time of the simulation, the location (in the discrete states) and individual-based parameters can be combined within the same function. > `nosoi` can be flexible in what it allows as parameters in your function, but a common general structure should be observed. > The argument of the function should be (in that order): > > 1. time since infection `t` (compulsory); > 2. "absolute" time `prestime` (optional); > 3. current state `current.in` (optional); > 4. host count in state `host.count` (optional); > 5. other individual-based parameter(s), provided in `param.function`. > > If one of the argument is not used (except `t`), then you do not have to provide it and can continue with the next argument. ### `pExit`, `param.pExit`, `timeDep.pExit`, `diff.pExit` and `hostCount.pExit` - `pExit` is the first required fundamental parameter and provides a daily probability for a host to leave the simulation (either cured, died, etc.). - `param.pExit` is the list of functions needed to individually parameterize `pExit` (see [Get started](nosoi.html#parameters)). The name of each function in the list has to match the name of the parameter it is sampling for `pExit`. - `timeDep.pExit` allows for `pExit` to be dependent on the "absolute" time of the simulation, to account - for example - for seasonality or other external time-related covariates. By default, `timeDep.pExit` is set to `FALSE`. - `diff.pExit` allows `pExit` to differ according to the current discrete state of the host. This can be useful, for example, if one state has a higher mortality rate (or better cures!) for the infection, in that case the probability to exit the simulation is higher. By default, `diff.pExit` is set to `FALSE`. Be careful, every state should give back a result for `pExit`. - `hostCount.pExit` allows `pExit` to differ according to the number of hosts currently in a state. By default, `hostCount.pExit` is set to `FALSE`. To use `hostCount.pExit`, `diff.pExit` has to be set to `TRUE` too. ### `pMove`, `param.pMove`, `timeDep.pMove`, `diff.pMove` and `hostCount.pMove` - `pMove` is the probability (per unit of time) for a host to do move, i.e. to leave its current state (for example, leaving state "A"). It should not be confused with the probabilities extracted from the `structure.matrix`, which represent the probability to go to a specific location once a movement is ongoing (for example, going to "B" or "C" while coming from "A"). - `param.pMove` is the list of functions needed to individually parameterize `pMove` (see [Get started](nosoi.html#parameters)). The name of each function in the list has to match the name of the parameter it is sampling for `pMove`. - `timeDep.pMove` allows for `pMove` to be dependent of the "absolute" time of the simulation, to account, for example, for seasonality or other external time related covariates. By default, `timeDep.pMove` is set to `FALSE`. - `diff.pMove` allows `pMove` to be different according to the current discrete state of the host, to account, for example, of different traveling rates in different states. By default, `diff.pMove` is set to `FALSE`. Be careful, every state should give back a result for `pMove`. - `hostCount.pMove` allows for `pMove` to differ according to the number of hosts currently in a state. By default, `hostCount.pMove` is set to `FALSE`. To use `hostCount.pMove`, `diff.pMove` has to be set to `TRUE` too. ### `nContact`, `param.nContact`, `timeDep.nContact`, `diff.nContact` and `hostCount.nContact` - `nContact` represents the number (expressed as a positive integer) of potentially infectious contacts an infected hosts can encounter per unit of time. At each time point, a number of contacts will be determined for each active host in the simulation. The number of contacts (i.e. the output of your function) has to be an integer and can be set to zero. - `param.nContact` is the list of functions needed to individually parameterize `nContact` (see [Get started](nosoi.html#parameters)). The name of each function in the list has to match the name of the parameter it is sampling for `nContact`. - `timeDep.nContact` allows for `nContact` to be dependent on the "absolute" time of the simulation, to account - for example - for seasonality or other external time-related covariates. By default, `timeDep.nContact` is set to `FALSE`. - `diff.nContact` allows for `nContact` to differ according to the current discrete state of the host. By default, `diff.nContact` is set to `FALSE`. Be careful, every state should give back a result for `nContact`. - `hostCount.nContact` allows for `nContact` to differ according to the number of hosts currently in a state. This can be useful to adjust the number of contact to the number of potentially susceptible hosts if the infected population is close to the maximum size of the population in a state. By default, `hostCount.nContact` is set to `FALSE`. To use `hostCount.nContact`, `diff.nContact` has to be set to `TRUE` too. ### `pTrans`, `param.pTrans`, `timeDep.pTrans`,`diff.pTrans` and `hostCount.pTrans` - `pTrans` is the heart of the transmission process and represents the probability of transmission over time (when a contact occurs). - `param.pTrans` is the list of functions needed to individually parameterize `pTrans` (see [Get started](nosoi.html#parameters)). The name of each function in the list has to match the name of the parameter it is sampling for `pTrans`. - `timeDep.pTrans` allows for `pTrans` to be dependent on the "absolute" time of the simulation, to account - for example - for seasonality or other external time-related covariates. By default, `timeDep.pTrans` is set to `FALSE`. - `diff.pTrans` allows for `pTrans` to be different according to the current discrete state of the host. This can be used to account of different dynamics linked to external factors common within a state, such as temperature for example. By default, `diff.pTrans` is set to `FALSE`. Be careful, every state should give back a result for `pTrans`. - `hostCount.pTrans` allows `pTrans` to differ according to the number of hosts currently in a state. By default, `hostCount.pTrans` is set to `FALSE`. To use `hostCount.pTrans`, `diff.pTrans` has to be set to `TRUE` too. ## Miscellaneous `prefix.host` allows you to define the first character(s) for the hosts' unique ID. It will be followed by a hyphen and a unique number. By default, `prefix.host` is "H" for "Host". `print.progress` allows you to have some information printed on the screen about the simulation as it is running. It will print something every `print.step`. By default, `print.progress` is activated with a `print.step = 10` (you can change this frequency), but you may want to deactivate it by setting `print.progress=FALSE`. ## Dual host In the case of a dual host simulation, several parameters of the `nosoiSim` will have to be specified for each host type, designated by `A` and `B`. The wrapper function `nosoiSim` will then take all the arguments that will be passed down to the simulator, in the case of this tutorial `dualDiscrete` (for "dual host, discrete structure"). We thus start by providing the options `type="dual"` and `popStructure="discrete"` to set up the analysis: ```{r setupA-dual, eval=FALSE} SimulationDual <- nosoiSim(type="dual", popStructure="discrete", ...) ``` This function takes several arguments or options to be able to run, namely: - `length.sim` - `max.infected.A` - `max.infected.B` - `init.individuals.A` - `init.individuals.B` - `init.structure.A` - `init.structure.B` - `structure.matrix.A` - `structure.matrix.B` - `pExit.A` with `param.pExit.A`, `timeDep.pExit.A`, `diff.pExit.A` and `hostCount.pExit.A` - `pMove.A` with `param.pMove.A`, `timeDep.pMove.A`, `diff.pMove.A` and `hostCount.pMove.A` - `nContact.A` with `param.nContact.A`, `timeDep.nContact.A`, `diff.nContact.A` and `hostCount.nContact.A` - `pTrans.A` with `param.pTrans.A`, `timeDep.pTrans.A`, `diff.pTrans.A` and `hostCount.pTrans.A` - `prefix.host.A` - `pExit.B` with `param.pExit.B`, `timeDep.pExit.B`, `diff.pExit.B` and `hostCount.pExit.B` - `pMove.B` with `param.pMove.B`, `timeDep.pMove.B`, `diff.pMove.B` and `hostCount.pMove.B` - `nContact.B` with `param.nContact.B`, `timeDep.nContact.B`, `diff.nContact.B` and `hostCount.nContact.B` - `pTrans.B` with `param.pTrans.B`, `timeDep.pTrans.B`, `diff.pTrans.B` and `hostCount.pTrans.B` - `prefix.host.B` - `print.progress` - `print.step` As you can see, host-type dependent parameters are now designated by the suffix `.A` or `.B`. Both `max.infected.A` and `max.infected.B` have to be provided in order to set an upper limit on the simulation size. To initiate the simulation, you have to provide at least one starting host, either `A` or `B` in `init.individuals.A` or `init.individuals.B` respectively, as well as a starting position in `init.individuals.A` or `init.individuals.B`, respectively. If you want to start the simulation with one host only, then `init.individuals` of the other can be set to 0 and `init.structure` to `NA`. A major difference here is that hosts may or may not share the same `structure.matrix`. However, since they exist in the same "world", they should share the same state names. It is also possible to have a host that does not move. In such case, `pMove` can be set to `NA`. In such a "non-movement" case, a transition matrix with all the state names should still be provided. Here again, all parameters must be provided for both hosts, although `timeDep`, `diff` and `hostCount` have default values set to `FALSE`; if you do not want to use these options, then you do not have to explicitly provide a value. Be careful to switch `diff` to `TRUE` if you want to use `hostCount`, and remember to provide a result for each state. # Running `nosoi` ## Single host We present here a very simple simulation for a single host pathogen. ### pExit For `pExit`, we choose a probability that depends on the location where the host currently resides. Each location (state) has to be present, as shown in this example: ```{r pExit1, eval=FALSE} p_Exit_fct <- function(t,current.in){ if(current.in=="A"){return(0.02)} if(current.in=="B"){return(0.05)} if(current.in=="C"){return(0.1)} } ``` This function indicates that if the host is in state "A", it has 2% chance to exit, 5% if in state "B" and 10% if in state "C". Remember that `pExit`, like the other core functions, has to be function of `t`, even if `t` is not used. Since `pExit` is dependent on the location, `diff.pExit=TRUE`. However, there is no use of the "absolute" time of the simulation nor individual-based parameters, hence `timeDep.pExit=FALSE` and `param.pExit=NA`. ### pMove We choose a constant value for `pMove`, namely 0.1, i.e. an infected host has 10% chance to leave its state (here a location) for each unit of time. ```{r pMove1, eval=FALSE} p_Move_fct <- function(t){return(0.1)} ``` Remember that `pMove`, like the other core functions, has to be a function of `t`, even if `t` is not used. Since `pMove` is not dependent on the location, `diff.pMove=FALSE`. Similarly, there is no use of the "absolute" time of the simulation nor individual-based parameters, hence `timeDep.pMove=FALSE` and `param.pMove=NA`. ### nContact For `nContact`, we choose a constant function that will draw a value in a normal distribution of *mean* 0.5 and *sd* 1, round it, and take its absolute value. ```{r nContact1, eval=FALSE} n_contact_fct = function(t){abs(round(rnorm(1, 0.5, 1), 0))} ``` The distribution of `nContact` looks as follows: ```{r nContact2, echo=FALSE, message=FALSE} if (!(requireNamespace("ggplot2", quietly = TRUE) && requireNamespace("dplyr", quietly = TRUE))) { message("Packages 'ggplot2' and 'dplyr' are needed for plotting this figure.") } else { library(ggplot2) library(dplyr) set.seed(900) data = data.frame(N=abs(round(rnorm(200, 0.5, 1), 0))) data = data %>% group_by(N) %>% summarise(freq=length(N)/200) ggplot(data=data, aes(x=as.factor(N), y=freq)) + geom_bar(stat="identity") + theme_minimal() + labs(x="nContact",y="Frequency") } ``` At each time and for each infected host, `nContact` will be drawn anew. Remember that `nContact`, like the other core functions has to be function of `t`, even if `t` is not used. Since `nContact` is constant here, there is no use of the "absolute" time of the simulation, the location of the host, nor individual-based parameters. So `param.nContact=NA`, `timeDep.nContact=FALSE` and `diff.nContact=FALSE`. ### pTrans We choose `pTrans` in the form of a threshold function: before a certain amount of time since initial infection, the host does not transmit (incubation time, which we call `t_incub`), and after that time, it will transmit with a certain (constant) probability (which we call `p_max`). This function is dependent of the time since the host's infection `t`. ```{r pTrans1, eval=FALSE} p_Trans_fct <- function(t, p_max, t_incub){ if(t < t_incub){p=0} if(t >= t_incub){p=p_max} return(p) } ``` Because each host is different (slightly different biotic and abiotic factors), you can expect each host to exhibit differences in the dynamics of infection, and hence the probability of transmission over time. Thus, `t_incub` and `p_max` will be sampled for each host individually according to a certain distribution. `t_incub` will be sampled from a normal distribution of $mean$ = 7 and $sd$ = 1, while `p_max` will be sampled from a beta distribution with shape parameters $\alpha$ = 5 and $\beta$ = 2: ```{r pTrans2, eval=FALSE} t_incub_fct <- function(x){rnorm(x, mean=7, sd=1)} p_max_fct <- function(x){rbeta(x, shape1=5, shape2=2)} ``` Note that here `t_incub` and `p_max` are functions of `x` and not `t` (they are not core functions but individual-based parameters), and `x` enters the function as the number of draws to make. Taken together, the profile for `pTrans` for a subset of 200 individuals in the population will look as follows: ```{r pTrans3, echo=FALSE} if (!(requireNamespace("ggplot2", quietly = TRUE) && requireNamespace("dplyr", quietly = TRUE))) { message("Packages 'ggplot2' and 'dplyr' are needed for plotting this figure.") } else { library(ggplot2) library(dplyr) set.seed(506) p_Trans_fct <- function(t, p_max, t_incub){ if(t < t_incub){p=0} if(t >= t_incub){p=p_max} return(p) } t_incub_fct <- function(x){rnorm(x,mean = 7,sd=1)} p_max_fct <- function(x){rbeta(x,shape1 = 5,shape2=2)} data = data.frame(t_incub = t_incub_fct(200), p_max = p_max_fct(200), host = paste0("H-", 1:200)) t=c(0:12) data3=NULL for(t in 0:15){ data2 = data %>% group_by(host) %>% mutate(proba = p_Trans_fct(t = t, p_max = p_max, t_incub = t_incub)) data2$t = t data3 = rbind(data3, data2) } ggplot(data = data3, aes(x = t, y = proba, group = host)) + geom_line(color = "grey60") + theme_minimal() + labs(x = "Time since infection (t)", y = "pTrans") } ``` `pTrans` is not dependent of the "absolute" time of the simulation nor it is dependent of the hosts location, hence `timeDep.pTrans=FALSE` and `diff.pTrans=FALSE`. However, since we make use of individual-based parameters, we have to provide a `param.pTrans` as a list of functions. The name of each element within this list should have the same name that the core function (here `pTrans`) uses as argument, e.g.: ```{r pTrans4, eval=FALSE} t_incub_fct <- function(x){rnorm(x,mean = 7,sd=1)} p_max_fct <- function(x){rbeta(x,shape1 = 5,shape2=2)} param_pTrans = list(p_max=p_max_fct,t_incub=t_incub_fct) ``` ### Running Once `nosoiSim` is set up, you can run the simulation (here the "seed" ensures that you will get the same results as in this tutorial). ```{r setupF} library(nosoi) #Transition matrix transition.matrix <- matrix(c(0,0.2,0.4,0.5,0,0.6,0.5,0.8,0),nrow = 3, ncol = 3,dimnames=list(c("A","B","C"),c("A","B","C"))) #pExit p_Exit_fct <- function(t,current.in){ if(current.in=="A"){return(0.02)} if(current.in=="B"){return(0.05)} if(current.in=="C"){return(0.1)} } #pMove p_Move_fct <- function(t){return(0.1)} #nContact n_contact_fct = function(t){abs(round(rnorm(1, 0.5, 1), 0))} #pTrans proba <- function(t,p_max,t_incub){ if(t <= t_incub){p=0} if(t >= t_incub){p=p_max} return(p) } t_incub_fct <- function(x){rnorm(x,mean = 5,sd=1)} p_max_fct <- function(x){rbeta(x,shape1 = 5,shape2=2)} param_pTrans = list(p_max=p_max_fct,t_incub=t_incub_fct) # Starting the simulation ------------------------------------ set.seed(846) SimulationSingle <- nosoiSim(type="single", popStructure="discrete", length.sim=300, max.infected=300, init.individuals=1, init.structure="A", structure.matrix=transition.matrix, pExit = p_Exit_fct, param.pExit=NA, timeDep.pExit=FALSE, diff.pExit=TRUE, pMove = p_Move_fct, param.pMove=NA, timeDep.pMove=FALSE, diff.pMove=FALSE, nContact=n_contact_fct, param.nContact=NA, timeDep.nContact=FALSE, diff.nContact=FALSE, pTrans = proba, param.pTrans = list(p_max=p_max_fct,t_incub=t_incub_fct), timeDep.pTrans=FALSE, diff.pTrans=FALSE, prefix.host="H", print.progress=FALSE, print.step=10) ``` Once the simulation has finished, it reports the number of time units for which the simulation has run (`r SimulationSingle$total.time`), and the maximum number of infected hosts (`r SimulationSingle$host.info.A$N.infected`). Note that the simulation has stopped here before reaching `length.sim` as it has crossed the `max.infected` threshold set at 300. ## Dual host Setting up a dual host simulation is similar to the single host version described above, but each parameter has to be provided for both hosts. Here, we choose for Host A the same parameters as the single / only host above. Host B will have sightly different parameters: ### pExit.B For `pExit.B`, we choose a value that depends on the "absolute" time of the simulation, for example cyclic climatic conditions (temperature). In that case, the function's arguments should be `t` and `prestime` (the "absolute" time of the simulation), in that order: ```{r pExit1-dual, eval=FALSE} p_Exit_fctB <- function(t,prestime){(sin(prestime/(2*pi*10))+1)/16} #for a periodic function ``` The values of `pExit.B` across the "absolute time" of the simulation will be the following: ```{r pExit2-dual, echo=FALSE} p_Exit_fctx <- function(x){(sin(x/(2*pi*10))+1)/16} #for a periodic function if (!requireNamespace("ggplot2", quietly = TRUE)) { message("Package 'ggplot2' is needed for plotting this figure.") } else { ggplot(data=data.frame(x=0), aes(x=x)) + stat_function(fun=p_Exit_fctx) + theme_minimal() + labs(x="Absolute time (prestime)",y="pExit") + xlim(0,360) } ``` Since `pExit.B` is dependent of the simulation's time, do not forget to set `timeDep.pExit.B` to `TRUE`. Since there are no individual-based parameters nor is there influence of the host's location, we set `param.pExit.B=NA` and `diff.pExit.B=NA`. ### pMove.B We will assume here that the hosts B do not move. `pMove.B` will then be set to `NA`. ```{r pMove.B, eval=FALSE} p_Move_fct.B <- NA ``` Since `pMove.B` is not dependent on the location, `diff.pMove.B=FALSE`. Similarly, there is no use of the "absolute" time of the simulation nor individual-based parameters, so `param.pMove.B=NA`, and `timeDep.pMove.B=FALSE`. ### nContact.B For `nContact.B`, we choose a constant function that will sample a value out of a provided list of probabilities: ```{r nContact1.B, eval=FALSE} n_contact_fct.B = function(t){sample(c(0,1,2),1,prob=c(0.6,0.3,0.1))} ``` The distribution of `nContact.B` looks as follows: ```{r nContact2.B, echo=FALSE} if (!(requireNamespace("ggplot2", quietly = TRUE) && requireNamespace("dplyr", quietly = TRUE))) { message("Packages 'ggplot2' and 'dplyr' are needed for plotting this figure.") } else { library(ggplot2) library(dplyr) set.seed(6059) data = data.frame(N=sample(c(0,1,2),200,replace=TRUE,prob=c(0.6,0.3,0.1))) data = data %>% group_by(N) %>% summarise(freq=length(N)/200) ggplot(data=data, aes(x=as.factor(N), y=freq)) + geom_bar(stat="identity") + theme_minimal() + labs(x="nContact.B",y="Frequency") } ``` At each time and for each infected host, `nContact.B` will be drawn anew. Remember that `nContact.B`, like the other core functions has to be function of `t`, even if `t` is not used. Since `nContact.B` is constant here, there is no use of the "absolute" time of the simulation, the host's location, nor individual-based parameters. Hence, `param.nContact.B=NA`, `timeDep.nContact.B=FALSE` and `diff.nContact.B=FALSE`. ### pTrans.B We choose `pTrans.B` in the form of a Gaussian function. It will reach its maximum value at a certain time point (mean) after initial infection and will subsequently decrease until it reaches 0: ```{r pTrans1.B, eval=FALSE} p_Trans_fct.B <- function(t, max.time){ dnorm(t, mean=max.time, sd=2)*5 } ``` Because each host is different (slightly different biotic and abiotic factors), you can expect each host to exhibit differences in the dynamics of infection, and hence the probability of transmission over time. Thus, `max.time` will be sampled for each host individually according to a certain distribution. `max.time` will be sampled from a normal distribution of parameters $mean$ = 5 and $sd$ = 1: ```{r pTrans2.B, eval=FALSE} max.time_fct <- function(x){rnorm(x,mean = 5,sd=1)} ``` Note again that here `max.time` is a function of `x` and not `t` (not a core function but individual-based parameters), and `x` enters the function as the number of draws to make. Taken together, the profile for `pTrans` for a subset of 200 individuals in the population will look as follow: ```{r pTrans3.B, echo=FALSE} if (!(requireNamespace("ggplot2", quietly = TRUE) && requireNamespace("dplyr", quietly = TRUE))) { message("Packages 'ggplot2' and 'dplyr' are needed for plotting this figure.") } else { library(ggplot2) library(dplyr) set.seed(6609) p_Trans_fct <- function(t, max.time){ dnorm(t, mean=max.time, sd=2)*5 } max.time_fct <- function(x){rnorm(x,mean = 5,sd=1)} data = data.frame(max.time=max.time_fct(200),host=paste0("H-",1:200)) t=c(0:12) data3=NULL for(t in 0:15){ data2 = data %>% group_by(host) %>% mutate(proba=p_Trans_fct(t=t,max.time=max.time)) data2$t = t data3 = rbind(data3, data2) } ggplot(data=data3, aes(x=t, y=proba,group=host)) + geom_line(color="grey60",alpha=0.3) + theme_minimal() + labs(x="Time since infection (t)",y="pTrans") } ``` Since `pTrans.B` is not dependent on the "absolute" time of the simulation, `timeDep.pTrans.B=FALSE`. However, since we make use of individual-based parameters, we have to provide a `param.pTrans` as a list of functions. The name of each element of the list should have the same name as the core function (here `pTrans.B`) uses as argument, as shown here: ```{r pTrans4.B, eval=FALSE} max.time_fct <- function(x){rnorm(x,mean = 5,sd=1)} param_pTrans.B = list(max.time=max.time_fct) ``` ### Running Once `nosoiSim` is set up, you can run the simulation (here the "seed" ensures that you will get the same results as in this tutorial). ```{r setupF.B} library(nosoi) #Transition matrix transition.matrix <- matrix(c(0,0.2,0.4,0.5,0,0.6,0.5,0.8,0),nrow = 3, ncol = 3,dimnames=list(c("A","B","C"),c("A","B","C"))) #Host A ----------------------------------- #pExit p_Exit_fct <- function(t,current.in){ if(current.in=="A"){return(0.02)} if(current.in=="B"){return(0.05)} if(current.in=="C"){return(0.1)} } #pMove p_Move_fct <- function(t){return(0.1)} #nContact n_contact_fct = function(t){abs(round(rnorm(1, 0.5, 1), 0))} #pTrans proba <- function(t,p_max,t_incub){ if(t <= t_incub){p=0} if(t >= t_incub){p=p_max} return(p) } t_incub_fct <- function(x){rnorm(x,mean = 5,sd=1)} p_max_fct <- function(x){rbeta(x,shape1 = 5,shape2=2)} param_pTrans = list(p_max=p_max_fct,t_incub=t_incub_fct) #Host B ----------------------------------- #pExit p_Exit_fct.B <- function(t,prestime){(sin(prestime/(2*pi*10))+1)/16} #pMove p_Move_fct.B <- NA #nContact n_contact_fct.B = function(t){sample(c(0,1,2),1,prob=c(0.6,0.3,0.1))} #pTrans p_Trans_fct.B <- function(t, max.time){ dnorm(t, mean=max.time, sd=2)*5 } max.time_fct <- function(x){rnorm(x,mean = 5,sd=1)} param_pTrans.B = list(max.time=max.time_fct) # Starting the simulation ------------------------------------ set.seed(60) SimulationDual <- nosoiSim(type="dual", popStructure="discrete", length.sim=300, max.infected.A=100, max.infected.B=200, init.individuals.A=1, init.individuals.B=0, init.structure.A="A", init.structure.B=NA, structure.matrix.A=transition.matrix, structure.matrix.B=transition.matrix, pExit.A = p_Exit_fct, param.pExit.A=NA, timeDep.pExit.A=FALSE, diff.pExit.A=TRUE, pMove.A = p_Move_fct, param.pMove.A=NA, timeDep.pMove.A=FALSE, diff.pMove.A=FALSE, nContact.A=n_contact_fct, param.nContact.A=NA, timeDep.nContact.A=FALSE, diff.nContact.A=FALSE, pTrans.A = proba, param.pTrans.A = list(p_max=p_max_fct,t_incub=t_incub_fct), timeDep.pTrans.A=FALSE, diff.pTrans.A=FALSE, prefix.host.A="H", pExit.B = p_Exit_fct.B, param.pExit.B=NA, timeDep.pExit.B=TRUE, diff.pExit.B=FALSE, pMove.B = p_Move_fct.B, param.pMove.B=NA, timeDep.pMove.B=FALSE, diff.pMove.B=FALSE, nContact.B=n_contact_fct.B, param.nContact.B=NA, timeDep.nContact.B=FALSE, diff.nContact.B=FALSE, pTrans.B = p_Trans_fct.B, param.pTrans.B = param_pTrans.B, timeDep.pTrans.B=FALSE, diff.pTrans.B=FALSE, prefix.host.B="V", print.progress=FALSE) ``` Once the simulation has finished, it reports the number of time units for which the simulation has run (`r SimulationDual$total.time`), and the maximum number of infected hosts A (`r SimulationDual$host.info.A$N.infected`) and hosts B (`r SimulationDual$host.info.B$N.infected`). Note that the simulation has stopped here before reaching `length.sim` as it has crossed the `max.infected.A` threshold set at 100. # Going further To analyze and visualize your `nosoi` simulation output, you can have a look on [this page](https://slequime.github.io/nosoi/articles/examples/viz.html). A practical example using a dual host type of simulation with a discrete population structure is also available: - [Spread of dengue virus in a discrete space](https://slequime.github.io/nosoi/articles/examples/dengue.html).