R/weighted_ses.R

In schifferl/LagSelectionBias:

weighted_ses <- function(early_life_ses, educational_luck,
                         education_covariance) {
    ses_weights <- c(1 - education_covariance, education_covariance)

    c(early_life_ses, educational_luck) %>%
        weighted.mean(ses_weights)
}