# NOT RUN {
if (requireNamespace('rstanarm', quietly=TRUE)) {
### Usage with stanreg objects
n <- 30
d <- 5
x <- matrix(rnorm(n*d), nrow=n)
y <- x[,1] + 0.5*rnorm(n)
data <- data.frame(x,y)
fit <- rstanarm::stan_glm(y ~ X1 + X2 + X3 + X4 + X5, gaussian(), data=data, chains=2, iter=500)
vs <- varsel(fit)
# compute predictions with 4 variables at the training points
pred <- proj_linpred(vs, newdata = data, nv = 4)
pred <- proj_predict(vs, newdata = data, nv = 4)
}
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab