From 383f9e6b7018b7d4e57a9a3a387c52d6fdd7591a Mon Sep 17 00:00:00 2001 From: DominiqueMakowski Date: Sat, 15 Aug 2026 20:36:01 +0100 Subject: [PATCH] Update methods_loo.R --- R/methods_loo.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/R/methods_loo.R b/R/methods_loo.R index b643bccaf..335252a10 100644 --- a/R/methods_loo.R +++ b/R/methods_loo.R @@ -53,8 +53,9 @@ model_parameters.compare.loo <- function(model, include_IC = TRUE, include_ENP = # The values in the first row are 0s because the models are ordered from best to worst according to their elpd. x <- as.data.frame(model) + m_names <- if ("model" %in% colnames(x)) x[["model"]] else rownames(x) - out <- data.frame(Name = rownames(x), stringsAsFactors = FALSE) + out <- data.frame(Name = m_names, stringsAsFactors = FALSE) if ("looic" %in% colnames(x)) { if (include_IC) out$LOOIC <- x[["looic"]] if (include_ENP) out$ENP <- x[["p_loo"]]