linmod.default <-
function(x, y,...){
x<-as.matrix(x)
y<-as.matrix(y)
est<-linmodEst(x,y)
est$fitted.values <- as.vector(x %*% est$coefficients)
est$residuals <- y - est$fitted.values
est$call <- match.call()
class(est) <- "linmod"
est
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.