R/converged.R

In flexrsurv: Flexible Relative Survival Analysis

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
}