u5mr_trussell: Estimating under-five mortality using Coale-Demeny life table...

Description Usage Arguments Details Value References Examples

View source: R/u5mr_trussell.R

Description

[Stable]

u5mr_trussell() uses the Trussell version of the BRASS method and calculates under-five mortality estimates.

Usage

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
u5mr_trussell(
  data,
  women = "women",
  child_born = "child_born",
  child_dead = "child_dead",
  agegrp = "agegrp",
  model = "west",
  svy_year = 1976.5,
  sex
)

Arguments

data

processed data

women

total number of women

child_born

children ever born

child_dead

children dead

agegrp

age grouping

model

Coale-Demeny life table model: north, south, east, and west

svy_year

end of the survey

sex

indicates sex-specific estimates: both, male, and female

Details

T. J. Trussell developed the Trussell version of the Brass method to estimate child mortality using summary birth history (United Nations, 1983b, Chapter III). It is based on the Coale-Demeny life table models of either North, South, East, or West.

Computational Procedure

Step 1. Preparing the dataset

The function needs four variables from the input data:

a) agegrp: age groups representing 15-19, 20-24, 25-29, 30-34, 35-39, 40-44, and 45-49.

b) women: the total number of women in the age group irrespective of their marital or reporting status

c) child_born: the total number of children ever borne by these women

d) child_dead: the number of children dead reported by these women

Step 1.1. Calculation of average parity per woman P(i)

P(i) = CEB(i) / FP(i)

Step 1.2. Calculation of the proportions dead among children ever borne D(i)

D(i) = CD(i) / CEB(i)

Step 2. Calculating the multipliers k(i) and probabilities of dying by age x q(x)

k(i) = a(i) + b(i) P(1)/P(2) + c(i) P(2)/P(3)

where a(i), b(i), and c(i) are coefficients estimated by regression analysis of simulated model cases, and P(1)/P(2) and P(2)/P(3) are parity ratios.

q(x) = k(i) x D(i)

Step 3. Calculating the reference dates for q(x) and interpolating q5

Under conditions of steady mortality change over time, a reference time t(i) can be estimated for each q(x).

t(i) = a(i) + b(i) P(1)/P(2) + c(i) P(2)/P(3)

Actual dates can be obtained by subtracting t(i) from the reference date of the survey or census, expressed in decimal terms.

Step 4. Interpolating between q(x) and model life table

A common index, in this case, under-five mortality q(5) can be obtained by conversions of corresponding q(x) values to the specified family of the Coale-Demeny life table models. In a given life table family and sex, the first step is to identify the mortality levels with q(x) values that enclose the estimated value q^e(x).

q^j(x) > q^e(x) > q^j+1(x)

where q^j(x) and q^j+1(x) are the model values of q(x) for levels j and j+1, and q^e(x) is the estimated value.

The desired common index q^c(5), or q5 is given by

q^c(5) = (1.0 - h) x q^j(5) + h x q^e(5)

where h is the interpolation factor calculated in the following way:

h = q^e(x) - q^j(x) / q^j+1(x) - q^j(x)

Step 5. Finalizing the calculation

The final output is combined into a data.frame, which contains original dataset as well as statistics produced during the computational procedure.

Value

data.frame

References

  1. United Nations (1990) "Step-by-step guide to the estimation of the child mortality" https://www.un.org/en/development/desa/population/publications/pdf/mortality/stepguide_childmort.pdf

  2. United Nations (1983) "Manual X indirect techniques for demographic estimation" https://www.un.org/en/development/desa/population/publications/pdf/mortality/stepguide_childmort.pdf

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
## Using Bangladesh survey data to estimate child mortality
data("bangladesh")
bang_both <- u5mr_trussell(bangladesh, sex = "both", model = "south", svy_year = 1974.3)
bang_male <- u5mr_trussell(bangladesh, child_born = "male_born",
                 child_dead = "male_dead", sex = "male",
                 model = "south", svy_year = 1974.3)
bang_female <- u5mr_trussell(bangladesh, child_born = "female_born",
                 child_dead = "female_dead", sex = "female",
                 model = "south", svy_year = 1974.3)

## plotting all data points
with(bang_both,
    plot(year, q5, type = "b", pch = 19,
         ylim = c(0, .45),
         col = "black", xlab = "Reference date", ylab = "u5MR",
         main = paste0("Under-five mortality, q(5) in Bangladesh, estimated\n",
                       "using model South and the Trussell version of the Brass method")))
with(bang_both, text(year, q5, agegrp, cex=0.65, pos=3,col="purple"))
with(bang_male,
    lines(year, q5, pch = 18, col = "red", type = "b", lty = 2))
with(bang_female,
    lines(year, q5, pch = 18, col = "blue", type = "b", lty = 3))
legend("bottomright", legend=c("Both sexes", "Male", "Female"),
      col = c("Black", "red", "blue"), lty = 1:3, cex=0.8)


## Using panama survey data to estimate child mortality
data("panama")
pnm_both <- u5mr_trussell(panama, sex = "both", model = "west", svy_year = 1976.5)
pnm_male <- u5mr_trussell(panama, child_born = "male_born",
                child_dead = "male_dead", sex = "male",
                model = "west", svy_year = 1976.5)
pnm_female <- u5mr_trussell(panama, child_born = "female_born",
                child_dead = "female_dead", sex = "female",
                model = "west", svy_year = 1976.5)

## plotting all data points
with(pnm_both,
    plot(year, q5, type = "b", pch = 19,
        ylim = c(0, .2), col = "black", xlab = "Reference date", ylab = "u5MR",
         main = paste0("Under-five mortality, q(5) in Panama, estimated\n",
                       "using model West and the Trussell version of the Brass method")))
with(pnm_both, text(year, q5, agegrp, cex=0.65, pos=3,col="purple"))
with(pnm_male,
    lines(year, q5, pch = 18, col = "red", type = "b", lty = 2))
with(pnm_female,
    lines(year, q5, pch = 18, col = "blue", type = "b", lty = 3))
legend("bottomleft", legend=c("Both sexes", "Male", "Female"),
      col = c("Black", "red", "blue"), lty = 1:3, cex=0.8)

u5mr documentation built on Sept. 9, 2021, 5:08 p.m.