8.6 Emisiones por desgaste

El desgaste de frenos, neumáticos y caminos genera emisiones de material particulado. La sección del script que estima estas emisiones en main.R es:

# Wear ####
language <- "spanish" # english spanish portuguese
provincia <- unique(fuel$region)[1]
# provincia <- unique(fuel$region)[as.numeric(basename(getwd()))]
metadata <- readRDS("config/metadata.rds")
mileage <- readRDS("config/mileage.rds")
veh <- readRDS("config/fleet_age.rds")
net <- readRDS("network/net.rds")
pmonth <- readRDS("config/pmonth.rds")
met <- readRDS("config/met.rds")
euro <- readRDS("config/euro.rds")
tech <- readRDS("config/tech.rds")
fuel_spec <- readRDS("config/fuel_spec.rds")
verbose <- FALSE
year <- 2019
nt <- 10 # check_nt() / 2
source("scripts/wear_eea.R", encoding = "UTF-8")