fix use of ceiling in ps_tail_length

stan-dev · Nov 7, 2024 · dd9f71e · dd9f71e
1 parent 90a07cc
commit dd9f71e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/pareto_smooth.R b/R/pareto_smooth.R
@@ -639,7 +639,7 @@ ps_convergence_rate <- function(k, ndraws, ...) {
 #' @return tail length
 #' @export
 ps_tail_length <- function(ndraws, r_eff, ...) {
-  ifelse(ndraws > 225, ceiling(3 * sqrt(ndraws / r_eff)), ndraws / 5)
+  ceiling(ifelse(ndraws > 225, 3 * sqrt(ndraws / r_eff), ndraws / 5))
 }
 
 #' Pareto-k diagnostic message