# 04_merge.R
# Merges processed income (long, USD) and population (long, full units) on month.

source("scripts/00_paths.R")

library(readr)
library(dplyr)

df_income <- read_csv(income_usd,       show_col_types = FALSE)
df_pop    <- read_csv(population_full,  show_col_types = FALSE) |>
  select(month, population = value)

df_merged <- df_income |>
  left_join(df_pop, by = "month")

write_csv(df_merged, merged)

cat("05_merge.R: joined income and population, wrote df_merged.csv\n")