This app allows exploration of a basic virus infection model, with compartments for uninfected cells, infected cells and (free) virus. Read about the model in The Model tab. Then, work through the tasks described in the What To Do tab.
This model consists of 3 compartments and can capture some of the basic dynamics of viral infections. In this model, we track the following entities, by assigning each to a compartment:
In addition to specifying the compartments of a model, we need to specify the dynamics determining the changes for each compartment. Broadly speaking, there are processes that increase the numbers in a given compartment/stage, and processes that lead to a reduction. Those processes are sometimes called in-flows and out-flows.
For our system, we specify the following processes/flows:
The diagram illustrating this compartmental model is shown in the figure.
Model Diagram
Implementing this model as a continuous-time, deterministic model leads to the following set of ordinary differential equations.
\[\begin{aligned} \dot U & = n - d_U U - bUV \\ \dot I & = bUV - d_I I \\ \dot V & = pI - d_V V - gb UV \end{aligned}\]The tasks below are described in a way that assumes everything is in units of days (rate parameters, therefore, have units of inverse days). If any quantity is not given in those units, you need to convert it first (e.g. if it says a week, you need to convert it to 7 days).
Let’s start by considering an acute viral infection. Set the initial conditions to 105 uninfected cells, no infected cells, and 10 virus particles. We make the assumption that on the timescale of an acute infection (several days), the processes of natural, uninfected cell turnover are so slow that they can be ignored. Set values for the uninfected cell birth and death rates to reflect this assumption. Assume also that infected cells have an average life-span of 1 day, and virus has a life-span of 6 hours (remember that the inverse of the lifespan is the rate of death, and make sure you convert to the right units). Set that the virus production by an infected cell is 100 virions per day and that the rate at which new cells become infected is 10-6. Assume there is no need to do any unit adjustment/conversion (i.e. the value of that parameter is 1).
Run the simulation for 50 days; produce plots with and without log-scales. You should get a single, acute infection with virus and infected cells rising at first and then declining. At the end you should be left with around 11069 uninfected cells and no infected cells or virus.
Record
Slowly increase the virus death rate in increments of 0.5. Contemplate what you expect to see, then run the simulation to compare. Keep increasing until you get essentially no more infection (i.e., < 1% initial uninfected cells become infected). You will have to adjust the simulation time for that, too.
Record
Virus death rate at which no infection occurs
Virus lifespan (in days) corresponding to the death rate at which no infection occurs
Set the virus death rate back to what it was in task 1. Now change the virus production rate (in increments of 10) until you reach the value at which the virus does not cause any infection. You can also repeat this process for the infected cell death rate and the infection rate.
Record
A well-studied quantity in infectious disease epidemiology is the basic reproductive number (R0), which determines if a pathogen can cause an outbreak at the population level. In the absence of any interventions or other changes, the basic reproductive number also determines the size of the outbreak. An equivalent R0 can be defined for a within-host model to determine if you get an infection or not. For this virus model (with no births and deaths of uninfected cells, i.e. n=dU=0), R0 = bpU0/(dV dI).
Plug numbers for the parameters from your simulations in task 2 and 3 into the equation for R0 to figure out what value R0 needs to be for there (not) to be an infection. Figure out the threshold value for R0 at which you go from no infection to having an infection.
To learn more about R0, see e.g. (Heffernan, Smith, and Wahl 2005; Roberts 2007; C. A. A. Beauchemin et al. 2008). Some of those references describe R0 in the context of infectious disease epidemiology, but if you replace humans/hosts with cells, the same concepts apply at the within-host level.
Record
Without birth/production of new uninfected cells, the most you can get is a single acute infection (or no infection at all). To convince yourself that it is impossible to produce a chronic infection, play around with the model, try all kinds of parameter values (but keep n=0). Production of new uninfected cells is an example of resource replenishment. This is needed to allow a steady state/chronic infection, and this concept applies in general (e.g. on the population level, new susceptible individuals need to be created either through birth or through losing immunity). Let’s explore the model with uninfected cell production, i.e. resource replenishment.
We start by focusing on the dynamics of uninfected cells only. To that end, set the number of initial infected cells and virus particles to 0. Keep the number of uninfected cells at 105, set birth and death of uninfected cells to zero. Run the simulation. Nothing should happen, uninfected cells should stay at their starting value. Now, play around with birth rate and death rate of uninfected cells and see how that affects the dynamics. The number of uninfected cells once the system has settled down only depends on the birth and death rate, not the starting conditions. Confirm this by trying different values for U0 while keeping birth and death rate at some fixed values. One can write down an equation for uninfected cells at steady state as a function of birth and death rate, i.e. \(U_s = f(n,d_U)\), where f() is the mathematical symbol for some function. In this case, it is a very simple function. Based on your explorations of different values for birth and death rate and the resulting values of Us, figure out this equation.
To test your solution, set birth rate to 20000, the initial uninfected cells to 105, and initial virus to 0, and discover whether the value for the death rate keeps the number of uninfected cells unchanged at 105.
Record
Now we’ll explore an infection in the presence of uninfected cell birth and death. Set all parameters as in task 1. Set birth and death as described at the end of the previous task. Run the simulation. You should get an initial large increase in virus load, which then settles down and reaches a steady state of around 295000. Similarly, the variables U and I settle down to steady state values.
Record
Number of uninfected cells at steady state
Number of infected cells at steady state
Investigate how the steady state values for U, I and V depend on the parameters b, p, dV and dI. You might need to increase the simulation time to ensure the system has settled down to its steady state. Once the system has settled down, there are no more changes in the numbers for each compartment. Mathematically, that means that the left side of the differential equations becomes 0, and they turn into the following algebraic equations: 0 = n - dU U - bUV, 0 = bUV - dI, 0 = pI - dV V - gb UV. One can solve those equations for each of the compartments to get a mathematical expression of what U, I and V are at steady state. If your algebra is not too rusty, try to do this. You should find that \(U_s = d_I d_V/(b(p - d_I g))\), \(V_s = (bnp-bd_Ign-d_Id_Ud_V)/bd_Id_V\) and and equation with the same numerator but slightly different denominator for Is (the subscript s denotes that these are the steady-state values of the variables). If you haven’t done algebra in a while, or if you find doing math by hand too tedious, modern computer software often helps. R cannot solve such equations analytically, but other software packages can. The main ones used for analytic math are Mathematica and Maple. Both are powerful and expensive. If you only need to solve simple equations occasionally, there is Maxima, which is free. You can download it and enter the equations above and it will solve it for you. Note that once you go beyond 4-5 variables, the steady state equations are usually very complicated, often so much so that they are not useful anymore. And once you go beyond 5 variables, in most cases your software will struggle to give you something meaningful. Fortunately, while it is less quick and elegant, you can always simulate your model and see what (if any) steady state it reaches.
Once you found the steady state equations, either by hand or with the help of some computer software, check that your equations agree with the simulations. Plug the values for the parameters into each of the equations and see if the steady state values Us, Is and Vs you computed with the equations is the same as you get as steady state value from the simulation. If that’s not the case, it means your equations aren’t right yet. It is useful to note that while the total numbers for each variable do not change at steady state, this is a dynamic equilibrium. There are still constantly cells and virus being produced and destroyed, it just so happens that the production and destruction mechanisms are equally strong and thus the overall numbers do not change.
Record
Continue to explore the model. Even though it’s a fairly simple model, you can get interesting dynamics from it, such as acute infections and chronic infections. Contemplate what specific pathogens this model could represent. Also note that this model does not contain an immune response. The interactions between cells and virus are enough to produce patterns of infection dynamics that broadly agree with patterns we can see for real infections. This of course does not mean the immune response is not important. But it does illustrate that if all we have is (noisy) virus kinetics data, we are likely able to capture that dynamics with many different types of models, including a simple one like this that is likely not too realistic for any given pathogen.
Record
This app (and all others) are structured such that the Shiny part (the graphical interface you see and the server-side function that goes with it) calls an underlying R script (or several) which runs the simulation for the model of interest and returns the results.
For this app, the underlying function running the simulation is
called simulate_basicvirus_ode
. You can call them directly,
without going through the shiny app. Use the help()
command
for more information on how to use the functions directly. If you go
that route, you need to use the results returned from this function and
produce useful output (such as a plot) yourself.
You can also download all simulator functions and modify them for
your own purposes. Of course to modify these functions, you’ll need to
do some coding. For examples on using the simulators directly and how to
modify them, read the package vignette by typing
vignette('DSAIRM')
into the R console.
If you want to learn a bit more about these kinds of models applied to acute viral infections, specifically influenza, see e.g. (C. A. Beauchemin and Handel 2011; Smith and Perelson 2011). A few examples of these kinds of models applied to chronic viral infections, see e.g. (Guedj et al. 2010; Chatterjee, Guedj, and Perelson 2012; Perelson and Ribeiro 2013).