Nothing
format.bagEarth <- function(x, file = "", cat = TRUE, ...)
{
library(earth)
eachEq <- lapply(
x$fit,
function(u, ...) format(u, ...),
...)
allEq <- paste(
"(",
paste(eachEq, collapse = "+"),
") /",
x$B,
"\n")
if(cat) cat(allEq, file = file) else return(allEq)
}
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.