19 lines
451 B
R
19 lines
451 B
R
# 05_calc.R
|
|
# Reads merged data and calculates income per person.
|
|
|
|
source("scripts/00_paths.R")
|
|
|
|
library(readr)
|
|
library(dplyr)
|
|
|
|
df_merged <- read_csv(merged, show_col_types = FALSE)
|
|
|
|
df_result <- df_merged |>
|
|
mutate(income_per_person = round(value_usd / population, 4)) |>
|
|
select(month, value_usd, population, income_per_person)
|
|
|
|
write_csv(df_result, result)
|
|
|
|
cat("05_calc.R: calculated income per person, wrote df_result.csv\n")
|
|
print(df_result)
|