Scale income to millions so income_per_person rounds meaningfully

2026-03-09 14:31:50 -04:00
parent 83e50d2c36
commit d0a49ba45b
1 changed files with 2 additions and 4 deletions
--- a/scripts/01_create_data.R
+++ b/scripts/01_create_data.R
@@ -5,14 +5,12 @@

 source("scripts/00_paths.R")

-source("scripts/00_paths.R")
-
 library(tibble)
 library(readr)

 df_income <- tribble(
  ~id, ~category, ~denomination,     ~jan,     ~feb,     ~mar,     ~apr,     ~may,     ~jun,
-    1,  "income",        "euro", 42000, 39500, 44200, 41800, 43100, 40600
+    1,  "income",        "euro", 42000000, 39500000, 44200000, 41800000, 43100000, 40600000
 )

 df_population <- tribble(