treecoverloss_emissions {mapme.biodiversity}

Calculate emission statistics

Description

This functions allows to efficiently calculate emission statistics for areas of interest. For each year in the analysis timeframe, the forest losses from Hansen et al. (2013) are overlayed with the respective emission layer from Harris et al. (2021) and area-wise emission statistics are calculated for each year.

Usage

calc_treecoverloss_emissions(years = 2000:2020, min_size = 10, min_cover = 35)

Arguments

years

A numeric vector with the years for which to calculate emissions caused by treecover loss.

min_size

The minimum size of a forest patch in ha.

min_cover

The minimum threshold of stand density for a pixel to be considered forest in the year 2000.

Details

The required resources for this indicator are:

• gfw_treecover

• gfw_lossyear

• gfw_emissions

Value

A function that returns a tibble with a column for years and emissions (in Mg).

Examples

## Not run: 
library(sf)
library(mapme.biodiversity)

outdir <- file.path(tempdir(), "mapme-data")
dir.create(outdir, showWarnings = FALSE)

mapme_options(
  outdir = outdir,
  verbose = FALSE
)

aoi <- system.file("extdata", "sierra_de_neiba_478140_2.gpkg",
  package = "mapme.biodiversity"
) %>%
  read_sf() %>%
  get_resources(
    get_gfw_treecover(version = "GFC-2020-v1.8"),
    get_gfw_lossyear(version = "GFC-2020-v1.8"),
    get_gfw_emissions()
  ) %>%
  calc_indicators(
    calc_treecoverloss_emissions(years = 2016:2017, min_size = 1, min_cover = 30)
  ) %>%
  tidyr::unnest(treecoverloss_emissions)

aoi

## End(Not run)