perfil: Temporal profile for emissions

Description Usage Format Details Note References Examples

Description

Set of hourly profiles that represents the mean activity for each hour (local time) of the week.

LDV

Light Duty vehicles

HDV

Heavy Duty vehicles

PC_JUNE_2012

passenger cars counted in June 2012

PC_JUNE_2013

passenger cars counted in June 2013

PC_JUNE_2014

passenger cars counted in June 2014

LCV_JUNE_2012

light comercial vehicles counted in June 2012

LCV_JUNE_2013

light comercial vehicles counted in June 2013

LCV_JUNE_2014

light comercial vehicles counted in June 2014

MC_JUNE_2012

motorcycles counted in June 2012

MC_JUNE_2013

motorcycles counted in June 2013

MC_JUNE_2014

motorcycles counted in June 2014

HGV_JUNE_2012

Heavy good vehicles counted in June 2012

HGV_JUNE_2013

Heavy good vehicles counted in June 2013

HGV_JUNE_2014

Heavy good vehicles counted in June 2014

PC_JANUARY_2012

passenger cars counted in january 2012

PC_JANUARY_2013

passenger cars counted in january 2013

PC_JANUARY_2014

passenger cars counted in january 2014

LCV_JANUARY_2012

light comercial vehicles counted in january 2012

LCV_JANUARY_2013

light comercial vehicles counted in january 2013

LCV_JANUARY_2014

light comercial vehicles counted in january 2014

MC_JANUARY_2012

Motorcycles counted in january 2012

MC_JANUARY_2014

Motorcycles counted in january 2014

HGV_JANUARY_2012

Heavy good vehicles counted in january 2012

HGV_JANUARY_2013

Heavy good vehicles counted in january 2013

HGV_JANUARY_2014

Heavy good vehicles counted in january 2014

POW

Power generation emission profile

IND

Industrial emission profile

RES

Residencial emission profile

TRA

Transport emission profile

AGR

Agriculture emission profile

SHP

Emission profile for ships

SLV

Solvent use emission constant profile

WBD

Waste burning emisssion constant profile

PC_nov_2018

passenger cars at Janio Quadros on November 2018

HGV_nov_2018

heavy good vehicles at Janio Quadros on November 2018

TOTAL_nov_2018

total vehicle at Janio Quadros on November 2018

PC_out_2018

passenger cars at Anhanguera-Castello Branco on October 2018

MC_out_2018

Motorcycles cars at Anhanguera-Castello Branco on October 2018

Usage

1

Format

A list of data frames with activity by hour and weekday.

Details

- Profiles 1 to 2 are from traffic count at S<c3><a3>o Paulo city from Perez Mart<c3><ad>nez et al (2014).

- Profiles 3 to 25 comes from traffic counted of toll stations located in S<c3><a3>o Paulo city, for summer and winters of 2012, 2013 and 2014.

- Profiles 26 to 33 are for different sectors from Oliver et al (2003).

- Profiles 34 to 36 are for volumetric mechanized traffic count at Janio Quadros tunnel on NOvember 2018.

- Profiles 37 to 38 are for volumetric mechanized traffic count at Anhanguera-Castello Branco on October 2018.

Note

The profile is normalized by days (but is balanced for a complete week) it means diary_emission x profile = hourly_emission.

References

P<c3><a9>rez-Mart<c3><ad>nez, P. J., Miranda, R. M., Nogueira, T., Guardani, M. L., Fornaro, A., Ynoue, R., & Andrade, M. F. (2014). Emission factors of air pollutants from vehicles measured inside road tunnels in S<c3><a3>o Paulo: case study comparison. International Journal of Environmental Science and Technology, 11(8), 2155-2168.

Olivier, J., J. Peters, C. Granier, G. P<c3><a9>tron, J.F. M<c3><bc>ller, and S. Wallens, Present and future surface emissions of atmospheric compounds, POET Report #2, EU project EVK2-1999-00011, 2003.

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
# load the data
data(perfil)

# function to simple view
plot.perfil <- function(per = perfil$LDV, text="", color = "#0000FFBB"){
  plot(per[,1],ty = "l", ylim = range(per),axe = FALSE,
       xlab = "hour",ylab = "Intensity",main = text,col=color)
  for(i in 2:7){
    lines(per[,i],col = color)
  }
  for(i in 1:7){
    points(per[,i],col = "black", pch = 20)
  }
  axis(1,at=0.5+c(0,6,12,18,24),labels = c("00:00","06:00","12:00","18:00","00:00"))
  axis(2)
  box()
}

# view all profiles in perfil data
for(i in 1:length(names(perfil))){
  cat(paste("profile",i,names(perfil)[i],"\n"))
  plot.perfil(perfil[[i]],names(perfil)[i])
}

EmissV documentation built on May 2, 2019, 7:16 a.m.