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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.