Expanded Vehicles data.frame by hour — temp_veh • vein

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

Examples

if (FALSE) { # \dontrun{
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))
} # }