calculate_strata_weights.R