ols.coef <-
function(x,y,xout=FALSE){
# In some cases, want the OLS estimate returned in $coef
res=ols(x,y,xout=xout)$coef[,1]
list(coef=res)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.