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))
}
Run the code above in your browser using DataLab