R/summary_finalmodel_function.r

In RotanaRad/rotsurpackage: Conduct a Multiple Logistic Regression

#' Create a summary table with results of a glm model
#'
#' @param data a data frame
#' @param formula specify dependent and independent variables for glm formula
#'
#' @return summaries of the results of various model fitting functions.
#' @export
#'
#' @examples summary_finalmodel(data = gtsummary::trial, (substitute(response ~ age + factor(death))))
summary_finalmodel <- function(data, formula) {
  final.model <- stats::glm(formula, data, family = stats::binomial(logit))
  model_summary <- summary(final.model)
  return(model_summary)
}