R/predict.spls.wrap.R

In wrbrooks/spls.wrap: Wraps the spls package for variable selection and model-building.

Defines functions predict.spls.wrap

Documented in predict.spls.wrap

predict.spls.wrap <-
function(obj, newx) {       
    n = nrow(newx)
    p = length(obj[['coef']])
    b = as.matrix(obj[['coef']])
    x = as.matrix((newx[,obj[['predictors']]]))
    
    print(obj[['Intercept']])
    return(obj[['Intercept']] + x %*% b)
}