1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/data.R
\docType{data}
\name{SARS2003}
\alias{SARS2003}
\title{Data on the 2003 SARS epidemic in Hong Kong.}
\format{A list of two elements:
\itemize{
\item \strong{incidence:} a vector containing 107 days of observation,
\item \strong{si_distr:} a vector containing a set of 25 probabilities.
}}
\source{
Cori A. et al. (2009) Temporal variability and social heterogeneity
in disease transmission: the case of SARS in Hong Kong. PLoS Comput Biol 5(8)
: e1000471.
}
\description{
This data set gives:
\enumerate{
\item the daily incidence of onset of symptoms in Hong Kong during the 2003
severe acute respiratory syndrome (SARS) epidemic (see source and
references),
\item the discrete daily distribution of the serial interval for SARS, assuming
a shifted Gamma distribution with mean 8.4 days, standard deviation 3.8
days and shift 1 day (see references).
}
}
\examples{
## load data on SARS in Hong Kong in 2003
data("SARS2003")
## estimate the reproduction number (method "non_parametric_si")
res <- estimate_R(SARS2003$incidence, method="non_parametric_si",
config = make_config(list(
t_start = seq(14, 101),
t_end = seq(20, 107),
si_distr = SARS2003$si_distr)))
plot(res)
## the second plot produced shows, at each each day,
## the estimate of the reproduction number
## over the 7-day window finishing on that day.
}
\references{
Cori A. et al. (2009) Temporal variability and social heterogeneity in
disease transmission: the case of SARS in Hong Kong. PLoS Comput Biol 5(8):
e1000471.
Lipsitch M. et al. (2003) Transmission dynamics and control of severe acute
respiratory syndrome. Science 300(5627): 1966-1970.
}
|
