Nothing
predict.expFamily <- function(object, b.hat, X, offset = 0, m, a, ...) {
lin.pred <- as.matrix(X) %*% b.hat + offset
y.hat <- unlink(object, lin.pred, m, a)
return(y.hat)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.