R/summary2_lm.r

In RWE-Lab/publishr: publishr

#----------------------------------------------------------------------------#
#' @title summary lm mod
#' @description summary mod lm
#' @param mod a lm mod
#' @import stats
#' @export
summary2_lm = function(mod) {
  out1 =
  cbind(Estimate = coef(mod),
        confint.default(mod),
        P.value = round(coef(summary(mod))[,4],5))
  return(out1)
}