Description Usage Arguments Value Author(s) Examples
This function estimate the VKT from a specific mode, purpose and average travel distance.
1 2 3 | VKT(population, employment, distance_per_trip, trips_per_person,
trips_per_employee,selected_mode_fraction,
selected_purpose_fraction)
|
population |
Population in selected location |
employment |
Number of jobs in selected location |
distance_per_trip |
Distance per trip per person for selected purpose |
trips_per_person |
Trips per person for selected location |
trips_per_employee |
Trips per employee for selected location |
selected_mode_fraction |
Fraction of trips for selected mode |
selected_purpose_fraction |
Fraction of trips for selected purpose |
mode |
Is the travel modal where we want to estimate the VKT, this can be a car or public transport. |
policy_elasticity |
Is the policy elasticity that will intervene in the VKTs estimation. |
Npt |
Fraction of trips for selected purpose |
a numerical value that represents the vehicle kilometre travelled based on the data included.
Ricardo Ochoa
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | data("Base_table_ENG")
df <- Base_table_ENG[,c("population", "employment")]
#To estimate for all rows in a data frame
df$vkt <- VKT(population = df$population,
employment = df$employment,
distance_per_trip = 4.34,
trips_per_person = 2.63,
trips_per_employee = 0.5,
selected_mode_fraction = 0.62183751,
selected_purpose_fraction = 0.316)
#To estimate the VKT for a especific point
VKT(population = 93000, employment = 34000, distance_per_trip = 4.34, trips_per_person = 2.63,
trips_per_employee = 0.5,selected_mode_fraction = 0.62183751,
selected_purpose_fraction = 0.316)
#To estimate the VKT with the intervention of a policy
VKT(population = 1028,
employment = 203,
distance_per_trip = 4.50,
trips_per_person = 3.9,
trips_per_employee = 2,
selected_mode_fraction = 0.0068,
selected_purpose_fraction = 0.55,
policy_elasticity = 3.5, #reduction with the new policy(%)
mode = "Bus", #Public transport or private vehicle
Npt = 25) #New % occupation
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.