data(breast)
str(breast)
table(breast$status)
if (FALSE) {
fit <- islasso.path(status ~ ., data = breast, family = binomial(),
alpha = 0, control = is.control(trace = 2L))
temp <- GoF.islasso.path(fit)
lambda.aic <- temp$lambda.min["AIC"]
fit.aic <- islasso(status ~ ., data = breast, family = binomial(),
alpha = 0, lambda = lambda.aic)
summary(fit.aic, pval = 0.05)
}
Run the code above in your browser using DataLab