R/main_table_semester.R

In michaeltopper1/ifc: Functions for Fraternity Project

#' Finds the Average Length of IFC Moratoria.
#'
#' @description
#' `main_table_semester` returns the main table broken down by subsets of fullsample/weekend/weekdays.
#'
#' @details
#' This function relies on dplyr, modelsummary, and tibble packages to work.
#'
#' @param full_sample a list of fixest objects. This will be the regressions for the full sample.
#' @param weekends a list of fixest objects. This will be the regressions for the weekend sample.
#' @param weekdays a list of fixest objects. This will be the regressions for the weekdays.
#'
#' @examples
#' main_table(full_sample, weekends, weekdays)
#'
#' @export main_table_semester
#'

main_table_semester <- function(full_sample, weekends, weekdays){
  gm_first <- tribble(~raw, ~clean, ~fmt,
                      "nobs", "Num.Obs", ~fmt)
  gm <- tribble(~raw, ~clean, ~fmt,
                "nobs", "Num.Obs", ~fmt,
                "FE: day_of_week","FE: Day-of-Week", ~fmt,
                "FE: semester_number", "FE: Semester-by-Year", ~fmt,
                "FE: university","FE: University", ~fmt,
                "FE: year", "FE: Year", ~fmt,
                "FE: university_by_semester_number", "FE: University-by-Semester-Number", ~fmt,
                "FE: date", "FE: Day-by-Month-by-Year", ~fmt,
                "FE: university_by_year_by_semester_number", "FE: University-by-Year-by-Semester-Number", ~fmt)
  full <- modelsummary(full_sample, stars = T, output = "data.frame",
                       coef_map = c("lead_2" = "2 Semesters Before",
                                    "lead_1" = "Semester Before",
                                    "treatment" = "Moratorium",
                                    "lag_1" = "Semester After",
                                    "lag_2" = "2 Semesters After"),
                       gof_map = gm_first) %>%
    mutate(term = ifelse(statistic == "modelsummary_tmp2", "", term)) %>%
    select(matches("term|^model"))
  weekends <- modelsummary(weekends, stars = T, output = "data.frame",
                           coef_map = c("lead_2" = "2 Semesters Before",
                                        "lead_1" = "Semester Before",
                                        "treatment" = "Moratorium",
                                        "lag_1" = "Semester After",
                                        "lag_2" = "2 Semesters After"),
                           gof_map = gm_first) %>%
    mutate(term = ifelse(statistic == "modelsummary_tmp2", "", term)) %>%
    select(matches("term|^model"))
  weekdays <-  modelsummary(weekdays, stars = T, output = "data.frame",
                            coef_map = c("lead_2" = "2 Semesters Before",
                                         "lead_1" = "Semester Before",
                                         "treatment" = "Moratorium",
                                         "lag_1" = "Semester After",
                                         "lag_2" = "2 Semesters After"),
                            gof_map = gm) %>%
    mutate(term = ifelse(statistic == "modelsummary_tmp2", "", term)) %>%
    select(matches("term|^model"))
  table <- bind_rows(full, weekends, weekdays)
  return(table)
}