powered by
unifit(formula, data = list(), family = c("gaussian", "binomial"), output = 0)
unifit
mvbfit
unilps
n <- 100 p <- 4 x <- matrix(rnorm(n * p, 0, 4), n, p) eta <- x pr <- exp(eta) / (1+ exp(eta)) res <- rbinom(n, 1, pr) fit <- unifit(res ~ x - 1, family = 'binomial')
Run the code above in your browser using DataLab