update code

saschagobel · Jun 21, 2021 · 10a0e60 · 10a0e60
1 parent 6b16563
commit 10a0e60
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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"))) %>%