k <- 4
v1 <- factor(rep(1:8, each=12*k))
v2 <- factor(rep(1:4, times = 24*k))
v3 <- factor(rep(1:3, times = 32*k))
x1 <- rnorm(96*k)
x2 <- runif(96*k)
mi <- rep(c(2 , 2, -1, -1, -1, -1, 0, 0), each = 12*k)
y <- rbinom(96*k, 1, exp(mi)/(1+exp(mi)) )
m <- glm(y ~ x1 + x2 + v1 + v2 + v3, family = binomial)
(out <- DMR4glm(m))
Run the code above in your browser using DataLab