R/build_education_yearsSchooling_pnad1980s.R
In antrologos/harmonizePNAD: harmonized variables for the National Household Sample Survey (PNAD-IBGE, Brazil)
# Cálculo dos anos de estudo para as PNADs dos Anos 1980
build_education_yearsSchooling_pnad1980s <- function(Data){
harmonizePNAD:::check_necessary_vars(Data = Data, c("v0312", "v0314", "v0315", "v0317"))
Data[, yearsSchooling_tmp1 := as.numeric(NA)]
Data[, yearsSchooling_tmp2 := as.numeric(NA)]
Data[, yearsSchooling := as.numeric(NA)]
Data[v0314 ==0 & v0312 == 0 , yearsSchooling_tmp1 := 0]
Data[v0314 ==0 & v0312 == 1 , yearsSchooling_tmp1 := 0]
Data[v0314 ==0 & v0312 == 2 , yearsSchooling_tmp1 := 0]
Data[v0314 ==0 & v0312 == 3 , yearsSchooling_tmp1 := 0]
Data[v0314 ==0 & v0312 == 4 , yearsSchooling_tmp1 := 0]
Data[v0314 ==0 & v0312 == 5 , yearsSchooling_tmp1 := 0]
Data[v0314 ==0 & v0312 == 6 , yearsSchooling_tmp1 := 0]
Data[v0314 ==0 & v0312 == 7 , yearsSchooling_tmp1 := 0]
Data[v0314 ==0 & v0312 == 8 , yearsSchooling_tmp1 := 0]
Data[v0314 ==0 & v0312 == 9 , yearsSchooling_tmp1 := 0]
Data[v0314 ==1 & v0312 == 0 , yearsSchooling_tmp1 := 0]
Data[v0314 ==1 & v0312 == 1 , yearsSchooling_tmp1 := 0]
Data[v0314 ==1 & v0312 == 2 , yearsSchooling_tmp1 := 1]
Data[v0314 ==1 & v0312 == 3 , yearsSchooling_tmp1 := 2]
Data[v0314 ==1 & v0312 == 4 , yearsSchooling_tmp1 := 3]
Data[v0314 ==1 & v0312 == 5 , yearsSchooling_tmp1 := 3]
Data[v0314 ==1 & v0312 == 6 , yearsSchooling_tmp1 := 3]
Data[v0314 ==1 & v0312 == 7 , yearsSchooling_tmp1 := 3]
Data[v0314 ==1 & v0312 == 8 , yearsSchooling_tmp1 := 3]
Data[v0314 ==1 & v0312 == 9 , yearsSchooling_tmp1 := 0]
Data[v0314 ==2 & v0312 == 0 , yearsSchooling_tmp1 := 4]
Data[v0314 ==2 & v0312 == 1 , yearsSchooling_tmp1 := 4]
Data[v0314 ==2 & v0312 == 2 , yearsSchooling_tmp1 := 5]
Data[v0314 ==2 & v0312 == 3 , yearsSchooling_tmp1 := 6]
Data[v0314 ==2 & v0312 == 4 , yearsSchooling_tmp1 := 7]
Data[v0314 ==2 & v0312 == 5 , yearsSchooling_tmp1 := 7]
Data[v0314 ==2 & v0312 == 6 , yearsSchooling_tmp1 := 7]
Data[v0314 ==2 & v0312 == 7 , yearsSchooling_tmp1 := 7]
Data[v0314 ==2 & v0312 == 8 , yearsSchooling_tmp1 := 7]
Data[v0314 ==2 & v0312 == 9 , yearsSchooling_tmp1 := 4]
Data[v0314 ==3 & v0312 == 0 , yearsSchooling_tmp1 := 8]
Data[v0314 ==3 & v0312 == 1 , yearsSchooling_tmp1 := 8]
Data[v0314 ==3 & v0312 == 2 , yearsSchooling_tmp1 := 9]
Data[v0314 ==3 & v0312 == 3 , yearsSchooling_tmp1 := 10]
Data[v0314 ==3 & v0312 == 4 , yearsSchooling_tmp1 := 10]
Data[v0314 ==3 & v0312 == 5 , yearsSchooling_tmp1 := 10]
Data[v0314 ==3 & v0312 == 6 , yearsSchooling_tmp1 := 10]
Data[v0314 ==3 & v0312 == 7 , yearsSchooling_tmp1 := 10]
Data[v0314 ==3 & v0312 == 8 , yearsSchooling_tmp1 := 10]
Data[v0314 ==3 & v0312 == 9 , yearsSchooling_tmp1 := 8]
Data[v0314 ==4 & v0312 == 0 , yearsSchooling_tmp1 := 0]
Data[v0314 ==4 & v0312 == 1 , yearsSchooling_tmp1 := 0]
Data[v0314 ==4 & v0312 == 2 , yearsSchooling_tmp1 := 1]
Data[v0314 ==4 & v0312 == 3 , yearsSchooling_tmp1 := 2]
Data[v0314 ==4 & v0312 == 4 , yearsSchooling_tmp1 := 3]
Data[v0314 ==4 & v0312 == 5 , yearsSchooling_tmp1 := 4]
Data[v0314 ==4 & v0312 == 6 , yearsSchooling_tmp1 := 5]
Data[v0314 ==4 & v0312 == 7 , yearsSchooling_tmp1 := 6]
Data[v0314 ==4 & v0312 == 8 , yearsSchooling_tmp1 := 7]
Data[v0314 ==4 & v0312 == 9 , yearsSchooling_tmp1 := 0]
Data[v0314 ==5 & v0312 == 0 , yearsSchooling_tmp1 := 8]
Data[v0314 ==5 & v0312 == 1 , yearsSchooling_tmp1 := 8]
Data[v0314 ==5 & v0312 == 2 , yearsSchooling_tmp1 := 9]
Data[v0314 ==5 & v0312 == 3 , yearsSchooling_tmp1 := 10]
Data[v0314 ==5 & v0312 == 4 , yearsSchooling_tmp1 := 10]
Data[v0314 ==5 & v0312 == 5 , yearsSchooling_tmp1 := 10]
Data[v0314 ==5 & v0312 == 6 , yearsSchooling_tmp1 := 10]
Data[v0314 ==5 & v0312 == 7 , yearsSchooling_tmp1 := 10]
Data[v0314 ==5 & v0312 == 8 , yearsSchooling_tmp1 := 10]
Data[v0314 ==5 & v0312 == 9 , yearsSchooling_tmp1 := 8]
Data[v0314 ==6 & v0312 == 0 , yearsSchooling_tmp1 := 11]
Data[v0314 ==6 & v0312 == 1 , yearsSchooling_tmp1 := 11]
Data[v0314 ==6 & v0312 == 2 , yearsSchooling_tmp1 := 12]
Data[v0314 ==6 & v0312 == 3 , yearsSchooling_tmp1 := 13]
Data[v0314 ==6 & v0312 == 4 , yearsSchooling_tmp1 := 14]
Data[v0314 ==6 & v0312 == 5 , yearsSchooling_tmp1 := 14]
Data[v0314 ==6 & v0312 == 6 , yearsSchooling_tmp1 := 14]
Data[v0314 ==6 & v0312 == 7 , yearsSchooling_tmp1 := 14]
Data[v0314 ==6 & v0312 == 8 , yearsSchooling_tmp1 := 14]
Data[v0314 ==6 & v0312 == 9 , yearsSchooling_tmp1 := 11]
Data[v0314 ==7 & v0312 == 0 , yearsSchooling_tmp1 := 0]
Data[v0314 ==7 & v0312 == 1 , yearsSchooling_tmp1 := 0]
Data[v0314 ==7 & v0312 == 2 , yearsSchooling_tmp1 := 0]
Data[v0314 ==7 & v0312 == 3 , yearsSchooling_tmp1 := 0]
Data[v0314 ==7 & v0312 == 4 , yearsSchooling_tmp1 := 0]
Data[v0314 ==7 & v0312 == 5 , yearsSchooling_tmp1 := 0]
Data[v0314 ==7 & v0312 == 6 , yearsSchooling_tmp1 := 0]
Data[v0314 ==7 & v0312 == 7 , yearsSchooling_tmp1 := 0]
Data[v0314 ==7 & v0312 == 8 , yearsSchooling_tmp1 := 0]
Data[v0314 ==7 & v0312 == 9 , yearsSchooling_tmp1 := 0]
Data[v0314 ==8 & v0312 == 0 , yearsSchooling_tmp1 := 0]
Data[v0314 ==8 & v0312 == 1 , yearsSchooling_tmp1 := 0]
Data[v0314 ==8 & v0312 == 2 , yearsSchooling_tmp1 := 0]
Data[v0314 ==8 & v0312 == 3 , yearsSchooling_tmp1 := 0]
Data[v0314 ==8 & v0312 == 4 , yearsSchooling_tmp1 := 0]
Data[v0314 ==8 & v0312 == 5 , yearsSchooling_tmp1 := 0]
Data[v0314 ==8 & v0312 == 6 , yearsSchooling_tmp1 := 0]
Data[v0314 ==8 & v0312 == 7 , yearsSchooling_tmp1 := 0]
Data[v0314 ==8 & v0312 == 8 , yearsSchooling_tmp1 := 0]
Data[v0314 ==8 & v0312 == 9 , yearsSchooling_tmp1 := 0]
Data[v0314 ==9 & v0312 == 0 , yearsSchooling_tmp1 := 0]
Data[v0314 ==9 & v0312 == 1 , yearsSchooling_tmp1 := 0]
Data[v0314 ==9 & v0312 == 2 , yearsSchooling_tmp1 := 1]
Data[v0314 ==9 & v0312 == 3 , yearsSchooling_tmp1 := 2]
Data[v0314 ==9 & v0312 == 4 , yearsSchooling_tmp1 := 3]
Data[v0314 ==9 & v0312 == 5 , yearsSchooling_tmp1 := 4]
Data[v0314 ==9 & v0312 == 6 , yearsSchooling_tmp1 := 5]
Data[v0314 ==9 & v0312 == 7 , yearsSchooling_tmp1 := 6]
Data[v0314 ==9 & v0312 == 8 , yearsSchooling_tmp1 := 7]
Data[v0314 ==9 & v0312 == 9 , yearsSchooling_tmp1 := 0]
Data[v0314 ==10 & v0312 == 0 , yearsSchooling_tmp1 := 8]
Data[v0314 ==10 & v0312 == 1 , yearsSchooling_tmp1 := 8]
Data[v0314 ==10 & v0312 == 2 , yearsSchooling_tmp1 := 9]
Data[v0314 ==10 & v0312 == 3 , yearsSchooling_tmp1 := 10]
Data[v0314 ==10 & v0312 == 4 , yearsSchooling_tmp1 := 10]
Data[v0314 ==10 & v0312 == 5 , yearsSchooling_tmp1 := 10]
Data[v0314 ==10 & v0312 == 6 , yearsSchooling_tmp1 := 10]
Data[v0314 ==10 & v0312 == 7 , yearsSchooling_tmp1 := 10]
Data[v0314 ==10 & v0312 == 8 , yearsSchooling_tmp1 := 10]
Data[v0314 ==10 & v0312 == 9 , yearsSchooling_tmp1 := 8]
Data[v0314 ==11 & v0312 == 0 , yearsSchooling_tmp1 := 0]
Data[v0314 ==11 & v0312 == 1 , yearsSchooling_tmp1 := 0]
Data[v0314 ==11 & v0312 == 2 , yearsSchooling_tmp1 := 1]
Data[v0314 ==11 & v0312 == 3 , yearsSchooling_tmp1 := 2]
Data[v0314 ==11 & v0312 == 4 , yearsSchooling_tmp1 := 3]
Data[v0314 ==11 & v0312 == 5 , yearsSchooling_tmp1 := 4]
Data[v0314 ==11 & v0312 == 6 , yearsSchooling_tmp1 := 5]
Data[v0314 ==11 & v0312 == 7 , yearsSchooling_tmp1 := 6]
Data[v0314 ==11 & v0312 == 8 , yearsSchooling_tmp1 := 7]
Data[v0314 ==11 & v0312 == 9 , yearsSchooling_tmp1 := 0]
Data[v0314 ==12 & v0312 == 0 , yearsSchooling_tmp1 := 8]
Data[v0314 ==12 & v0312 == 1 , yearsSchooling_tmp1 := 8]
Data[v0314 ==12 & v0312 == 2 , yearsSchooling_tmp1 := 9]
Data[v0314 ==12 & v0312 == 3 , yearsSchooling_tmp1 := 10]
Data[v0314 ==12 & v0312 == 4 , yearsSchooling_tmp1 := 10]
Data[v0314 ==12 & v0312 == 5 , yearsSchooling_tmp1 := 10]
Data[v0314 ==12 & v0312 == 6 , yearsSchooling_tmp1 := 10]
Data[v0314 ==12 & v0312 == 7 , yearsSchooling_tmp1 := 10]
Data[v0314 ==12 & v0312 == 8 , yearsSchooling_tmp1 := 10]
Data[v0314 ==12 & v0312 == 9 , yearsSchooling_tmp1 := 8]
Data[v0314 ==13 & v0312 == 0 , yearsSchooling_tmp1 := 0]
Data[v0314 ==13 & v0312 == 1 , yearsSchooling_tmp1 := 0]
Data[v0314 ==13 & v0312 == 2 , yearsSchooling_tmp1 := 1]
Data[v0314 ==13 & v0312 == 3 , yearsSchooling_tmp1 := 2]
Data[v0314 ==13 & v0312 == 4 , yearsSchooling_tmp1 := 3]
Data[v0314 ==13 & v0312 == 5 , yearsSchooling_tmp1 := 4]
Data[v0314 ==13 & v0312 == 6 , yearsSchooling_tmp1 := 5]
Data[v0314 ==13 & v0312 == 7 , yearsSchooling_tmp1 := 6]
Data[v0314 ==13 & v0312 == 8 , yearsSchooling_tmp1 := 7]
Data[v0314 ==13 & v0312 == 9 , yearsSchooling_tmp1 := 0]
Data[v0314 ==14 & v0312 == 0 , yearsSchooling_tmp1 := 11]
Data[v0314 ==14 & v0312 == 1 , yearsSchooling_tmp1 := 11]
Data[v0314 ==14 & v0312 == 2 , yearsSchooling_tmp1 := 11]
Data[v0314 ==14 & v0312 == 3 , yearsSchooling_tmp1 := 11]
Data[v0314 ==14 & v0312 == 4 , yearsSchooling_tmp1 := 11]
Data[v0314 ==14 & v0312 == 5 , yearsSchooling_tmp1 := 11]
Data[v0314 ==14 & v0312 == 6 , yearsSchooling_tmp1 := 11]
Data[v0314 ==14 & v0312 == 7 , yearsSchooling_tmp1 := 11]
Data[v0314 ==14 & v0312 == 8 , yearsSchooling_tmp1 := 11]
Data[v0314 ==14 & v0312 == 9 , yearsSchooling_tmp1 := 11]
Data[v0314 ==15 & v0312 == 0 , yearsSchooling_tmp1 := 15]
Data[v0314 ==15 & v0312 == 1 , yearsSchooling_tmp1 := 15]
Data[v0314 ==15 & v0312 == 2 , yearsSchooling_tmp1 := 15]
Data[v0314 ==15 & v0312 == 3 , yearsSchooling_tmp1 := 15]
Data[v0314 ==15 & v0312 == 4 , yearsSchooling_tmp1 := 15]
Data[v0314 ==15 & v0312 == 5 , yearsSchooling_tmp1 := 15]
Data[v0314 ==15 & v0312 == 6 , yearsSchooling_tmp1 := 15]
Data[v0314 ==15 & v0312 == 7 , yearsSchooling_tmp1 := 15]
Data[v0314 ==15 & v0312 == 8 , yearsSchooling_tmp1 := 15]
Data[v0314 ==15 & v0312 == 9 , yearsSchooling_tmp1 := 15]
Data[v0314 ==99 & v0312 == 0 , yearsSchooling_tmp1 := 0]
Data[v0314 ==99 & v0312 == 1 , yearsSchooling_tmp1 := 0]
Data[v0314 ==99 & v0312 == 2 , yearsSchooling_tmp1 := 1]
Data[v0314 ==99 & v0312 == 3 , yearsSchooling_tmp1 := 2]
Data[v0314 ==99 & v0312 == 4 , yearsSchooling_tmp1 := 3]
Data[v0314 ==99 & v0312 == 5 , yearsSchooling_tmp1 := 4]
Data[v0314 ==99 & v0312 == 6 , yearsSchooling_tmp1 := 5]
Data[v0314 ==99 & v0312 == 7 , yearsSchooling_tmp1 := 6]
Data[v0314 ==99 & v0312 == 8 , yearsSchooling_tmp1 := 7]
Data[v0314 ==99 & v0312 == 9 , yearsSchooling_tmp1 := 0]
Data[v0317 ==0 & v0315 == 0 , yearsSchooling_tmp2 := 0]
Data[v0317 ==0 & v0315 == 1 , yearsSchooling_tmp2 := 0]
Data[v0317 ==0 & v0315 == 2 , yearsSchooling_tmp2 := 0]
Data[v0317 ==0 & v0315 == 3 , yearsSchooling_tmp2 := 0]
Data[v0317 ==0 & v0315 == 4 , yearsSchooling_tmp2 := 0]
Data[v0317 ==0 & v0315 == 5 , yearsSchooling_tmp2 := 0]
Data[v0317 ==0 & v0315 == 6 , yearsSchooling_tmp2 := 0]
Data[v0317 ==0 & v0315 == 7 , yearsSchooling_tmp2 := 0]
Data[v0317 ==0 & v0315 == 8 , yearsSchooling_tmp2 := 0]
Data[v0317 ==0 & v0315 == 9 , yearsSchooling_tmp2 := 0]
Data[v0317 ==1 & v0315 == 0 , yearsSchooling_tmp2 := 0]
Data[v0317 ==1 & v0315 == 1 , yearsSchooling_tmp2 := 1]
Data[v0317 ==1 & v0315 == 2 , yearsSchooling_tmp2 := 2]
Data[v0317 ==1 & v0315 == 3 , yearsSchooling_tmp2 := 3]
Data[v0317 ==1 & v0315 == 4 , yearsSchooling_tmp2 := 4]
Data[v0317 ==1 & v0315 == 5 , yearsSchooling_tmp2 := 4]
Data[v0317 ==1 & v0315 == 6 , yearsSchooling_tmp2 := 4]
Data[v0317 ==1 & v0315 == 7 , yearsSchooling_tmp2 := 4]
Data[v0317 ==1 & v0315 == 8 , yearsSchooling_tmp2 := 4]
Data[v0317 ==1 & v0315 == 9 , yearsSchooling_tmp2 := 0]
Data[v0317 ==2 & v0315 == 0 , yearsSchooling_tmp2 := 4]
Data[v0317 ==2 & v0315 == 1 , yearsSchooling_tmp2 := 5]
Data[v0317 ==2 & v0315 == 2 , yearsSchooling_tmp2 := 6]
Data[v0317 ==2 & v0315 == 3 , yearsSchooling_tmp2 := 7]
Data[v0317 ==2 & v0315 == 4 , yearsSchooling_tmp2 := 8]
Data[v0317 ==2 & v0315 == 5 , yearsSchooling_tmp2 := 8]
Data[v0317 ==2 & v0315 == 6 , yearsSchooling_tmp2 := 8]
Data[v0317 ==2 & v0315 == 7 , yearsSchooling_tmp2 := 8]
Data[v0317 ==2 & v0315 == 8 , yearsSchooling_tmp2 := 8]
Data[v0317 ==2 & v0315 == 9 , yearsSchooling_tmp2 := 4]
Data[v0317 ==3 & v0315 == 0 , yearsSchooling_tmp2 := 8]
Data[v0317 ==3 & v0315 == 1 , yearsSchooling_tmp2 := 9]
Data[v0317 ==3 & v0315 == 2 , yearsSchooling_tmp2 := 10]
Data[v0317 ==3 & v0315 == 3 , yearsSchooling_tmp2 := 11]
Data[v0317 ==3 & v0315 == 4 , yearsSchooling_tmp2 := 11]
Data[v0317 ==3 & v0315 == 5 , yearsSchooling_tmp2 := 11]
Data[v0317 ==3 & v0315 == 6 , yearsSchooling_tmp2 := 11]
Data[v0317 ==3 & v0315 == 7 , yearsSchooling_tmp2 := 11]
Data[v0317 ==3 & v0315 == 8 , yearsSchooling_tmp2 := 11]
Data[v0317 ==3 & v0315 == 9 , yearsSchooling_tmp2 := 8]
Data[v0317 ==4 & v0315 == 0 , yearsSchooling_tmp2 := 0]
Data[v0317 ==4 & v0315 == 1 , yearsSchooling_tmp2 := 1]
Data[v0317 ==4 & v0315 == 2 , yearsSchooling_tmp2 := 2]
Data[v0317 ==4 & v0315 == 3 , yearsSchooling_tmp2 := 3]
Data[v0317 ==4 & v0315 == 4 , yearsSchooling_tmp2 := 4]
Data[v0317 ==4 & v0315 == 5 , yearsSchooling_tmp2 := 5]
Data[v0317 ==4 & v0315 == 6 , yearsSchooling_tmp2 := 6]
Data[v0317 ==4 & v0315 == 7 , yearsSchooling_tmp2 := 7]
Data[v0317 ==4 & v0315 == 8 , yearsSchooling_tmp2 := 8]
Data[v0317 ==4 & v0315 == 9 , yearsSchooling_tmp2 := 0]
Data[v0317 ==5 & v0315 == 0 , yearsSchooling_tmp2 := 8]
Data[v0317 ==5 & v0315 == 1 , yearsSchooling_tmp2 := 9]
Data[v0317 ==5 & v0315 == 2 , yearsSchooling_tmp2 := 10]
Data[v0317 ==5 & v0315 == 3 , yearsSchooling_tmp2 := 11]
Data[v0317 ==5 & v0315 == 4 , yearsSchooling_tmp2 := 11]
Data[v0317 ==5 & v0315 == 5 , yearsSchooling_tmp2 := 11]
Data[v0317 ==5 & v0315 == 6 , yearsSchooling_tmp2 := 11]
Data[v0317 ==5 & v0315 == 7 , yearsSchooling_tmp2 := 11]
Data[v0317 ==5 & v0315 == 8 , yearsSchooling_tmp2 := 11]
Data[v0317 ==5 & v0315 == 9 , yearsSchooling_tmp2 := 8]
Data[v0317 ==6 & v0315 == 0 , yearsSchooling_tmp2 := 11]
Data[v0317 ==6 & v0315 == 1 , yearsSchooling_tmp2 := 12]
Data[v0317 ==6 & v0315 == 2 , yearsSchooling_tmp2 := 13]
Data[v0317 ==6 & v0315 == 3 , yearsSchooling_tmp2 := 14]
Data[v0317 ==6 & v0315 == 4 , yearsSchooling_tmp2 := 15]
Data[v0317 ==6 & v0315 == 5 , yearsSchooling_tmp2 := 15]
Data[v0317 ==6 & v0315 == 6 , yearsSchooling_tmp2 := 15]
Data[v0317 ==6 & v0315 == 7 , yearsSchooling_tmp2 := 15]
Data[v0317 ==6 & v0315 == 8 , yearsSchooling_tmp2 := 15]
Data[v0317 ==6 & v0315 == 9 , yearsSchooling_tmp2 := 11]
Data[v0317 ==7 & v0315 == 0 , yearsSchooling_tmp2 := 15]
Data[v0317 ==7 & v0315 == 1 , yearsSchooling_tmp2 := 15]
Data[v0317 ==7 & v0315 == 2 , yearsSchooling_tmp2 := 15]
Data[v0317 ==7 & v0315 == 3 , yearsSchooling_tmp1 := 15]
Data[v0317 ==7 & v0315 == 4 , yearsSchooling_tmp2 := 15]
Data[v0317 ==7 & v0315 == 5 , yearsSchooling_tmp2 := 15]
Data[v0317 ==7 & v0315 == 6 , yearsSchooling_tmp2 := 15]
Data[v0317 ==7 & v0315 == 7 , yearsSchooling_tmp2 := 15]
Data[v0317 ==7 & v0315 == 8 , yearsSchooling_tmp2 := 15]
Data[v0317 ==7 & v0315 == 9 , yearsSchooling_tmp2 := 15]
Data[v0317 ==99 & v0315 == 0 , yearsSchooling_tmp2 := 0]
Data[v0317 ==99 & v0315 == 1 , yearsSchooling_tmp2 := 1]
Data[v0317 ==99 & v0315 == 2 , yearsSchooling_tmp2 := 2]
Data[v0317 ==99 & v0315 == 3 , yearsSchooling_tmp2 := 3]
Data[v0317 ==99 & v0315 == 4 , yearsSchooling_tmp2 := 4]
Data[v0317 ==99 & v0315 == 5 , yearsSchooling_tmp2 := 5]
Data[v0317 ==99 & v0315 == 6 , yearsSchooling_tmp2 := 6]
Data[v0317 ==99 & v0315 == 7 , yearsSchooling_tmp2 := 7]
Data[v0317 ==99 & v0315 == 8 , yearsSchooling_tmp2 := 8]
Data[v0317 ==99 & v0315 == 9 , yearsSchooling_tmp2 := 0]
Data [ , situation1 := yearsSchooling_tmp1 >= Data$yearsSchooling_tmp2]
Data [is.na(situation1), situation1 := FALSE]
Data [ , situation2 := yearsSchooling_tmp1 < Data$yearsSchooling_tmp2]
Data [is.na(situation2), situation2 := FALSE]
Data[situation1 == TRUE, yearsSchooling := yearsSchooling_tmp1]
Data[situation2 == TRUE, yearsSchooling := yearsSchooling_tmp2]
Data[, yearsSchooling_tmp1 := NULL]
Data[, yearsSchooling_tmp2 := NULL]
Data[, situation1 := NULL]
Data[, situation2 := NULL]
gc(); Sys.sleep(.3); gc()
return(Data)
}
antrologos/harmonizePNAD documentation built on May 15, 2019, 10:48 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
# Cálculo dos anos de estudo para as PNADs dos Anos 1980
build_education_yearsSchooling_pnad1980s <- function(Data){
harmonizePNAD:::check_necessary_vars(Data = Data, c("v0312", "v0314", "v0315", "v0317"))
Data[, yearsSchooling_tmp1 := as.numeric(NA)]
Data[, yearsSchooling_tmp2 := as.numeric(NA)]
Data[, yearsSchooling := as.numeric(NA)]
Data[v0314 ==0 & v0312 == 0 , yearsSchooling_tmp1 := 0]
Data[v0314 ==0 & v0312 == 1 , yearsSchooling_tmp1 := 0]
Data[v0314 ==0 & v0312 == 2 , yearsSchooling_tmp1 := 0]
Data[v0314 ==0 & v0312 == 3 , yearsSchooling_tmp1 := 0]
Data[v0314 ==0 & v0312 == 4 , yearsSchooling_tmp1 := 0]
Data[v0314 ==0 & v0312 == 5 , yearsSchooling_tmp1 := 0]
Data[v0314 ==0 & v0312 == 6 , yearsSchooling_tmp1 := 0]
Data[v0314 ==0 & v0312 == 7 , yearsSchooling_tmp1 := 0]
Data[v0314 ==0 & v0312 == 8 , yearsSchooling_tmp1 := 0]
Data[v0314 ==0 & v0312 == 9 , yearsSchooling_tmp1 := 0]
Data[v0314 ==1 & v0312 == 0 , yearsSchooling_tmp1 := 0]
Data[v0314 ==1 & v0312 == 1 , yearsSchooling_tmp1 := 0]
Data[v0314 ==1 & v0312 == 2 , yearsSchooling_tmp1 := 1]
Data[v0314 ==1 & v0312 == 3 , yearsSchooling_tmp1 := 2]
Data[v0314 ==1 & v0312 == 4 , yearsSchooling_tmp1 := 3]
Data[v0314 ==1 & v0312 == 5 , yearsSchooling_tmp1 := 3]
Data[v0314 ==1 & v0312 == 6 , yearsSchooling_tmp1 := 3]
Data[v0314 ==1 & v0312 == 7 , yearsSchooling_tmp1 := 3]
Data[v0314 ==1 & v0312 == 8 , yearsSchooling_tmp1 := 3]
Data[v0314 ==1 & v0312 == 9 , yearsSchooling_tmp1 := 0]
Data[v0314 ==2 & v0312 == 0 , yearsSchooling_tmp1 := 4]
Data[v0314 ==2 & v0312 == 1 , yearsSchooling_tmp1 := 4]
Data[v0314 ==2 & v0312 == 2 , yearsSchooling_tmp1 := 5]
Data[v0314 ==2 & v0312 == 3 , yearsSchooling_tmp1 := 6]
Data[v0314 ==2 & v0312 == 4 , yearsSchooling_tmp1 := 7]
Data[v0314 ==2 & v0312 == 5 , yearsSchooling_tmp1 := 7]
Data[v0314 ==2 & v0312 == 6 , yearsSchooling_tmp1 := 7]
Data[v0314 ==2 & v0312 == 7 , yearsSchooling_tmp1 := 7]
Data[v0314 ==2 & v0312 == 8 , yearsSchooling_tmp1 := 7]
Data[v0314 ==2 & v0312 == 9 , yearsSchooling_tmp1 := 4]
Data[v0314 ==3 & v0312 == 0 , yearsSchooling_tmp1 := 8]
Data[v0314 ==3 & v0312 == 1 , yearsSchooling_tmp1 := 8]
Data[v0314 ==3 & v0312 == 2 , yearsSchooling_tmp1 := 9]
Data[v0314 ==3 & v0312 == 3 , yearsSchooling_tmp1 := 10]
Data[v0314 ==3 & v0312 == 4 , yearsSchooling_tmp1 := 10]
Data[v0314 ==3 & v0312 == 5 , yearsSchooling_tmp1 := 10]
Data[v0314 ==3 & v0312 == 6 , yearsSchooling_tmp1 := 10]
Data[v0314 ==3 & v0312 == 7 , yearsSchooling_tmp1 := 10]
Data[v0314 ==3 & v0312 == 8 , yearsSchooling_tmp1 := 10]
Data[v0314 ==3 & v0312 == 9 , yearsSchooling_tmp1 := 8]
Data[v0314 ==4 & v0312 == 0 , yearsSchooling_tmp1 := 0]
Data[v0314 ==4 & v0312 == 1 , yearsSchooling_tmp1 := 0]
Data[v0314 ==4 & v0312 == 2 , yearsSchooling_tmp1 := 1]
Data[v0314 ==4 & v0312 == 3 , yearsSchooling_tmp1 := 2]
Data[v0314 ==4 & v0312 == 4 , yearsSchooling_tmp1 := 3]
Data[v0314 ==4 & v0312 == 5 , yearsSchooling_tmp1 := 4]
Data[v0314 ==4 & v0312 == 6 , yearsSchooling_tmp1 := 5]
Data[v0314 ==4 & v0312 == 7 , yearsSchooling_tmp1 := 6]
Data[v0314 ==4 & v0312 == 8 , yearsSchooling_tmp1 := 7]
Data[v0314 ==4 & v0312 == 9 , yearsSchooling_tmp1 := 0]
Data[v0314 ==5 & v0312 == 0 , yearsSchooling_tmp1 := 8]
Data[v0314 ==5 & v0312 == 1 , yearsSchooling_tmp1 := 8]
Data[v0314 ==5 & v0312 == 2 , yearsSchooling_tmp1 := 9]
Data[v0314 ==5 & v0312 == 3 , yearsSchooling_tmp1 := 10]
Data[v0314 ==5 & v0312 == 4 , yearsSchooling_tmp1 := 10]
Data[v0314 ==5 & v0312 == 5 , yearsSchooling_tmp1 := 10]
Data[v0314 ==5 & v0312 == 6 , yearsSchooling_tmp1 := 10]
Data[v0314 ==5 & v0312 == 7 , yearsSchooling_tmp1 := 10]
Data[v0314 ==5 & v0312 == 8 , yearsSchooling_tmp1 := 10]
Data[v0314 ==5 & v0312 == 9 , yearsSchooling_tmp1 := 8]
Data[v0314 ==6 & v0312 == 0 , yearsSchooling_tmp1 := 11]
Data[v0314 ==6 & v0312 == 1 , yearsSchooling_tmp1 := 11]
Data[v0314 ==6 & v0312 == 2 , yearsSchooling_tmp1 := 12]
Data[v0314 ==6 & v0312 == 3 , yearsSchooling_tmp1 := 13]
Data[v0314 ==6 & v0312 == 4 , yearsSchooling_tmp1 := 14]
Data[v0314 ==6 & v0312 == 5 , yearsSchooling_tmp1 := 14]
Data[v0314 ==6 & v0312 == 6 , yearsSchooling_tmp1 := 14]
Data[v0314 ==6 & v0312 == 7 , yearsSchooling_tmp1 := 14]
Data[v0314 ==6 & v0312 == 8 , yearsSchooling_tmp1 := 14]
Data[v0314 ==6 & v0312 == 9 , yearsSchooling_tmp1 := 11]
Data[v0314 ==7 & v0312 == 0 , yearsSchooling_tmp1 := 0]
Data[v0314 ==7 & v0312 == 1 , yearsSchooling_tmp1 := 0]
Data[v0314 ==7 & v0312 == 2 , yearsSchooling_tmp1 := 0]
Data[v0314 ==7 & v0312 == 3 , yearsSchooling_tmp1 := 0]
Data[v0314 ==7 & v0312 == 4 , yearsSchooling_tmp1 := 0]
Data[v0314 ==7 & v0312 == 5 , yearsSchooling_tmp1 := 0]
Data[v0314 ==7 & v0312 == 6 , yearsSchooling_tmp1 := 0]
Data[v0314 ==7 & v0312 == 7 , yearsSchooling_tmp1 := 0]
Data[v0314 ==7 & v0312 == 8 , yearsSchooling_tmp1 := 0]
Data[v0314 ==7 & v0312 == 9 , yearsSchooling_tmp1 := 0]
Data[v0314 ==8 & v0312 == 0 , yearsSchooling_tmp1 := 0]
Data[v0314 ==8 & v0312 == 1 , yearsSchooling_tmp1 := 0]
Data[v0314 ==8 & v0312 == 2 , yearsSchooling_tmp1 := 0]
Data[v0314 ==8 & v0312 == 3 , yearsSchooling_tmp1 := 0]
Data[v0314 ==8 & v0312 == 4 , yearsSchooling_tmp1 := 0]
Data[v0314 ==8 & v0312 == 5 , yearsSchooling_tmp1 := 0]
Data[v0314 ==8 & v0312 == 6 , yearsSchooling_tmp1 := 0]
Data[v0314 ==8 & v0312 == 7 , yearsSchooling_tmp1 := 0]
Data[v0314 ==8 & v0312 == 8 , yearsSchooling_tmp1 := 0]
Data[v0314 ==8 & v0312 == 9 , yearsSchooling_tmp1 := 0]
Data[v0314 ==9 & v0312 == 0 , yearsSchooling_tmp1 := 0]
Data[v0314 ==9 & v0312 == 1 , yearsSchooling_tmp1 := 0]
Data[v0314 ==9 & v0312 == 2 , yearsSchooling_tmp1 := 1]
Data[v0314 ==9 & v0312 == 3 , yearsSchooling_tmp1 := 2]
Data[v0314 ==9 & v0312 == 4 , yearsSchooling_tmp1 := 3]
Data[v0314 ==9 & v0312 == 5 , yearsSchooling_tmp1 := 4]
Data[v0314 ==9 & v0312 == 6 , yearsSchooling_tmp1 := 5]
Data[v0314 ==9 & v0312 == 7 , yearsSchooling_tmp1 := 6]
Data[v0314 ==9 & v0312 == 8 , yearsSchooling_tmp1 := 7]
Data[v0314 ==9 & v0312 == 9 , yearsSchooling_tmp1 := 0]
Data[v0314 ==10 & v0312 == 0 , yearsSchooling_tmp1 := 8]
Data[v0314 ==10 & v0312 == 1 , yearsSchooling_tmp1 := 8]
Data[v0314 ==10 & v0312 == 2 , yearsSchooling_tmp1 := 9]
Data[v0314 ==10 & v0312 == 3 , yearsSchooling_tmp1 := 10]
Data[v0314 ==10 & v0312 == 4 , yearsSchooling_tmp1 := 10]
Data[v0314 ==10 & v0312 == 5 , yearsSchooling_tmp1 := 10]
Data[v0314 ==10 & v0312 == 6 , yearsSchooling_tmp1 := 10]
Data[v0314 ==10 & v0312 == 7 , yearsSchooling_tmp1 := 10]
Data[v0314 ==10 & v0312 == 8 , yearsSchooling_tmp1 := 10]
Data[v0314 ==10 & v0312 == 9 , yearsSchooling_tmp1 := 8]
Data[v0314 ==11 & v0312 == 0 , yearsSchooling_tmp1 := 0]
Data[v0314 ==11 & v0312 == 1 , yearsSchooling_tmp1 := 0]
Data[v0314 ==11 & v0312 == 2 , yearsSchooling_tmp1 := 1]
Data[v0314 ==11 & v0312 == 3 , yearsSchooling_tmp1 := 2]
Data[v0314 ==11 & v0312 == 4 , yearsSchooling_tmp1 := 3]
Data[v0314 ==11 & v0312 == 5 , yearsSchooling_tmp1 := 4]
Data[v0314 ==11 & v0312 == 6 , yearsSchooling_tmp1 := 5]
Data[v0314 ==11 & v0312 == 7 , yearsSchooling_tmp1 := 6]
Data[v0314 ==11 & v0312 == 8 , yearsSchooling_tmp1 := 7]
Data[v0314 ==11 & v0312 == 9 , yearsSchooling_tmp1 := 0]
Data[v0314 ==12 & v0312 == 0 , yearsSchooling_tmp1 := 8]
Data[v0314 ==12 & v0312 == 1 , yearsSchooling_tmp1 := 8]
Data[v0314 ==12 & v0312 == 2 , yearsSchooling_tmp1 := 9]
Data[v0314 ==12 & v0312 == 3 , yearsSchooling_tmp1 := 10]
Data[v0314 ==12 & v0312 == 4 , yearsSchooling_tmp1 := 10]
Data[v0314 ==12 & v0312 == 5 , yearsSchooling_tmp1 := 10]
Data[v0314 ==12 & v0312 == 6 , yearsSchooling_tmp1 := 10]
Data[v0314 ==12 & v0312 == 7 , yearsSchooling_tmp1 := 10]
Data[v0314 ==12 & v0312 == 8 , yearsSchooling_tmp1 := 10]
Data[v0314 ==12 & v0312 == 9 , yearsSchooling_tmp1 := 8]
Data[v0314 ==13 & v0312 == 0 , yearsSchooling_tmp1 := 0]
Data[v0314 ==13 & v0312 == 1 , yearsSchooling_tmp1 := 0]
Data[v0314 ==13 & v0312 == 2 , yearsSchooling_tmp1 := 1]
Data[v0314 ==13 & v0312 == 3 , yearsSchooling_tmp1 := 2]
Data[v0314 ==13 & v0312 == 4 , yearsSchooling_tmp1 := 3]
Data[v0314 ==13 & v0312 == 5 , yearsSchooling_tmp1 := 4]
Data[v0314 ==13 & v0312 == 6 , yearsSchooling_tmp1 := 5]
Data[v0314 ==13 & v0312 == 7 , yearsSchooling_tmp1 := 6]
Data[v0314 ==13 & v0312 == 8 , yearsSchooling_tmp1 := 7]
Data[v0314 ==13 & v0312 == 9 , yearsSchooling_tmp1 := 0]
Data[v0314 ==14 & v0312 == 0 , yearsSchooling_tmp1 := 11]
Data[v0314 ==14 & v0312 == 1 , yearsSchooling_tmp1 := 11]
Data[v0314 ==14 & v0312 == 2 , yearsSchooling_tmp1 := 11]
Data[v0314 ==14 & v0312 == 3 , yearsSchooling_tmp1 := 11]
Data[v0314 ==14 & v0312 == 4 , yearsSchooling_tmp1 := 11]
Data[v0314 ==14 & v0312 == 5 , yearsSchooling_tmp1 := 11]
Data[v0314 ==14 & v0312 == 6 , yearsSchooling_tmp1 := 11]
Data[v0314 ==14 & v0312 == 7 , yearsSchooling_tmp1 := 11]
Data[v0314 ==14 & v0312 == 8 , yearsSchooling_tmp1 := 11]
Data[v0314 ==14 & v0312 == 9 , yearsSchooling_tmp1 := 11]
Data[v0314 ==15 & v0312 == 0 , yearsSchooling_tmp1 := 15]
Data[v0314 ==15 & v0312 == 1 , yearsSchooling_tmp1 := 15]
Data[v0314 ==15 & v0312 == 2 , yearsSchooling_tmp1 := 15]
Data[v0314 ==15 & v0312 == 3 , yearsSchooling_tmp1 := 15]
Data[v0314 ==15 & v0312 == 4 , yearsSchooling_tmp1 := 15]
Data[v0314 ==15 & v0312 == 5 , yearsSchooling_tmp1 := 15]
Data[v0314 ==15 & v0312 == 6 , yearsSchooling_tmp1 := 15]
Data[v0314 ==15 & v0312 == 7 , yearsSchooling_tmp1 := 15]
Data[v0314 ==15 & v0312 == 8 , yearsSchooling_tmp1 := 15]
Data[v0314 ==15 & v0312 == 9 , yearsSchooling_tmp1 := 15]
Data[v0314 ==99 & v0312 == 0 , yearsSchooling_tmp1 := 0]
Data[v0314 ==99 & v0312 == 1 , yearsSchooling_tmp1 := 0]
Data[v0314 ==99 & v0312 == 2 , yearsSchooling_tmp1 := 1]
Data[v0314 ==99 & v0312 == 3 , yearsSchooling_tmp1 := 2]
Data[v0314 ==99 & v0312 == 4 , yearsSchooling_tmp1 := 3]
Data[v0314 ==99 & v0312 == 5 , yearsSchooling_tmp1 := 4]
Data[v0314 ==99 & v0312 == 6 , yearsSchooling_tmp1 := 5]
Data[v0314 ==99 & v0312 == 7 , yearsSchooling_tmp1 := 6]
Data[v0314 ==99 & v0312 == 8 , yearsSchooling_tmp1 := 7]
Data[v0314 ==99 & v0312 == 9 , yearsSchooling_tmp1 := 0]
Data[v0317 ==0 & v0315 == 0 , yearsSchooling_tmp2 := 0]
Data[v0317 ==0 & v0315 == 1 , yearsSchooling_tmp2 := 0]
Data[v0317 ==0 & v0315 == 2 , yearsSchooling_tmp2 := 0]
Data[v0317 ==0 & v0315 == 3 , yearsSchooling_tmp2 := 0]
Data[v0317 ==0 & v0315 == 4 , yearsSchooling_tmp2 := 0]
Data[v0317 ==0 & v0315 == 5 , yearsSchooling_tmp2 := 0]
Data[v0317 ==0 & v0315 == 6 , yearsSchooling_tmp2 := 0]
Data[v0317 ==0 & v0315 == 7 , yearsSchooling_tmp2 := 0]
Data[v0317 ==0 & v0315 == 8 , yearsSchooling_tmp2 := 0]
Data[v0317 ==0 & v0315 == 9 , yearsSchooling_tmp2 := 0]
Data[v0317 ==1 & v0315 == 0 , yearsSchooling_tmp2 := 0]
Data[v0317 ==1 & v0315 == 1 , yearsSchooling_tmp2 := 1]
Data[v0317 ==1 & v0315 == 2 , yearsSchooling_tmp2 := 2]
Data[v0317 ==1 & v0315 == 3 , yearsSchooling_tmp2 := 3]
Data[v0317 ==1 & v0315 == 4 , yearsSchooling_tmp2 := 4]
Data[v0317 ==1 & v0315 == 5 , yearsSchooling_tmp2 := 4]
Data[v0317 ==1 & v0315 == 6 , yearsSchooling_tmp2 := 4]
Data[v0317 ==1 & v0315 == 7 , yearsSchooling_tmp2 := 4]
Data[v0317 ==1 & v0315 == 8 , yearsSchooling_tmp2 := 4]
Data[v0317 ==1 & v0315 == 9 , yearsSchooling_tmp2 := 0]
Data[v0317 ==2 & v0315 == 0 , yearsSchooling_tmp2 := 4]
Data[v0317 ==2 & v0315 == 1 , yearsSchooling_tmp2 := 5]
Data[v0317 ==2 & v0315 == 2 , yearsSchooling_tmp2 := 6]
Data[v0317 ==2 & v0315 == 3 , yearsSchooling_tmp2 := 7]
Data[v0317 ==2 & v0315 == 4 , yearsSchooling_tmp2 := 8]
Data[v0317 ==2 & v0315 == 5 , yearsSchooling_tmp2 := 8]
Data[v0317 ==2 & v0315 == 6 , yearsSchooling_tmp2 := 8]
Data[v0317 ==2 & v0315 == 7 , yearsSchooling_tmp2 := 8]
Data[v0317 ==2 & v0315 == 8 , yearsSchooling_tmp2 := 8]
Data[v0317 ==2 & v0315 == 9 , yearsSchooling_tmp2 := 4]
Data[v0317 ==3 & v0315 == 0 , yearsSchooling_tmp2 := 8]
Data[v0317 ==3 & v0315 == 1 , yearsSchooling_tmp2 := 9]
Data[v0317 ==3 & v0315 == 2 , yearsSchooling_tmp2 := 10]
Data[v0317 ==3 & v0315 == 3 , yearsSchooling_tmp2 := 11]
Data[v0317 ==3 & v0315 == 4 , yearsSchooling_tmp2 := 11]
Data[v0317 ==3 & v0315 == 5 , yearsSchooling_tmp2 := 11]
Data[v0317 ==3 & v0315 == 6 , yearsSchooling_tmp2 := 11]
Data[v0317 ==3 & v0315 == 7 , yearsSchooling_tmp2 := 11]
Data[v0317 ==3 & v0315 == 8 , yearsSchooling_tmp2 := 11]
Data[v0317 ==3 & v0315 == 9 , yearsSchooling_tmp2 := 8]
Data[v0317 ==4 & v0315 == 0 , yearsSchooling_tmp2 := 0]
Data[v0317 ==4 & v0315 == 1 , yearsSchooling_tmp2 := 1]
Data[v0317 ==4 & v0315 == 2 , yearsSchooling_tmp2 := 2]
Data[v0317 ==4 & v0315 == 3 , yearsSchooling_tmp2 := 3]
Data[v0317 ==4 & v0315 == 4 , yearsSchooling_tmp2 := 4]
Data[v0317 ==4 & v0315 == 5 , yearsSchooling_tmp2 := 5]
Data[v0317 ==4 & v0315 == 6 , yearsSchooling_tmp2 := 6]
Data[v0317 ==4 & v0315 == 7 , yearsSchooling_tmp2 := 7]
Data[v0317 ==4 & v0315 == 8 , yearsSchooling_tmp2 := 8]
Data[v0317 ==4 & v0315 == 9 , yearsSchooling_tmp2 := 0]
Data[v0317 ==5 & v0315 == 0 , yearsSchooling_tmp2 := 8]
Data[v0317 ==5 & v0315 == 1 , yearsSchooling_tmp2 := 9]
Data[v0317 ==5 & v0315 == 2 , yearsSchooling_tmp2 := 10]
Data[v0317 ==5 & v0315 == 3 , yearsSchooling_tmp2 := 11]
Data[v0317 ==5 & v0315 == 4 , yearsSchooling_tmp2 := 11]
Data[v0317 ==5 & v0315 == 5 , yearsSchooling_tmp2 := 11]
Data[v0317 ==5 & v0315 == 6 , yearsSchooling_tmp2 := 11]
Data[v0317 ==5 & v0315 == 7 , yearsSchooling_tmp2 := 11]
Data[v0317 ==5 & v0315 == 8 , yearsSchooling_tmp2 := 11]
Data[v0317 ==5 & v0315 == 9 , yearsSchooling_tmp2 := 8]
Data[v0317 ==6 & v0315 == 0 , yearsSchooling_tmp2 := 11]
Data[v0317 ==6 & v0315 == 1 , yearsSchooling_tmp2 := 12]
Data[v0317 ==6 & v0315 == 2 , yearsSchooling_tmp2 := 13]
Data[v0317 ==6 & v0315 == 3 , yearsSchooling_tmp2 := 14]
Data[v0317 ==6 & v0315 == 4 , yearsSchooling_tmp2 := 15]
Data[v0317 ==6 & v0315 == 5 , yearsSchooling_tmp2 := 15]
Data[v0317 ==6 & v0315 == 6 , yearsSchooling_tmp2 := 15]
Data[v0317 ==6 & v0315 == 7 , yearsSchooling_tmp2 := 15]
Data[v0317 ==6 & v0315 == 8 , yearsSchooling_tmp2 := 15]
Data[v0317 ==6 & v0315 == 9 , yearsSchooling_tmp2 := 11]
Data[v0317 ==7 & v0315 == 0 , yearsSchooling_tmp2 := 15]
Data[v0317 ==7 & v0315 == 1 , yearsSchooling_tmp2 := 15]
Data[v0317 ==7 & v0315 == 2 , yearsSchooling_tmp2 := 15]
Data[v0317 ==7 & v0315 == 3 , yearsSchooling_tmp1 := 15]
Data[v0317 ==7 & v0315 == 4 , yearsSchooling_tmp2 := 15]
Data[v0317 ==7 & v0315 == 5 , yearsSchooling_tmp2 := 15]
Data[v0317 ==7 & v0315 == 6 , yearsSchooling_tmp2 := 15]
Data[v0317 ==7 & v0315 == 7 , yearsSchooling_tmp2 := 15]
Data[v0317 ==7 & v0315 == 8 , yearsSchooling_tmp2 := 15]
Data[v0317 ==7 & v0315 == 9 , yearsSchooling_tmp2 := 15]
Data[v0317 ==99 & v0315 == 0 , yearsSchooling_tmp2 := 0]
Data[v0317 ==99 & v0315 == 1 , yearsSchooling_tmp2 := 1]
Data[v0317 ==99 & v0315 == 2 , yearsSchooling_tmp2 := 2]
Data[v0317 ==99 & v0315 == 3 , yearsSchooling_tmp2 := 3]
Data[v0317 ==99 & v0315 == 4 , yearsSchooling_tmp2 := 4]
Data[v0317 ==99 & v0315 == 5 , yearsSchooling_tmp2 := 5]
Data[v0317 ==99 & v0315 == 6 , yearsSchooling_tmp2 := 6]
Data[v0317 ==99 & v0315 == 7 , yearsSchooling_tmp2 := 7]
Data[v0317 ==99 & v0315 == 8 , yearsSchooling_tmp2 := 8]
Data[v0317 ==99 & v0315 == 9 , yearsSchooling_tmp2 := 0]
Data [ , situation1 := yearsSchooling_tmp1 >= Data$yearsSchooling_tmp2]
Data [is.na(situation1), situation1 := FALSE]
Data [ , situation2 := yearsSchooling_tmp1 < Data$yearsSchooling_tmp2]
Data [is.na(situation2), situation2 := FALSE]
Data[situation1 == TRUE, yearsSchooling := yearsSchooling_tmp1]
Data[situation2 == TRUE, yearsSchooling := yearsSchooling_tmp2]
Data[, yearsSchooling_tmp1 := NULL]
Data[, yearsSchooling_tmp2 := NULL]
Data[, situation1 := NULL]
Data[, situation2 := NULL]
gc(); Sys.sleep(.3); gc()
return(Data)
}
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.