aboutsummaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
authorhannajankowski <hkj@yorku.ca>2023-08-16 13:34:42 -0400
committerGitHub <noreply@github.com>2023-08-16 13:34:42 -0400
commitfd6cc63e29f44d34c6083d7b33534f1b83374e06 (patch)
tree1c099c3376a66ad50ced9bf6e1e5cd379363a9dd /R
parent02edefe2c0ccd07e2c510c073189d69af097892e (diff)
Update ui.R
Diffstat (limited to 'R')
-rw-r--r--R/ui.R4
1 files changed, 3 insertions, 1 deletions
diff --git a/R/ui.R b/R/ui.R
index 111b5f3..060b5bc 100644
--- a/R/ui.R
+++ b/R/ui.R
@@ -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?",