R/conv-methods.R

In melt: Multiple Empirical Likelihood Tests

#' @describeIn conv Extracts the convergence status of the model with respect to
#'   the parameter.
setMethod("conv", "CEL", function(object, ...) {
  getOptim(object)$convergence
})

#' @describeIn conv Extracts the convergence status of the model with respect to
#'   the Lagrange multiplier.
setMethod("conv", "EL", function(object, ...) {
  getOptim(object)$convergence
})

#' @describeIn conv Extracts the convergence status of the test with respect to
#'   the parameter (or the Lagrange multiplier if the argument `lhs` is `NULL`).
setMethod("conv", "ELT", function(object, ...) {
  getOptim(object)$convergence
})

#' @describeIn conv Extracts the convergence status of the model with respect to
#'   the Lagrange multiplier.
setMethod("conv", "SummaryEL", function(object, ...) {
  getOptim(object)$convergence
})

#' @describeIn conv Extracts the convergence status of the test with respect to
#'   the parameter (or the Lagrange multiplier if the argument `lhs` is `NULL`).
setMethod("conv", "SummaryELT", function(object, ...) {
  getOptim(object)$convergence
})

#' @describeIn conv Extracts the convergence status of the model. See the
#'   documentation of \linkS4class{EL} and \linkS4class{CEL}.
setMethod("conv", "SummaryLM", function(object, ...) {
  getOptim(object)$convergence
})