Update loo_compare.R

jgabry · jgabry · commit d579c0619703 · 2025-10-17T17:18:30.000-06:00
diff --git a/R/loo_compare.R b/R/loo_compare.R
@@ -164,7 +164,6 @@ print.compare.loo <- function(x, ..., digits = 1, p_worse = TRUE) {
   if (NCOL(xcopy) >= 2) {
     xcopy <- xcopy[, c("elpd_diff", "se_diff")]
   }
-  browser()
   if (p_worse &&
       "p_worse" %in% colnames(x) &&
       !inherits(x, "old_compare.loo")) {

Original file line number	Diff line number	Diff line change
`@@ -164,7 +164,6 @@ print.compare.loo <- function(x, ..., digits = 1, p_worse = TRUE) {`
`164`	`164`	`if (NCOL(xcopy) >= 2) {`
`165`	`165`	`xcopy <- xcopy[, c("elpd_diff", "se_diff")]`
`166`	`166`	`}`
`167`		`- browser()`
`168`	`167`	`if (p_worse &&`
`169`	`168`	`"p_worse" %in% colnames(x) &&`
`170`	`169`	`!inherits(x, "old_compare.loo")) {`