# NOT RUN {
set.seed(2019)
beta <- c(3, 1.5, 0, 0, 2, 0, 0, 0)
p <- length(beta)
beta <- matrix(beta, nrow = p, ncol = 1)
n = 100
X = matrix(rnorm(n*p),n,p)
y = X%*%beta + rnorm(n)
model1 <- bridge(X, y, q = 1)
print(model1)
model2 <- bridge(X, y, q = 2)
print(model2)
# }
Run the code above in your browser using DataLab