summary.Rnl <-
function (object, ...)
{
coef <- cbind(object$coef, object$se, object$coef/object$se)
res <- list(coefficients = coef, it = object$it, call = object$call)
class(res) <- "summary.Rnl"
res
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.