A function that calculates CO2e emissions on a journey on land.
vehicle_emissions(
distance,
units = c("miles", "km"),
num = 1,
vehicle = c("Cars", "Motorbike"),
fuel = c("Petrol", "Diesel", "Unknown", "Battery Electric Vehicle",
"Plug-in Hybrid Electric Vehicle"),
car_type = c("Average car", "Small car", "Medium car", "Large car", "Mini",
"Supermini", "Lower medium", "Upper medium", "Executive", "Luxury", "Sports",
"Dual purpose 4X4", "MPV"),
bike_type = c("Average", "Small", "Medium", "Large"),
TD = TRUE,
include_WTT = TRUE,
include_electricity = TRUE,
owned_by_org = TRUE
)
Tonnes of CO2e emissions per mile travelled.
Distance in km or miles of the journey made (this can be calculated with other tools, such as google maps.).
Units for the distance travelled. Options are "km"
or "miles"
.
Number of vehicles used.
Vehicle used for the journey. Options are "Cars"
, "Motorbike"
.
Fuel type used for the journey. For car, "Petrol"
, "Diesel"
, "Unknown"
, "Battery Electric Vehicle"
, "Plug-in Hybrid Electric Vehicle"
are options. ##' "hybrid electric"
and "battery electric"
account for electricity kWh emissions.
Size/type of vehicle for car.
Options are c("Average car", "Small car", "Medium car", "Large car",
"Mini", "Supermini", "Lower medium", "Upper medium", "Executive",
"Luxury", "Sports", "Dual purpose 4X4", "MPV"),
.
Small denotes up to a 1.4L engine, unless diesel which is up to 1.7L engine. Medium denotes 1.4-2.0L for petrol cars, 1.7-2.0L for diesel cars. Large denotes 2.0L+ engine.
Size of vehicle for motorbike.
Options are "Small"
, "Medium"
, "Large"
, or "Average"
.
Sizes denote upto 125cc, 125cc-500cc, 500cc+ respectively.
logical.Whether to account for transmission and distribution (TD) for electric vehicles (only car
and van
)
logical. Well-to-tank (include_WTT) - whether to account for emissions associated with extraction, refining and transportation of the fuels (for non-electric vehicles).
logical. Whether to account for ... for electric vehicles (car and van).
logical. Whether the vehicle used is owned by the organisation or not (only for car
, motorbike
).
# Emissions for a 100 mile car journey
vehicle_emissions(distance = 100)
# Emissions for a 100 mile motorbike journey where the motorbike is 500+cc
vehicle_emissions(distance = 100, vehicle = "Motorbike", bike_type = "Large")
Run the code above in your browser using DataLab