# NOT RUN {
# Do not run
euros <- c("V", "V", "IV", "III", "II", "I", "PRE", "PRE")
dt <- matrix(rep(2:25,5), ncol = 12, nrow = 10) # 12 months, 10 rows
row.names(dt) <- paste0("Simple_Feature_", 1:10)
efc <- ef_ldv_cold(ta = dt, cc = "<=1400", f ="G", eu = euros, p = "CO", speed = Speed(34))
efh <- ef_ldv_speed(v = "PC", t = "4S", cc = "<=1400", f = "G",
eu = euros, p = "CO", speed = Speed(34))
lkm <- units::as_units(18:10, "km")*1000
cold_lkm <- cold_mileage(ltrip = units::as_units(20, "km"), ta = celsius(dt))
names(cold_lkm) <- paste0("Month_", 1:12)
veh_month <- c(rep(8, 1), rep(10, 5), 9, rep(10, 5))
veh <- age_ldv(1:10, agemax = 8)
emis_cold_td(veh = veh, lkm = lkm, ef = efh, efcold = efc[1:10, ],
beta = cold_lkm[,1], verbose = TRUE,)
emis_cold_td(veh = veh, lkm = lkm, ef = efh, efcold = efc[1:10, ],
beta = cold_lkm[,1], verbose = TRUE,
params = list(paste0("data_", 1:10), "moredata"))
aa <- emis_cold_td(veh = veh, lkm = lkm, ef = efh, efcold = efc,
beta = cold_lkm, pro_month = veh_month, verbose = T)
aa <- emis_cold_td(veh = veh, lkm = lkm, ef = efh, efcold = efc,
beta = cold_lkm, pro_month = veh_month, verbose = FALSE,
params = list(paste0("data_", 1:10), "moredata"))
# }
Run the code above in your browser using DataCamp Workspace