set.seed(24101968)
library(tramvs)
N <- 1e2
P <- 5
nz <- 3
beta <- rep(c(1, 0), c(nz, P - nz))
X <- matrix(rnorm(N * P), nrow = N, ncol = P)
Y <- 1 + X %*% beta + rnorm(N)
dat <- data.frame(y = Y, x = X)
abess_tram(y ~ ., dat, modFUN = Lm, supp = 3)
Run the code above in your browser using DataLab