Merge pull request #1714 from avehtari/fix_loo_R2

fix misplaced paren in .loo_R2
paul-buerkner · Nov 27, 2024 · 1277fd7 · 1277fd7
2 parents 9a711d2 + 76ca249
commit 1277fd7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/loo_predict.R b/R/loo_predict.R
@@ -265,7 +265,7 @@ loo_R2.brmsfit <- function(object, resp = NULL, summary = TRUE,
         rowSums(sweep(weights, 2, y, FUN = "*"))^2)
   var_err_loo <- (N / (N - 1)) *
     (rowSums(sweep(weights, 2, err_loo^2, FUN = "*")) -
-       rowSums(sweep(weights, 2, err_loo, FUN = "*")^2))
+       rowSums(sweep(weights, 2, err_loo, FUN = "*"))^2)
 
   out <- unname(1 - var_err_loo / var_y)
   out[out < -1] <- -1