Fix bin calculation bug

martinmodrak · martinmodrak · commit 72f3ebede5e2 · 2025-09-04T13:42:18.000+02:00
diff --git a/R/binary-calibration.R b/R/binary-calibration.R
@@ -76,7 +76,7 @@ binary_calibration_from_bp <- function(bp, type = c("reliabilitydiag", "calibrat
 
   max_sims <- max(dplyr::tally(bp_grouped)$n)
   attr(res, "bp") <- bp
-  attr(res, "bins") <- max(2, min(100, max_sims / 10))
+  attr(res, "bins") <- max(2, min(100, ceiling(max_sims / 10)))
   return(res)
 }
 

Original file line number	Diff line number	Diff line change
`@@ -76,7 +76,7 @@ binary_calibration_from_bp <- function(bp, type = c("reliabilitydiag", "calibrat`
`76`	`76`
`77`	`77`	`max_sims <- max(dplyr::tally(bp_grouped)$n)`
`78`	`78`	`attr(res, "bp") <- bp`
`79`		`- attr(res, "bins") <- max(2, min(100, max_sims / 10))`
	`79`	`+ attr(res, "bins") <- max(2, min(100, ceiling(max_sims / 10)))`
`80`	`80`	`return(res)`
`81`	`81`	`}`
`82`	`82`