R/nobs-methods.R

In melt: Multiple Empirical Likelihood Tests

#' @rdname nobs
setMethod("nobs", "EL", function(object, ...) {
  object@nobs
})

#' @rdname nobs
setMethod("nobs", "SummaryEL", function(object, ...) {
  object@nobs
})

#' @rdname nobs
setMethod("nobs", "SummaryLM", function(object, ...) {
  object@nobs
})