# NOT RUN {
# simulate some data
dat <- data.frame(y = rnorm(100), x = rnorm(100),
g1 = sample(1:10, 100, TRUE),
g2 = sample(1:10, 100, TRUE))
# multi-membership model with two members per group and equal weights
fit1 <- brm(y ~ x + (1|mm(g1, g2)), data = dat)
summary(fit1)
# weight the first member two times for than the second member
dat$w1 <- rep(2, 100)
dat$w2 <- rep(1, 100)
fit2 <- brm(y ~ x + (1|mm(g1, g2, weights = cbind(w1, w2))), data = dat)
summary(fit2)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab