Activity-data times emission-factor inventory

Emissions = AD * EF, summed over the cells of a sector-by-fuel table and optionally weighted by per-gas global warming potentials.

Usage

Emisinv(activity, factor, gwp = NULL)

Arguments

activity

Activity data, one entry per sector-fuel cell.

factor

Emission factors, same shape as activity.

gwp

Per-column global warming potentials, or NULL.

Value

List with total, cell, bysector, byfuel, s, f.

References

IPCC (2006), 2006 IPCC Guidelines for National Greenhouse Gas Inventories, Volume 1, Chapter 1, Sect. 1.2. Read from the official PDF at www.ipcc-nggip.iges.or.jp.

Examples

V <- c(1, 2, 3, 4, 5, 6, 7, 8)
Emisinv(V, V)
#> $total
#> [1] 204
#> 
#> $cell
#>      [,1]
#> [1,]    1
#> [2,]    4
#> [3,]    9
#> [4,]   16
#> [5,]   25
#> [6,]   36
#> [7,]   49
#> [8,]   64
#> 
#> $bysector
#> [1]  1  4  9 16 25 36 49 64
#> 
#> $byfuel
#> [1] 204
#> 
#> $s
#> [1] 8
#> 
#> $f
#> [1] 1
#> 
#> $method
#> [1] "IPCC inventory equation Emissions = AD * EF"
#> 
#> attr(,"class")
#> [1] "morie_rich_result" "list"