# \donttest{
## reproducing the results in Endo, et al. (2020) https://doi.org/10.12688/wellcomeopenres.15842.3,
## where ~80% offspring cases were generated from ~10% index cases
## with parameters R of ~2.5 (ranging from 2 to 3) and
## k of ~0.1 (ranging from 0.05 to 0.20) under NB distribution.
tailoffspringQ(
P = 0.10,
epi.para = list(mean = 2.5, disp = 0.10, shift = 0.2),
offspring.type = "NB"
)
mostinfectiousP(
Q = 0.80,
epi.para = list(mean = 2.5, disp = 0.10, shift = 0.2),
offspring.type = "NB"
)
## reproducing the results in Adam, et al. (2020) https://doi.org/10.1038/s41591-020-1092-0,
## where ~80% offspring cases were generated from ~19% index cases
## with parameters R of 0.58 and k of 0.43 under NB distribution.
tailoffspringQ(
P = 0.19,
epi.para = list(mean = 0.58, disp = 0.43, shift = 0.2),
offspring.type = "NB"
)
mostinfectiousP(
Q = 0.80,
epi.para = list(mean = 0.58, disp = 0.43, shift = 0.2),
offspring.type = "NB"
)
# }
Run the code above in your browser using DataLab