From e5e312d01bccbabbb21e69d269ccf0d947e5abdb Mon Sep 17 00:00:00 2001
From: Naeem Model <me@nmode.ca>
Date: Mon, 12 Feb 2024 00:02:07 +0000
Subject: Refactor WP

---
 R/ui.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'R/ui.R')

diff --git a/R/ui.R b/R/ui.R
index 355b08e..911061a 100644
--- a/R/ui.R
+++ b/R/ui.R
@@ -90,10 +90,10 @@ est_sidebar <- function() {
   )
 }
 
-# Collapsable entry for White & Panago (WP) method.
+# Collapsable entry for White & Pagano (WP) method.
 WP_collapse <- function() {
   shiny::tags$details(
-    shiny::tags$summary(shiny::h4("White & Panago (WP)")),
+    shiny::tags$summary(shiny::h4("White & Pagano (WP)")),
     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
-- 
cgit v1.2.3