## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## -----------------------------------------------------------------------------
library(Rnaught)

# Weekly case counts.
cases <- c(1, 4, 10, 5, 3, 4, 19, 3, 3, 14, 4)

# Compute estimates of R0, assuming a serial interval of five days.
mu <- 5 / 7

id(cases, mu)
idea(cases, mu)
seq_bayes(cases, mu)
wp(cases, mu)