set.seed(1)
n <- 40; p <- 6
X <- matrix(rnorm(n * p), n, p)
beta <- c(1.2, 2, -1, 0.5, 0.75, 2.5)
y <- X %*% beta + rnorm(n)
out <- blasso_pcg_lambda2_va(
vy = y, mX = X,
a = 1, b = 1, u = 1, v = 1,
nsamples = 200,
lambda_init = 1, sigma2_init = 1,
verbose = 0
)
summary(out$vlambda2)
Run the code above in your browser using DataLab