powered by
unilps(formula, data = list(), family = c("gaussian", "binomial"), lambda = NULL, nlambda = 100, lambda.min.ratio = ifelse(nobs
unifit
lambda
lambda.max
nobs
mvbfit
lps
unilps
mvblps
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 <- unilps(res ~ x - 1, family = 'binomial')
Run the code above in your browser using DataLab