Nothing
converged <- function(fit, step="init step", stop=FALSE){
if (fit$convergence==1) {
ret <- FALSE
if (stop) stop(paste("iteration limit 'maxit' have been reached in", step, sep=" "))
}
else if (fit$convergence==10) {
ret <- FALSE
if (stop) stop(paste("Degenerancy of Nelder_Mead simplex", step, sep=" "))
} else {
ret <- TRUE
}
ret
}
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.