# Estimates seasonal-ageing indexes from quarterly tables of crude rates estimates. Given a set of quarterly tables of crude rates estimates corresponding to several years (periods), this function computes their corresponding seasonal-ageing indexes. ```r compute_SAI(x, y, ..., margins = FALSE, min.age = 0, max.age = 100) ``` ## Arguments - `x`: A data.frame/list output of either `crude_mx`, `crude_mx_sh2` or `crude_mx_sh3` functions corresponding to a period (typically a year). - `y`: A data.frame/list output of either `crude_mx`, `crude_mx_sh2` or `crude_mx_sh3` functions corresponding to another period (typically a different year than the one corresponding to `x`). - `...`: Further output(s) of either `crude_mx`, `crude_mx_sh2` or `crude_mx_sh3` functions corresponding to another period(s) (typically different year(s) than the ones corresponding to `x` and `y`). - `margins`: A `TRUE/FALSE` argument informing whether or not the marginal seasonal and ageing indexes should be also computed. Default, `FALSE`. - `min.age`: A non-negative integer informing about the initial minimal age for which SAIs must be computed. This minimum age can be increased depending on the ages for which there are crude mx estimates (exposed-at-risk) in the objects `x`, `y`, `...`. Default, 0. - `max.age`: A positive integer informing about the initial maximum age for which SAIs must be computed. This maximum age can be decreased depending on the maximum ages for which there are crude mx estimates (exposed-at-risk) in the objects `x`, `y`, `...`. Default, 100. ## Returns When `margins = FALSE` a data frame with the (raw, normalized and linearized) estimated seasonal-ageing indexes (SAI) corresponding to the set of integer ages determined by `min.age` and `max.age` and the exposed-at-risk in the mx crude estimates for each combination of age and calendar quarter. The data frame has the following components: - **age**: Integer age to which the SAIs corresponds. - **quarter.age**: Age quarter to which the SAIs corresponds. - **quarter.calendar**: Calendar (time, season) quarter to which the SAIs corresponds. - **SAI.raw**: Estimates of raw seasonal-ageing indexes for each combination of `age`, `quarter.age` and `quarter.calendar`. - **SAI.norm**: Estimates of seasonal-ageing indexes, attained after normalizing raw SAIs estimates, for each combination of `age`, `quarter.age` and `quarter.calendar`. - **SAI.lin**: Final estimates of seasonal-ageing indexes, attained after linearizing normalized SAIs estimates, for each combination of `age`, `quarter.age` and `quarter.calendar`. When `margins = TRUE` the output is a list with three data frames `SAI`, `SAI.age` and `SAI.quarter`. `SAI` is defined as just described above. `SAI.age` and `SAI.quarter` contains, in a similar vein than `SAI`, the estimated marginal SAIs, corresponding to, respectively, the age quarter and the calendar (time, season) quarter. ## Examples ```r # This can take a while t.stock <- time_exposed_stock(pop_2006$date.birth, 2006, "forward") t.stock <- t.stock[t.stock$age <= 100, ] temp <- quarterly_variables(death_2006$date.birth, death_2006$date.death) e.death <- count_events_quarter(temp) e.death <- e.death[e.death$age <= 100, ] t.birth <- time_exposed_newborns(birth_2006$date.birth) out <- crude_mx(t.stock, e.death, time.birth = t.birth) SAI.example <- compute_SAI(out, out) # Fast example dates.b <- c("2017-05-13", "2018-04-12", "2018-12-01") t.stock <- time_exposed_stock(dates.b, year = 2020, type = "backward") dates.bd <- c("2018-04-12") dates.d <- c("2020-05-23") x <- quarterly_variables(dates.bd, dates.d) e.death <- count_events_quarter(x) t.death <- time_exposed_outs(x) out <- crude_mx(t.stock, e.death, t.death) SAI.example <- compute_SAI(out, out) ``` ## References Pavia, JM and Lledo, J (2022). Estimation of the Combined Effects of Ageing and Seasonality on Mortality Risk. An application to Spain. *Journal of the Royal Statistical Society, Series A (Statistics in Society)*, 185(2), 471-497. tools:::Rd_expr_doi("10.1111/rssa.12769") ## Author(s) Jose M. Pavia pavia@uv.es Josep Lledo josep.lledo@uv.es

compute_SAI function