\({}_n q_x^{(j)}\) from a multiple-decrement table

\({}_n q_x^{(j)}\) from a multiple-decrement table

Usage

nqxj_md(tbl, x, n, j)

Arguments

tbl

Output from md_table().

x

Starting age.

n

Number of years.

j

Cause index.

Value

Numeric scalar.

Examples

x <- 45:50
qmat <- cbind(q1 = c(.011, .012, .013, .014, .015, .016), q2 = rep(.1, 6))
tbl <- md_table(x, qmat, radix = 1000)
nqxj_md(tbl, x = 46, n = 2, j = 1)
#> [1] 0.023544