R/accessors.R

In philipmgoddard/lmPG: lmPG: S4 Linear Model

#' @include class-definition.R
NULL

#' Set the generic for accessor (getter) for coefficients
#' @param object object of class LinRegP
#' @export
setGeneric("getCoef",
           function(object){
             standardGeneric("getCoef")
           })

#' @describeIn getCoef
#' @export
setMethod("getCoef",
          signature = "LinRegP",
          function(object){
            out <- object@modelCoef[, 1]
            return(out)
          })