R/try_boot.R

In econet: Estimation of Parameter-Dependent Network Centrality Measures

#' @keywords internal
#' @import minpack.lm
#' @noRd
try_boot <- function(specification, sv, db) {

  out <- tryCatch(
    {

      nlsLM(formula = specification, start = sv, data = db, trace= T,
            control = nls.lm.control(ftol = sqrt(.Machine$double.eps) / 1000,
                                     ptol = sqrt(.Machine$double.eps)/1000,
                                     gtol = 0, diag = list(), epsfcn = 0,
                                     factor = 100, maxfev = integer(),
                                     maxiter = 300, nprint = 0))
    },
    error = function(cond){
      n <- length(sv)
      return(setNames(rep(NA,n),names(sv)))
    }
  )
  return(out)
}