R/example_module.R

In best-practice-and-impact/CARS2: Coding in Analysis and Research Survey (CARS) Wave 2 Analysis

#'@title fit logistic regression
#'
#'@description fit logistic regression onto data
#'
#'@param formula string. R formula as character string.
#'@param data data.frame. 
#'
#'@return model (gml)
#'
#'@export

fit_log_reg <- function(formula, data) {
  model <- stats::glm(stats::as.formula(formula), family = "binomial", data = data)
  
  return(model)
}