From d0a49ba45b07bac553437373cc6e2a88bd12b1b2 Mon Sep 17 00:00:00 2001 From: Rob Wiederstein Date: Mon, 9 Mar 2026 14:31:50 -0400 Subject: [PATCH] Scale income to millions so income_per_person rounds meaningfully --- scripts/01_create_data.R | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/scripts/01_create_data.R b/scripts/01_create_data.R index 0d7a285..26260e5 100644 --- 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 + ~id, ~category, ~denomination, ~jan, ~feb, ~mar, ~apr, ~may, ~jun, + 1, "income", "euro", 42000000, 39500000, 44200000, 41800000, 43100000, 40600000 ) df_population <- tribble(