ingreso_quintil <- quantile(base$ingreso,probs = c(0.20, 0.40, 0.60, 0.80, 1), na.rm=TRUE)

base$ingreso_quintil <-ifelse(base$ingreso_quintil<4599.590, ifelse(base$ingreso_quintil<= 4599.590 & base$ingreso_quintil< 6705.844, ifelse( base$ingreso_quintil>= 6705.844 & base$ingreso_quintil<9609.704, ifelse( base$ingreso_quintil>=9609.704 & base$ingreso_quintil<14609.581, ifelse( base$ingreso_quintil>=14609.581)))))