R/helper-functions.R

In johnrbryant/agesim: Simulate Age Structures in Small Populations

make_propn_sex <- function(sex_ratio) {
    check_positive_numeric(value = sex_ratio,
                           name = "sex_ratio")
    pr_male <- sex_ratio / (100 + sex_ratio)
    values <- c(1 - pr_male, pr_male)
    labels <- c("Female", "Male")
    dembase::ValuesOne(values,
                       labels = labels,
                       name = "sex")
}