make_standata: do not print 'bernoulli' message when preparing data f…

…or S3 methods
paul-buerkner · Jan 11, 2017 · 7002296 · 7002296
1 parent 8b37647
commit 7002296
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/make_standata.R b/R/make_standata.R
@@ -219,7 +219,7 @@ make_standata <- function(formula, data, family = "gaussian",
     if (length(standata$trials) == 1L) {
       standata$trials <- rep(standata$trials, nrow(data))
     }
-    if (max(standata$trials) == 1L) {
+    if (max(standata$trials) == 1L && !not4stan) {
       message("Only 2 levels detected so that family 'bernoulli' ",
               "might be a more efficient choice.")
     }