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