## generate sample data
set.seed(10)
n <- 30
p <- 6
X <- matrix(rnorm(n * p, 1), n, p)
X[,1] <- 1
eps <- rnorm(n)
beta <- rep(1, p)
y <- X %*% beta + eps
X_test <- matrix(rnorm(5 * p, 1), 5, p)
output <- fastQR::qrridge_cv(y = y, X = X, lambda = c(1,2),
k = 5, seed = 12, X_test = X_test, type = "QR")
output$coeff
Run the code above in your browser using DataLab