if (FALSE) {
set.seed(1)
n <- 100; p <- 30
beta <- c(runif(10, -3, 3), rep(0, p - 10))
sim <- simulXy(n = n, p = p, beta = beta, seed = 1, family = gaussian())
fit <- islasso.path(y ~ ., data = sim$data, family = gaussian())
optimal <- GoF.islasso.path(fit)
pred <- predict(fit, type = "response", lambda = optimal$lambda.min)
}
Run the code above in your browser using DataLab