Nothing
print.deglmx <-
function(x, ...){
cat("Degradation fit:\n")
print(x$type)
cat("\n")
cat("Degradation trend:\n")
print(x$ytrend)
cat("\n")
cat("Dynamic covariates:\n")
print(x$dyncovnames)
cat("\n")
cat("Convergent:\n")
print(x$fit$conv)
cat("\n")
cat("Coefficients:\n")
print(x$fit$coef)
cat("\n")
cat("Loglikelihood:\n")
print(x$fit$loglik)
cat("\n")
cat("Random effects:\n")
print(x$fit$ran.eff)
}
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.