3.2 Realizando ajuste sobre el deff estimado.

Este código utiliza la librería dplyr para modificar el objeto indicador_dam y crear una nueva variable id_orden, que indica el número de orden de cada observación dentro del conjunto de datos.

Además, se utiliza la función mutate() para modificar los valores de tres variables específicas (Ocupado_deff, Desocupado_deff e Inactivo_deff) del conjunto de datos indicador_dam. Estas variables el efecto de diseño para cada categoría de ocupación en la encuesta.

La función ifelse() se utiliza para evaluar si los valores de las variables son menores que 1, y en ese caso se les asigna un valor de 1. Esto se hace para asegurarse de que el efecto de diseño no sea menor que 1 y así evitar problemas en el análisis posterior.

indicador_dam1 <- indicador_dam %>%
   mutate(
    id_orden = 1:n(),
    Ocupado_deff = ifelse(Ocupado_deff < 1, 1, Ocupado_deff),
    Desocupado_deff = ifelse(Desocupado_deff < 1, 1, Desocupado_deff),
    Inactivo_deff = ifelse(Inactivo_deff < 1, 1, Inactivo_deff)
  )