From 10a0e60c147dd5b87b659cf652d6c905ad535352 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Sascha=20G=C3=B6bel?= Date: Mon, 21 Jun 2021 14:08:42 +0200 Subject: [PATCH] update code --- code/functions.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/functions.R b/code/functions.R index 51b6bc6..ee92167 100644 --- a/code/functions.R +++ b/code/functions.R @@ -432,7 +432,7 @@ get_spatial_classification_l2 <- function(grid_classification, spatial_classific degurba_l1 == "rural areas" & rural_cluster_pop > low_density_rural_cells_pop & rural_cluster_pop > very_low_density_rural_cells_pop ~ "villages", degurba_l1 == "rural areas" & - low_density_rural_cells_pop > rural_cluster_pop & low_density_rural_cells_pop > + very_low_density_rural_cells_pop ~ "dispersed rural areas", + low_density_rural_cells_pop > rural_cluster_pop & low_density_rural_cells_pop > very_low_density_rural_cells_pop ~ "dispersed rural areas", degurba_l1 == "rural areas" & very_low_density_rural_cells_pop > rural_cluster_pop & very_low_density_rural_cells_pop > low_density_rural_cells_pop ~ "mostly uninhabited rural areas"), levels = c("cities", "dense towns", "semi-dense towns", "suburban areas", "villages", "dispersed rural areas", "mostly uninhabited rural areas"))) %>%