6. Calibración de la actividad vehicular

Luego que la actividad vehicular inicial es calculada, el script fuel_eval_eea.R, que recalcula la actividad vehicular para hacer un match con las ventas de combustible. O sea, la estimación de las emisiones de consumo de combustible resulta igual que las ventas de combustible de la región de estudio.

El bloque de código es:

# 3) Estimation ####
language <- "spanish" # english spanish portuguese
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")

verbose <- FALSE
year <- 2019

# fuel calibration with fuel consumption data
fuel <- readRDS("config/fuel.rds")
pol <- "FC"
provincia <- unique(fuel$region)[1]
# provincia <- unique(fuel$region)[as.numeric(basename(getwd()))]
nt <- 10 # check_nt() / 2
source("scripts/fuel_eval_eea.R", encoding = "UTF-8")