added alfa parametrization

biopsichas · Feb 10, 2024 · 252c5fc · 252c5fc
1 parent 532a27b
commit 252c5fc
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/lib/read_and_modify_landuse_lum.R b/lib/read_and_modify_landuse_lum.R
@@ -40,6 +40,7 @@ lum_head <- vroom_lines(paste(proj_path, 'landuse.lum.bak', sep = '/'), n_max =
 lum$cn2[which(substr(lum$name,1,1)=='f')] <- 'rc_strow_g'
 lum$cn2[which(substr(lum$name,1,2)=='fr')] <- 'wood_f'
 lum$cn2[which(substr(lum$name,1,2)=='fe')] <- 'pasth'
+lum$cn2[which(substr(lum$name,1,4)=='alfa')] <- 'pasth'
 lum$cn2[which(substr(lum$name,1,4)=='agrl')] <- 'brush_f'
 lum$cn2[which(substr(lum$name,1,4)=='urhd')] <- 'urban'
 lum$cn2[which(substr(lum$name,1,4)=='urld')] <- 'farm'
@@ -51,6 +52,7 @@ lum %>% filter(cn2 == "null") %>% select(name) %>% unique()
 lum$cons_prac[which(substr(lum$name,1,1)=='f')] <- 'up_down_slope'
 lum$cons_prac[which(substr(lum$name,1,2)=='fr')] <- 'up_down_slope'
 lum$cons_prac[which(substr(lum$name,1,2)=='fe')] <- 'up_down_slope'
+lum$cons_prac[which(substr(lum$name,1,4)=='alfa')] <- 'up_down_slope'
 lum$cons_prac[which(substr(lum$name,1,4)=='agrl')] <- 'up_down_slope'
 lum$cons_prac[which(substr(lum$name,1,4)=='urhd')] <- 'up_down_slope'
 lum$cons_prac[which(substr(lum$name,1,4)=='urld')] <- 'up_down_slope'
@@ -62,6 +64,7 @@ lum %>% filter(cons_prac == "null") %>% select(name) %>% unique()
 lum$ov_mann[which(substr(lum$name,1,1)=='f')] <- 'convtill_nores'
 lum$ov_mann[which(substr(lum$name,1,2)=='fr')] <- 'forest_med'
 lum$ov_mann[which(substr(lum$name,1,2)=='fe')] <- 'densegrass'
+lum$ov_mann[which(substr(lum$name,1,4)=='alfa')] <- 'densegrass'
 lum$ov_mann[which(substr(lum$name,1,4)=='agrl')] <- 'densegrass'
 lum$ov_mann[which(substr(lum$name,1,4)=='urhd')] <- 'urban_asphalt'
 lum$ov_mann[which(substr(lum$name,1,4)=='urld')] <- 'shortgrass'