# \donttest{
n <- 250
dat <- data.frame(
x = rnorm(n),
g = factor(sample(1:10, n, replace=TRUE)),
ny = 10
)
gd <- generate_data(
~ reg(~ 1 + x, prior=pr_normal(precision=10, mean=c(0, 1)), name="beta") +
gen(factor = ~ g, name="v"),
family="binomial", ny="ny", data=dat
)
gd
plot(dat$x, gd$y)
# }
Run the code above in your browser using DataLab