R/build_education_yearsSchooling_pnad1990s.R

In antrologos/harmonizePNAD: harmonized variables for the National Household Sample Survey (PNAD-IBGE, Brazil)

build_education_yearsSchooling_pnad1990s <- function(Data){

        metadata = harmonizePNAD:::get_metadata(Data)
        necessary_var = ifelse(metadata$year >= 2007, "v4803", "v4703")
        harmonizePNAD:::check_necessary_vars(Data = Data, necessary_var)

        Data$yearsSchooling = Data[[necessary_var]]

        Data[ , yearsSchooling := yearsSchooling - 1]
        Data[yearsSchooling == 16, yearsSchooling := NA]

        Data
}