Nothing
print.glmpathcr <-
function (x, ...)
{
cat("Call:\n")
dput(x$call)
actions <- x$actions
xn <- x$xnames[-1]
k <- length(actions)
for (i in 1:k) {
if (length(actions[[i]]) > 0) {
cat("Step", i, ":")
for (ii in actions[[i]]) {
if (ii > 0)
cat(" ", xn[ii])
else cat(" -", xn[-ii])
}
cat("\n")
}
}
}
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.