Nothing
dglm.control <- function(epsilon = 1e-007, maxit = 50, trace = FALSE, ...) {
# Control iteration for dglm
# As for glm.control but with different defaults
# GKS 9 Jan 98
#
if (epsilon <= 0) {
warning("the value of epsilon supplied is zero or negative;
the default value of 1e-7 was used instead")
epsilon <- 1e-007}
if (maxit < 1) {
warning("the value of maxit supplied is zero or negative;
the default value of 50 was used instead")
maxit <- 50}
list(epsilon = epsilon, maxit = maxit, trace = as.logical(trace)[1])
}
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.