T9E.1 <- data.frame(x = 3:10*5, FP = c(234.0, 185.7, 112.5, 86.7, 107.0, 122.0, 112.6, NA)*1000, BirthBS = c(3986, 23798, 27433, 12065, 7642, 2771, 354, NA), lx = c(0.97518, 0.97258, 0.96916, 0.96524, 0.96006, 0.95209, 0.94091, 0.92435)) # Calculate the Gross and Net Reproduction Rates for Hong Kong, 1973. # The sex ratio at birth is not given, so that 1.05 should be assumed. # Before calculation, it can be expected that NRR and GRR are not so different. # The reason is lx being close to 1 until age 50. # And, the population structure is strange (30-34 is smaller than 35-39 and 40-44). # GRR T9E.1$FASFR <- T9E.1$BirthBS*(100/205)/T9E.1$FP sum(T9E.1$FASFR*5, na.rm=TRUE) # NRR T9E.1$L5x <- (T9E.1$lx + c(T9E.1$lx[-1], NA)) / 2 * 5 T9E.1$FBSP <- T9E.1$FASFR * T9E.1$L5x sum(T9E.1$FBSP, na.rm=TRUE) print(T9E.1) # According to the result, NRR is only slightly less than GRR, due to low # mortality as expected. # The Hong Kong women would produce about 1.5 daughters if the fertility and # mortality schedules in 1973 are experienced forever.