# results to match un manual 1984 (table 24)
net_sr(bombay_1951, pop0_col = "pop_1941", pop1_col = "pop_1951")
# results to match Bogue, Hinze and White (1982)
library(dplyr)
alabama_1970 %>%
filter(race == "white", sex == "male") %>%
select(-race, -sex) %>%
group_by(age_1970) %>%
net_sr(pop0_col = "pop_1960", pop1_col = "pop_1970",
survival_ratio_col = "us_census_sr")
# results to match UN manual 1992 (table 6)
net_sr(manila_1970, pop0_col = "pop_1960", pop1_col = "pop_1970",
survival_ratio_col = "phl_census_sr")
# with children net migration estimate
net_sr(manila_1970, pop0_col = "pop_1960", pop1_col = "pop_1970",
survival_ratio_col = "phl_census_sr", net_children = TRUE)
Run the code above in your browser using DataLab