knitr::opts_chunk$set( collapse = TRUE, comment = "#>")
When using the gtfs2emis
package to estimate the emission levels of a given public transport system, users are required to input data.frame
with a few characteristics of the public transport fleet, such as age or vehicle type. This vignette explains how users can build this input by showing practical examples for fleet data in Brazilian, European, and North American cities.
The first thing to have in mind is that the fleet data.frame
can be either:
gtfs2emis
will assume that fleet is homogeneously distributed across all routes; ORHere is an example of a simple fleet table that tells us the characteristics of the urban buses of Dublin, Ireland. The N
and fleet_composition
columns tell us, respectively, the absolute number and the proportion of buses with each combination of the following characteristics: vehicle type, Euro standard, technology, and fuel. Note that sum(fleet_df$fleet_composition)
has to be equal to 1.
simple_fleet_file <- system.file("extdata/irl_dub_fleet.txt", package = "gtfs2emis") simple_fleet_df <- read.csv(simple_fleet_file) head(simple_fleet_df)
This other table illustrates what a detailed fleet data table looks like, using the example of the city of Curitiba, Brazil. Here, the N
column also tells us the absolute number of buses with each combination of vehicle characteristics. However, note that this table brings a shape_id
column. These columns indicate which specific vehicles should be allocated to run on predefined shape_id
s of the GTFS data. For example, it allows users to assign articulated buses to specific routes in the transport network.
detailed_fleet_file <- system.file("extdata/bra_cur_fleet.txt", package = "gtfs2emis") detailed_fleet_df <- read.csv(detailed_fleet_file) head(detailed_fleet_df)
Please note that the columns in your fleet data table should differ depending on the data requirements of the emission factor model the user wants to consider. For example, the emission factor models for US cities (EMFAC2017 and MOVES3), developed by CARB and EPA, only require information on the type of bus, the fuel used, and age of the vehicle. Meanwhile, the EMEP model developed by the European Environment Agency requires much more info, including vehicle type, Euro standard, technology, and fuel. It also allows users to consider the passenger load and slope of streets.
To check which columns and sets of vehicle characteristics are required by each emission factor model, the user can read the documentation of the emission factor functions listed in the table below:
| Emission factor function | Region | Source | Type of buses | Other required characteristics |
|--------------------------|---------|---------------|------------------------------|-------------------------------------------|
| ef_brazil_cetesb()
| Brazil | CETESB | Micro, Standard, Articulated | Age, Fuel, EURO stage |
| ef_europe_emep()
| Europe | EMEP/EEA | Micro, Standard, Articulated | Fuel, EURO stage, technology, load, slope |
| ef_usa_moves()
| US | EMFAC2017/CARB| Urban Buses | Age, Fuel |
| ef_usa_emfac()
| US | MOVES3/EPA | Urban Buses | Age, Fuel |
Now here are a few examples of data.frames
with the fleet characteristics required by different emission factor models. Note that these examples are built as a simple fleet table that includes the fleet_composition
, indicating what proportion of the fleet is represented by vehicles with each characteristic.
Based on the 2019 data from the emission factor model of CETESB.
fleet_data_ef_cetesb <- data.frame( veh_type = c("BUS_MICRO_D", "BUS_URBAN_D", "BUS_ARTIC_D") , model_year = c(2010, 2012, 2018) , fuel = rep("D", 3) , fleet_composition = c(0.4, 0.4, 0.2)) fleet_data_ef_cetesb
Based on the European Monitoring and Evaluation Programme (EMEP), developed by EEA.
fleet_data_ef_europe <- data.frame( veh_type = c("Ubus Midi <=15 t" ,"Ubus Std 15 - 18 t" ,"Ubus Artic >18 t") , euro = c("III","IV","V") , fuel = rep("D",3) , tech = c("-","SCR","SCR") , fleet_composition = c(0.4,0.5,0.1)) # fleet_data_ef_europe
Based on the California Emission Factor model (EMFAC2017), developed by CARB.
fleet_data_ef_emfac <- data.frame( veh_type = "BUS_URBAN_D" , model_year = 2011:2015 , fuel = "D" , calendar_year = 2019 , fleet_composition = rep(0.2,5)) fleet_data_ef_emfac
Based on the Motor Vehicle Emission Simulator (MOVES3 Model), developed by EPA.
fleet_data_ef_moves <- data.frame( veh_type = "BUS_URBAN_D" , model_year = 2011:2015 , fuel = "D" , calendar_year = 2016 , fleet_composition = rep(0.2,5)) fleet_data_ef_moves
Check out our extra guide:
If you have any suggestions or want to report an error, please visit the package GitHub page.
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.