burden_yll: Calculate the number of YLL

In richardbroome2002/iomlifetR: An implementation of the IOMLIFET spreadsheets

Description

Calculate the number of YLL

Usage

burden_yll(attributable_number, life_expectancy)

Arguments

attributable_number	A numeric vector of age-specific attributable numbers
life_expectancy	A numeriv vector of age-specific life expectancies

Value

A numeric vector of age_specific YLL

Examples

population <- subset(abridged_data,
                     time == 2011 & sex == "Persons" & measure == "Population",
                     select = c(age, value))
population <- population$value
deaths <- subset(abridged_data,
                 time == 2011 & sex == "Persons" & measure == "Deaths",
                 select = c(age, value))
start_age <- as.numeric(gsub(" .+", "", deaths$age))
deaths <- deaths$value
demog_data <- data.frame(age = start_age, population, deaths)
le <- burden_le(demog_data)
impacted_le <- le[["impacted"]][, "ex"]
an <- burden_an(demog_data)
yll <- burden_yll(an, impacted_le)
sum(yll)

richardbroome2002/iomlifetR documentation built on Aug. 19, 2019, 10:26 p.m.