Fixes #1128 demography range plots use appropriate number of bins

Open-Systems-Pharmacology · Oct 18, 2023 · a7e2f1d · a7e2f1d
1 parent 166d6b5
commit a7e2f1d
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/R/utilities-demography.R b/R/utilities-demography.R
@@ -520,15 +520,16 @@ getDemographyAggregatedData <- function(data,
       xParameterBreaks <- unique(unname(
         quantile(
           x = data[, xParameterName],
-          probs = seq(0, 1, length.out = xParameterBreaks)
+          # needs to add 1 because n edges will create n-1 bins
+          probs = seq(0, 1, length.out = xParameterBreaks + 1)
         )
       ))
     } else {
       # Split x ranges of equal length
       xParameterBreaks <- unique(seq(
         min(data[, xParameterName], na.rm = TRUE),
         max(data[, xParameterName], na.rm = TRUE),
-        length.out = xParameterBreaks
+        length.out = xParameterBreaks + 1
       ))
     }
   }