fix reloo for stan_polr (don't partial match x$z)

closes #450
stan-dev · Jul 28, 2020 · 17c5b4a · 17c5b4a
1 parent bb59f7a
commit 17c5b4a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/loo.R b/R/loo.R
@@ -641,7 +641,7 @@ reloo <- function(x, loo_x, obs, ..., refit = TRUE) {
         newdata = d[omitted, , drop = FALSE],
         offset = x$offset[omitted],
         newx = get_x(x)[omitted, , drop = FALSE],
-        newz = x$z[omitted, , drop = FALSE], # NULL other than for some stan_betareg models
+        newz = x[["z"]][omitted, , drop = FALSE], # NULL other than for some stan_betareg models
         stanmat = as.matrix.stanreg(fit_j)
       )
   }