Update loo_compare.R

jgabry · jgabry · commit cc3edfe797f6 · 2025-10-17T15:34:57.000-06:00
diff --git a/R/loo_compare.R b/R/loo_compare.R
@@ -136,7 +136,7 @@ loo_compare.default <- function(x, ...) {
     khat_diff <- rep(NA, length(elpd_diff))
     khat_diff[elpd_diff != 0] <- apply(
       diffs[, elpd_diff != 0, drop = FALSE], 2,
-      function (x) ifelse(length(unique(x)) <= 20, NA, posterior::pareto_khat(x, tail = "both")
+      function(x) ifelse(length(unique(x)) <= 20, NA, posterior::pareto_khat(x, tail = "both")
     ))
     diag_pnorm[khat_diff > 0.5] <- paste0("khat_diff > 0.5")
   }

Original file line number	Diff line number	Diff line change
`@@ -136,7 +136,7 @@ loo_compare.default <- function(x, ...) {`
`136`	`136`	`khat_diff <- rep(NA, length(elpd_diff))`
`137`	`137`	`khat_diff[elpd_diff != 0] <- apply(`
`138`	`138`	`diffs[, elpd_diff != 0, drop = FALSE], 2,`
`139`		`- function (x) ifelse(length(unique(x)) <= 20, NA, posterior::pareto_khat(x, tail = "both")`
	`139`	`+ function(x) ifelse(length(unique(x)) <= 20, NA, posterior::pareto_khat(x, tail = "both")`
`140`	`140`	`))`
`141`	`141`	`diag_pnorm[khat_diff > 0.5] <- paste0("khat_diff > 0.5")`
`142`	`142`	`}`