R/coef.R

In Sidryd/lab4sidjac: Linear regression

#' Return the coefficients of a linreg object
#' @description \code{resid} returns the coefficients of a linreg object.
#' @param object A linreg object.
#' @param ... Further arguments passed to or from other methods.
#' @return Return coefficients.
#' @examples
#' coef(linreg(Petal.Length ~ Species, iris))
#' @export
#'

# coef
coef.linreg <- function(object, ...){
  res <- c(object[[4]])
  names(res) <- rownames(object[[4]])
  return(res)
}