Description Usage Details Source Examples
Severe Acute Respiratory Syndrome (SARS) data from the 2003 outbreak in Hong Kong. Data contain the daily reported number of cases among health care and others as given in Figure 2 of Anonymous (2003). A susceptible population of 6.7 mio is assumed.
1 | data("hksars")
|
A constant incubation time of 6.4 days and a constant recovery time of 34 days as in Donnelly et al. (2003) is assumed. Figure 2 in Anonymous (2003) provides the exposure time. A homogenous population is assumed.
Anonymous (2003). Sars bulletin. Technical report, Health, Welfare and Food Bureau, Government of the Hong Kong Special Administrative Region, 10 June 2003. Available as http://www.info.gov.hk/info/sars/bulletin/bulletin0610e.pdf
Donelly, C. A., Ghani, A. C., Leung, G. M., and 16 more authors (2003). Epidemiological determinants of spread of causal agent of severe acute respiratory syndrome in Hong Kong. The Lancet, 361:1761
1 2 3 4 5 6 7 8 9 10 11 12 13 | data("hksars")
## Not run:
#Show how to plot using EpiTools
require("epitools")
require("chron")
E <- chron("2/15/2003") + hksars@data$E
curve <- epicurve.dates(E,axisnames = FALSE,before=0, after=0,legend.text = TRUE,col = colorbrewer.palette(3, "seq", "r")[3:1],ylab="No. cases")
axis(1, at = curve$xvals, labels = curve$cmday, tick = FALSE, line = 0)
axis(1, at = curve$xvals, labels = curve$cmonth, tick = FALSE, line = 1)
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.