Merge pull request #383 from stan-dev/fix_pareto_khat

fix use of ceiling in ps_tail_length
stan-dev · Nov 7, 2024 · 4166286 · 4166286
2 parents 90a07cc + dd9f71e
commit 4166286
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