R/coef.R

In aod: Analysis of Overdispersed Data

if(!isGeneric("coef"))
  setGeneric(name = "coef", def = function(object, ...) standardGeneric("coef"))

## model coefficients for class glimQL (functions quasibin and quasipois)
setMethod(f = "coef", signature(object = "glimQL"), definition = function(object, ...) coef(object@fm))

## model coefficients for class glimML (functions betabin and betapois)
setMethod(f = "coef", signature = "glimML", function(object, ...) {
  object@fixed.param
  })