diff options
| author | hannajankowski <hkj@yorku.ca> | 2023-08-16 13:34:42 -0400 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-08-16 13:34:42 -0400 |
| commit | fd6cc63e29f44d34c6083d7b33534f1b83374e06 (patch) | |
| tree | 1c099c3376a66ad50ced9bf6e1e5cd379363a9dd | |
| parent | 02edefe2c0ccd07e2c510c073189d69af097892e (diff) | |
Update ui.R
| -rw-r--r-- | R/ui.R | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -60,7 +60,9 @@ ui <- function() { shiny::fluidPage( # WHITE & PANAGO (WP). shiny::tags$details( shiny::tags$summary(shiny::h4("White & Panago (WP)")), - shiny::p("This is a description of the method."), + shiny::p("Method due to [White and Pagano(2008)], assumes a branching process based model. Serial +distribution can be assumed known or can be estimated using maximum likelihood; When serial interval is unknown +the method takes longer to compute, though is still real-time."), shiny::br(), shiny::radioButtons(inputId = "serialWPKnown", label = "Is the mean serial interval known?", |