Nothing
print.vagam <- function(x, ...)
{
cat("Variational approximation for GAMs\n")
cat(paste("\nCall:", deparse(x$call, 200), "\n"))
cat(paste("\nEstimated regression coefficients for parametric component:"), x$kappa)
cat(paste("\nEstimated smoothing coefficients for nonparametric component:"), x$a)
cat(paste("\nEstimated smoothing parameters (or fixed if lambda was supplied):"), x$lambda)
cat(paste("\nNumber of interior knots used:"), x$no.knots)
cat(paste("\nMaximized value of the variational log-likelihood:"), x$logL)
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.