No margin for error

CDCgov · Oct 15, 2024 · 12765cd · 12765cd
1 parent dc724a8
commit 12765cd
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/fit_model.R b/R/fit_model.R
@@ -160,7 +160,7 @@ format_right_truncation <- function(pmf, data) {
     # silently removed if length of the PMF was longer than the data,
     # effectively eliminating the right-truncation correction
 
-    trunc_len <- nrow(data) - 1
+    trunc_len <- nrow(data)
     cli::cli_warn(
       c(
         "Removing right-truncation PMF elements after {.val {trunc_len}}",

diff --git a/tests/testthat/_snaps/fit_model.md b/tests/testthat/_snaps/fit_model.md
@@ -1,6 +1,6 @@
 # Right truncation longer than data throws error
 
-    Removing right-truncation PMF elements after 1
+    Removing right-truncation PMF elements after 2
     Right truncation PMF longer than the data
     PMF length: 3
     Data length: 2