Emissions_energy: Estimation of GHG emissions and energy use.

In Iavalos/VKT: An implementation of the VKT in a region.

Description

A function to estimate the GHG emissions and energy consumption from specific VKT.

Usage

Emissions_energy(unique.ID, location.ID, df.base, df.assumptions)

Arguments

unique.ID	Is the identifier of every MMU (numeric value).
location.ID	Is the ID identification of every urban category (I.e. distinction between urban and rural, or districts). This should be in numeric value.
df.base	Is the table reference that contains the ID and Settlement columns as well as population density and employment density information.
df.assumptions	Is the table reference with all the assumption values.

Value

Incorporate new columns on the table base (df.base). The new columns are the following:

Car.VKT.Wk	Total daily VKT from cars with work as purpose trip
Bus.VKT.Wk	Total daily VKT from public transport with work as purpose trip
Car.VKT.Sch	Total daily VKT from cars with School as purpose trip
Bus.VKT.Sch	Total daily VKT from public transport with School as purpose trip
Car.VKT	Sum of total daily VKT from cars
Bus.VKT	Sum of total daily VKT from public transport
Daily.VKT	Sum of total daily VKT from cars and public transport
Car.energy.gasoline	Energy consumption from cars that use gasoline
Car.energy.diesel	Energy consumption from cars that use diesel
Bus.energy.gasoline	Energy consumption from the share of public transport that use gasoline
Bus.energy.diesel	Energy consumption from the share of public transport that use diesel
Total.Energy	Total energy consumption from both fuels and modes
Total.GHG	GHG emissions from the total energy consumption

Author(s)

Ricardo Ochoa

See Also

VKT_table

Examples

data("assumptions_MX")
data("Base_table_weekday_CDMX")

GHG <- Emissions_energy(unique.ID= base_table_week[1,1], location.ID = base_table_week[1,2],
                 df.base = base_table_week, df.assumptions = assumptions_MX)

#Estimate the complete information, including VKT, energy consumption and GHG emissions in the complete dataset for Mexico City

new.table = data.frame(matrix(ncol=0,nrow=nrow(base_table_week)))
  for (i in 1:nrow(base_table_week)){
x <- Emissions_energy(unique.ID = base_table_week[i,1], location.ID = base_table_week[i,2],
                   df.base = base_table_week, df.assumptions = assumptions_MX)
new.table <- rbind(new.table,x)


  }
print (new.table)

Iavalos/VKT documentation built on Sept. 27, 2020, 11:43 p.m.