train_linear <-
function(X,y,pars = list())
{
mod <- lm(y ~ X)
result <- list()
result$Yfit = as.matrix(mod$fitted.values)
result$residuals = as.matrix(mod$residuals)
result$model = mod
#for coefficients see list(mod$coef)
return(result)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.