fix issue #744

paul-buerkner · Sep 3, 2019 · 7817065 · 7817065
1 parent 330ef74
commit 7817065
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 1 deletion.
diff --git a/NEWS.md b/NEWS.md
@@ -1,3 +1,11 @@
+# brms 2.10.0++
+
+### Bug Fixes
+
+* Fix problems when using `pp_check` on
+censored models thanks to Andrew Milne. (#744)
+
+
 # brms 2.10.0
 
 ### New Features

diff --git a/R/data-helpers.R b/R/data-helpers.R
@@ -617,7 +617,8 @@ get_cens <- function(x, resp = NULL, newdata = NULL) {
     newdata <- model.frame(x)
   }
   if (is.formula(bterms$adforms$cens)) {
-    out <- eval_rhs(bterms$adforms$cens, data = newdata)
+    cens <- eval_rhs(bterms$adforms$cens)
+    out <- unname(eval2(cens$vars$cens, newdata))
   } else {
     out <- NULL
   }