data(diabetes)
str(diabetes)
summary(diabetes$y)
if (FALSE) {
fit <- islasso(y ~ ., data = data.frame(y = diabetes$y, diabetes$x2),
family = gaussian())
summary(fit, pval = 0.05)
lambda.aic <- aic.islasso(fit, interval = c(1, 100))
fit.aic <- update(fit, lambda = lambda.aic)
summary(fit.aic, pval = 0.05)
}
Run the code above in your browser using DataLab