Expanded Vehicles data.frame by hour

Source: R/temp_veh.R

temp_veh multiplies vehicles with temporal factor

temp_veh(x, tfs, array = FALSE)

Arguments

x

Vehicles data.frame

tfs

temporal factor

array

Logical, to return an array

Value

data.table

See also

temp_fact

Examples

if (FALSE) {
data(net)
data(pc_profile)
x <- age_ldv(x = net$ldv)
dx <- temp_veh(x = x, tfs = pc_profile[[1]])
plot(Vehicles(as.data.frame(dx[, 1:50])))
dx2 <- temp_veh(x = x,
                tfs = pc_profile[[1]],
                array = TRUE)
plot(EmissionsArray(dx2))
}