Permalink
Browse files

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

…or S3 methods
  • Loading branch information...
1 parent 8b37647 commit 7002296aac3aed0fb609eb5c8953c233a094f44d @paul-buerkner committed Jan 11, 2017
Showing with 1 addition and 1 deletion.
  1. +1 −1 R/make_standata.R
View
@@ -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.")
}

0 comments on commit 7002296

Please sign in to comment.