Fix score comparison that led to inaccuracies in edge cases

peekbank · Jan 3, 2025 · 2ad558e · 2ad558e
1 parent 33f4245
commit 2ad558e
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: peekbankr
 Type: Package
 Title: Accessing the Peekbank Database and working with Peekbank data
-Version: 0.2.3.2
+Version: 0.2.3.3
 Authors@R: c(
     person("Mika", "Braginsky", email = "[email protected]", role = c("aut", "cre")),
     person("Kyle", "MacDonald", email = "[email protected]", role = "aut"),

diff --git a/R/cdi_processing.R b/R/cdi_processing.R
@@ -141,7 +141,7 @@ populate_cdi_percentiles <- function(subjects_table) {
       by = c("instrument_type", "measure", "reference_age", "language"),
       relationship = "many-to-many"
     ) %>%
-    dplyr::filter(score < rawscore) %>%
+    dplyr::filter(score <= rawscore) %>%
     dplyr::group_by(across(!c(score, norm_percentile))) %>%
     dplyr::slice_max(score, n = 1, with_ties = FALSE) %>%
     dplyr::ungroup() %>%