print.summary.mrfit <-
function (x, digits = max(5, .Options$digits - 2), ...)
{
cat("\nCoefficients:\n")
est <- x$coef
print(format(est, digits = digits), quote = F)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.