From fd6cc63e29f44d34c6083d7b33534f1b83374e06 Mon Sep 17 00:00:00 2001
From: hannajankowski <hkj@yorku.ca>
Date: Wed, 16 Aug 2023 13:34:42 -0400
Subject: Update ui.R

---
 R/ui.R | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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?",
-- 
cgit v1.2.3