Open lucas-vivier opened 1 year ago
In dev_inputs branch:
` # initialize DF stock by vintage (baseyear) - detailed fuel level bld_det_age_i <- geo_data %>% select_at(geo_levels) %>% left_join(stock_arch_base) %>% # baseyear results left_join(ct_eneff) %>% left_join(ct_fuel_comb) %>% left_join(shr_fuel_heat_base) %>% left_join(shr_distr_heat) %>%
mutate(n_units_eneff = stock_arch_base) %>% # assumption: one eneff per period of construction mutate(n_units_fuel = ifelse(fuel_heat == "district_heat", round(n_units_eneff * shr_distr_heat,rnd), # district heating round(n_units_eneff * (1 - shr_distr_heat) * shr_fuel_heat_base,rnd))) %>% # other fuels (decentralized) mutate(n_units_fuel = round(n_units_fuel, rnd)) %>% mutate_cond(mat == "sub", n_units_fuel = n_units_eneff) %>% # sub-standard buildings - one fuel type only select(-c(stock_arch_base, shr_fuel_heat_base, shr_distr_heat, n_units_eneff, mod_decision)) `
If I understood correctly, condition fuel_heat == "district_heat" is never TRUE because shr_fuel_heat_base variable does not contain this information.
shr_fuel_heat_base
In dev_inputs branch:
` # initialize DF stock by vintage (baseyear) - detailed fuel level bld_det_age_i <- geo_data %>% select_at(geo_levels) %>% left_join(stock_arch_base) %>% # baseyear results left_join(ct_eneff) %>% left_join(ct_fuel_comb) %>% left_join(shr_fuel_heat_base) %>% left_join(shr_distr_heat) %>%
left_join(shr_acc_cool) %>%
If I understood correctly, condition fuel_heat == "district_heat" is never TRUE because
shr_fuel_heat_basevariable does not contain this information.