Skip to content

Instantly share code, notes, and snippets.

@adisarid

adisarid/symptoms_onset_distribution.R

Created July 8, 2020 19:27
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save adisarid/f8e99f2bf0dd033fa7550410c4323f8a to your computer and use it in GitHub Desktop.
Save adisarid/f8e99f2bf0dd033fa7550410c4323f8a to your computer and use it in GitHub Desktop.
Download ZIP
Distribution of symptom onset time from transmission
Raw
symptoms_onset_distribution.R
tibble(plnorm = 0.8*plnorm(q = seq(0, 20, by = 0.1), meanlog = 1.621, sdlog = 0.418),
q = seq(0, 20, by = 0.1)) %>%
ggplot(aes(x = q, y = plnorm)) +
geom_point() +
coord_cartesian(ylim = c(0,1))
# https://www.eurosurveillance.org/content/10.2807/1560-7917.ES.2020.25.10.2000180#html_fulltext
# https://www.acpjournals.org/doi/10.7326/M20-0504
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment