Environmentally sustainable diet criterion

The environmental half of the HESD metric: biodiversity loss below the Table 3 **absolute** threshold. Exported on its own so it can be reported separately from the composite.

Usage

eiod_sustainable_diet(biodiversity, group)

Arguments

biodiversity

Numeric vector of per capita daily biodiversity loss (PDF*year).

group

Integer vector of demographic groups 1-8.

Value

An integer vector: `1` sustainable, `0` not, `NA` where missing.

Details

Biodiversity loss is used as the proxy for total environmental impact, following the methods paper.

See also

[eiod_low_impact()], the stricter relative criterion used by HDLEI.

Examples

data(eiod_demo)
grp <- eiod_age_sex_group(eiod_demo$age, eiod_demo$sex)
table(eiod_sustainable_diet(eiod_demo$biodiv_pdf, grp), useNA = "ifany")
#> 
#>    0    1 <NA> 
#>  252  336   12