R/mypredict.R

In xinxuyale/HDCI: High Dimensional Confidence Interval Based on Lasso and Bootstrap

Defines functions mypredict

Documented in mypredict

mypredict <- function(object, newx) {
  
  p <- length(object$meanx)
  drop(scale(newx, object$meanx, FALSE) %*% matrix(object$beta, nrow = p)) + object$mu
  
}