Nothing
print.eff <- function (x, type = c("response", "link"), ...)
{
code = "</pre>"
code = paste(code, "<h2>",gsub(":", "*", x$term), "effect</h2>")
type <- match.arg(type)
if (type == "response")
x$fit <- x$transformation$inverse(x$fit)
table <- array(x$fit, dim = sapply(x$variables, function(x) length(x$levels)),
dimnames = lapply(x$variables, function(x) x$levels))
code = paste(code,h.m(table))
if (x$discrepancy > 0.001)
code = paste(code,"<p>Warning: There is an average discrepancy of",
round(x$discrepancy, 3), "percent in the 'safe' predictions for effect",
x$term, "</p>")
code = paste(code,"<pre>")
cat(code)
invisible(x)
}
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.