# NOT RUN {
# Load simulated data as example
data(aggreg_data)
data(pop_ref)
# Estimate remaining life expectancy and Life Years
# Lost after age 70 years and before age 90 years
lyl_summary_data70 <- lyl_aggregated(data = aggreg_data, age = age, rates = rate,
data0 = pop_ref, age0 = age, surv0 = survival,
age_specific = 70, tau = 90)
# Summarize and plot the data
summary(lyl_summary_data70)
plot(lyl_summary_data70)
# }
Run the code above in your browser using DataCamp Workspace