if (FALSE) {
library(rstanarm)
data("pbcLong")
model <- stan_mvmer(
formula = list(
logBili ~ year + (1 | id),
albumin ~ sex + year + (year | id)
),
data = pbcLong,
chains = 1, cores = 1, seed = 12345, iter = 1000
)
f <- find_formula(model)
is_multivariate(model)
is_multivariate(f)
}
Run the code above in your browser using DataLab