John M. Drake
Discussion: What is the difference between uncertainty and sensitivity? When does it matter?
Models are idealizations and subject to approximation
\[ \begin{aligned} \frac{dX}{dt} &= - \beta XY \\ \frac{dY}{dt} &= \beta XY - \gamma Y \\ \frac{dZ}{dt} &= \gamma Y \end{aligned} \]
Discussion: Explain how these kinds of approximation are reflected in this model.
Note: The difference between epistemic and aleatory uncertainty is somewhat semantic
In simple deterministic models with few state variables and few parameters we can often produce model visualizations to answer such questions
Invasion boundary for a model of Ebola virus transmission
Blower, S.M. et al. 2000. A tale of two futures: HIV and antiretroviral therapy in San Francisco. Science 287:650-654.
Parameter | Interpretation |
---|---|
\( X \) | Susceptibles |
\( Y \) | Infected (R=resistant, S=sensitive, U=untreated, T=treated) |
\( \pi \) | Rate at which gay men join the sexually active community |
\( \mu^{-1} \) | Average time during which new partners are acquired |
\( c \) | Average number of new partners (per year) |
\( p \) | Probability of a drug resistant case transmitting drug-sensitive viruses |
\( q^{-1} \) | Average time for a drug-resistant infection to revert to drug-sensitive infection |
\( \sigma \) | Per capita effective treatment rate |
\( e \) | Relative efficacy of ART in treating drug-resistant infections |
\( r \) | Rate of emergence of resistance due to acquired infection |
\( g \) | Proportion of cases that give up ART per year |
\( \nu \) | Average rate of disease progression |
Number of infections prevented as a function of the fraction of cases treated
Simulate from all plausible models and look at the distribution of outputs
A helpful approach when you have access to the distribution of parameter estimates (usually when fitting is by MCMC, but occasionally when fitting is by maximum likelihood)
Marino, S. et al. 2008. A methodology for performing global uncertainty and sensitivity analysis in systems biology. Journal of Theoretical Biology 254:178-196.
require(lhs)
x <- runif(50)
y <- runif(50)
h <- 50
lhs<-maximinLHS(h,2)
par(mfrow=c(1,2))
plot(x,y,type='p', main='Random Uniform', xlab='', ylab='')
plot(lhs, type='p', main='LH Sampling', xlab='', ylab='')
require(scatterplot3d)
x <- runif(150); y <- runif(150); z <- runif(150)
h <- 150
lhs<-maximinLHS(h,3)
par(mfrow=c(1,2))
scatterplot3d(x,y,z, type='p', main='Random Uniform', xlab='', ylab='', zlab='')
scatterplot3d(lhs, type='p', main='LH Sampling', xlab='', ylab='', zlab='')
The package lhs
generates a point in in a unit d-dimensional space (i.e. where every dimension is on the interval \( [0,1] \))
\[ \alpha_0 = U(\alpha_{max}-\alpha_{min})+\alpha_{min} \]
Further reading: : Wu et al. 2013. Sensitivity analysis of infectious disease models: methods, advances and their application. Journal of the Royal Society Interface 10:20121018
Presentations and exercises draw significantly from materials developed with Pej Rohani, Ben Bolker, Matt Ferrari, Aaron King, and Dave Smith used during the 2009-2011 Ecology and Evolution of Infectious Diseases workshops and the 2009-2019 Summer Institutes in Statistics and Modeling of Infectious Diseases.
Licensed under the Creative Commons attribution-noncommercial license, http://creativecommons.org/licenses/bync/3.0/. Please share and remix noncommercially, mentioning its origin.