library(here)
library(tidyverse)
library(gt)
source(here("04-topics/rep-chv2011/Rcode/chv2011-gt-quarto.R"))

table_data <- tribble(
  ~symbol, ~definition, ~source,
  "Y", "Log average hourly wage 1989-1993 (1983 dollars)", "Outcome",
  "S", "College attendance (ever attended vs HS grad only)", "Treatment",
  "X", "AFQT, mother education, siblings, urban, local labor market, experience, cohort", "Controls",
  "$Z \\setminus X$", "College proximity at 14, local wage/unemployment/tuition at 17 (with X interactions)", "IV"
)

gt_tbl <- table_data |>
  gt() |>
  tab_header(
    title = "Table 2",
    subtitle = "Definitions of variables used in the empirical analysis"
  ) |>
  cols_label(symbol = "Symbol", definition = "Definition", source = "Role")

save(table_data, gt_tbl, file = here("04-topics/rep-chv2011/Rcode/Table_2.RData"))