num.intercepts <- function(fit, type=c('fit', 'var', 'coef'))
{
type <- match.arg(type)
nrp <- fit$non.slopes
if(!length(nrp)) {
nm1 <- names(fit$coef)[1]
nrp <- 1*(nm1=="Intercept" | nm1=="(Intercept)")
}
if(type == 'fit') return(nrp)
w <- if(type == 'var') fit$var else fit$coefficients
i <- attr(w, 'intercepts')
li <- length(i)
if(!li) return(nrp)
if(li == 1 && i == 0) 0 else li
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.