R/Proc.reg.confint.R

In ipveka/Proc.reg: Auxiliar functions for regression analysis

#' Summary table of a linear model
#' @param lm A lm() object
#' @return returns a summary table of the confidence intervals from the paraters calculated on a lineal model
#' @examples
#' \dontrun{Proc.reg.confint(lm)}
#' @export

Proc.reg.confint <- function(lm){
   t1 <- as.data.frame(confint(lm))
   aux1 <- row.names(t1)
   t2 <-   as.data.frame(confint(lm.beta(lm)))
   t <- cbind(aux1,t1,aux1,t2)
   t <- data.frame(t,row.names=NULL)
   t <- t %>% dplyr::mutate_if(is.numeric, round, digits = 3)
   colnames(t) <- c("Estimates","2.5%","97.5%","Std. Estimates","2.5%","97.5%")
   t <- datatable(t, rownames=FALSE,
                  options = list(dom = 't',ordering=F, columnDefs = list(
                     list(className = "dt-center", targets = "_all")
                  )))
   return(t)
}