Merge pull request #95 from dfe-analytical-services/bug_fix/number_ro…

…unding Fixed UASC rate per 10k rounding
dfe-analytical-services · Jul 12, 2024 · 05d9e2e · 05d9e2e
2 parents ae697c7 + ef2544d
commit 05d9e2e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/read_data.R b/R/read_data.R
@@ -820,7 +820,7 @@ merge_cla_dataframes <- function() {
  )
 
  merged_data <- merged_data %>%
- mutate(placement_per_10000 = round((as.numeric(placements_number) / as.numeric(population_estimate)) * 10000, 0)) %>%
+ mutate(placement_per_10000 = round((as.numeric(rate_per_10000) * (as.numeric(percentage) / 100)))) %>%
  mutate(`Placement Rate Per 10000` = case_when(
  placements_number == "c" ~ -100,
  placements_number == "low" ~ -200,