extract_y <-
function(fit){
mu <- coef(fit)
ni <- nrow(fit$model)
sfit <- summary(fit)
vari <- (sfit$sigma)^2
return(list(mu=mu, ni=ni, vari=vari))}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.