2.2 Definiendo algunas funciones.

  • La función NAs_deff(x) cuenta la cantidad de valores NAs en un vector x.

  • La función cont_deff() realiza el conteo del número de elementos en un vector x que son mayores a 1 y devuelve el resultado en la variable deff.

  • La función cont_deff_upm() realiza un conteo similar al de la función cont_deff(), pero solo considera los elementos que también cumplen con la condición de que el número de unidades primarias de muestreo (UPM) es mayor o igual a 2.

  • La función var_conteo() regresa el porcentaje de elementos que son mayores a 1 en un ventor de x

NAs_deff <- function(x){(sum(is.na(x))/length(x))*100}
cont_deff <- function(x){deff = (sum(x>1,na.rm = TRUE)/length(x))*100}

cont_deff_upm <- function(x, nupm) {
  deff = (sum(x > 1 & nupm >= 2, na.rm = TRUE)/length(x))*100
}
var_conteo <- function(x)(sum(x>0)/length(x))*100