Trabajo Final de Teoría y técnicas de Muestreo

Consigna

La Municipalidad de Almirante Brown, de + de 100.000 habitantes, desea realizar en su ámbito, una réplica de la EPH a ese nivel, con la finalidad de tener una estimación de la Tasa de Ocupación de la población. Para ello deben desarrollar el diseño de muestra que piensan puede servir de base para el estudio y extraer la muestra correspondiente. Para el desarrollo del diseño correspondiente, deben analizar en primera instancia qué información tienen disponible, de acuerdo al caso o tema seleccionado. No se puede asumir que se tiene cierta información que no esté realmente disponible. Se les enviará las respuestas de las encuestas para que procesen el resultado final con la finalidad de estimar el parámetro correspondiente y sus errores de muestreo. Se impone como condición, realizar la estimación con un error de muestreo del 5 % y un Nivel de Confianza del 95 %.

Propuesta

Para poder estimar la tasa de ocupación de la población de Almirante Brown se procederá a realizar un muestreo probabilístico bietápico.

1er Etapa MAE: de acuerdo con los datos obtenidos se segmentará la población total en 6 estratos. Los estratos serán construidos a través del porcentaje de hogares con nbi por radio, a partir de identificar la mínima variabilidad posible entre los estratos.

A través del cálculo del tamaño de la muestra se procederá a asignar proporcionalmente la cantidad de radios que deberían componer cada estrato de la muestra.

2da Etapa MS: seleccionados la cantidad de hogares por estratos se procederá a realizar un muestreo sistemático por radio censal. Teniendo como última unidad muestral los hogares de las viviendas seleccionadas.

En relación a este diseño se calcularán las probabilidades final de selección de las distintas unidades muestrales y el factor de expansión para cada radio censal.

A CONTINUACION SE DETALLA EL PROCESAMIENTO Y ASIGNACION DE CASOS A LA MUESTRA

En primer lugar, cargamos las librerias que vamos a necesitar:

library(tidyverse)
library(ggpubr)
library(rstatix)
library(plyr)
library(dplyr)
library(descr)
library(openxlsx)
library(sampling)
library(samplingbook)
library(readxl)
library(stratification)
library(VIM)
library(BAMMtools)
library(kableExtra)
library(knitr)
library(haven)
library(eph)
library(data.table)

DATOS DE LA POBLACIÓN Según censo 2010 Almirante Brown tiene:

Radios censales = 484 Viviendas = 142.614 Hogares = 156.918 Población = 552.902

En el siguiente mapa podemos visualizar los radios censales de Almirante Brown en mapa de color de Hogares con al menos un indicador de Necesidades Basicas Insatisfechas (Censo 2010)

La información la obtuvimos de: Pablo De Grande y Agustín Salvia (2019). Indicadores del Censo Nacional de Población, Hogares y Viviendas, 2010. Recuperado el 8 de diciembre, 2021, de https://mapa.poblaciones.org/map/3701

TAMAÑO DE LA MUESTRA Para calcular el tamaño de la muestra recurrimos a los datos de la eph. Obtenemos la tasa de ocupación para los partidos de Buenos Aires según la eph para el tercer trimestre de 2020 para la población mayor de 14 años

EPH<- get_microdata(year=2021, trimester = 3, type="individual") %>% filter(AGLOMERADO==15 & CH06 > 13) 

EPH
## # A tibble: 1,057 x 178
##    CODUSU    ANO4 TRIMESTRE NRO_HOGAR COMPONENTE   H15 REGION MAS_500 AGLOMERADO
##    <chr>    <int>     <int>     <int>      <int> <int>  <int> <chr>        <int>
##  1 TQRMNOR~  2021         3         1          3     1     41 NO              15
##  2 TQRMNOR~  2021         3         1          5     1     41 NO              15
##  3 TQRMNOQ~  2021         3         1          1     1     41 NO              15
##  4 TQRMNOQ~  2021         3         1          3     1     41 NO              15
##  5 TQRMNOQ~  2021         3         1          4     1     41 NO              15
##  6 TQRMNOQ~  2021         3         1          1     1     41 NO              15
##  7 TQRMNOU~  2021         3         1          1     1     41 NO              15
##  8 TQRMNOU~  2021         3         1          2     1     41 NO              15
##  9 TQRMNOU~  2021         3         1          4     1     41 NO              15
## 10 TQSMNOU~  2021         3         1          1     1     41 NO              15
## # ... with 1,047 more rows, and 169 more variables: PONDERA <int>, CH03 <int>,
## #   CH04 <int>, CH05 <chr>, CH06 <int>, CH07 <int>, CH08 <int>, CH09 <int>,
## #   CH10 <int>, CH11 <int>, CH12 <int>, CH13 <int>, CH14 <chr>, CH15 <int>,
## #   CH15_COD <int>, CH16 <int>, CH16_COD <int>, NIVEL_ED <int>, ESTADO <int>,
## #   CAT_OCUP <int>, CAT_INAC <int>, IMPUTA <int>, PP02C1 <int>, PP02C2 <int>,
## #   PP02C3 <int>, PP02C4 <int>, PP02C5 <int>, PP02C6 <int>, PP02C7 <int>,
## #   PP02C8 <int>, PP02E <int>, PP02H <int>, PP02I <int>, PP03C <int>,
## #   PP03D <int>, PP3E_TOT <int>, PP3F_TOT <int>, PP03G <int>, PP03H <int>,
## #   PP03I <int>, PP03J <int>, INTENSI <int>, PP04A <int>, PP04B_COD <chr>,
## #   PP04B1 <int>, PP04B2 <int>, PP04B3_MES <int>, PP04B3_ANO <int>,
## #   PP04B3_DIA <int>, PP04C <int>, PP04C99 <int>, PP04D_COD <chr>, PP04G <int>,
## #   PP05B2_MES <int>, PP05B2_ANO <int>, PP05B2_DIA <int>, PP05C_1 <int>,
## #   PP05C_2 <int>, PP05C_3 <int>, PP05E <int>, PP05F <int>, PP05H <int>,
## #   PP06A <int>, PP06C <int>, PP06D <int>, PP06E <int>, PP06H <int>,
## #   PP07A <int>, PP07C <int>, PP07D <int>, PP07E <int>, PP07F1 <int>,
## #   PP07F2 <int>, PP07F3 <int>, PP07F4 <int>, PP07F5 <int>, PP07G1 <int>,
## #   PP07G2 <int>, PP07G3 <int>, PP07G4 <int>, PP07G_59 <int>, PP07H <int>,
## #   PP07I <int>, PP07J <int>, PP07K <int>, PP08D1 <int>, PP08D4 <int>,
## #   PP08F1 <int>, PP08F2 <int>, PP08J1 <int>, PP08J2 <int>, PP08J3 <int>,
## #   PP09A <int>, PP09A_ESP <chr>, PP09B <int>, PP09C <int>, PP09C_ESP <chr>,
## #   PP10A <int>, PP10C <int>, PP10D <int>, ...

Con la base filtrada de la EPH, preparamos la variable “Estado” como una variable factor de 3 niveles. Calculamos la frecuencia para cada uno de los estados en situación ocupacional.

EPH$ESTADO<- factor(EPH$ESTADO, levels = c(1:3), labels = c("OCUPADO","DESOCUPADO","INACTIVO"))

ResumenEStado<- count(EPH$ESTADO)

ResumenEStado
##            x freq
## 1    OCUPADO  443
## 2 DESOCUPADO   23
## 3   INACTIVO  587
## 4       <NA>    4

Con estos datos podemos calcular la tasa de ocupación de la provincia de buenos aires para el tercer trimestre del 2020.

TasaOcupacion<- ResumenEStado[1,2]/(ResumenEStado[1,2]+ResumenEStado[2,2]+ResumenEStado[3,2])

TasaOcupacion
## [1] 0.4207028

Obtenemos la proporción de personas ocupadas o desocupadas, dato que usaremos para fijar la proporción de la población total y calcular el tamaño de la muestra. Para ello, vamos a importar los datos de la base total de la población de Almirante Brown:

muestrahogares<-read_xlsx("Indicadores Almirante Brown.xlsx")
## New names:
## * `Total de hogares` -> `Total de hogares...2`
## * `Total de hogares` -> `Total de hogares...35`

Dejamos solo las variables con las que vamos a trabajar

muestrahogares<- muestrahogares[, c(1:3)]

#Renombramos las variables 

colnames(muestrahogares)[1] <- c("codigoradio")
colnames(muestrahogares)[3] <- c("CANTIDAD_NBI_HOGARES")
colnames(muestrahogares)[2] <- c("TOTAL_HOGARES_RADIO")

muestrahogares
## # A tibble: 484 x 3
##    codigoradio TOTAL_HOGARES_RADIO CANTIDAD_NBI_HOGARES
##    <chr>                     <dbl>                <dbl>
##  1 060280615                  1032                  218
##  2 060280604                  1165                  166
##  3 060280305                   406                  164
##  4 060280610                  1001                  163
##  5 060280303                   496                  137
##  6 060280307                   346                  137
##  7 060280614                   762                  131
##  8 060280701                   608                  131
##  9 060280409                   445                  103
## 10 060280702                   546                  103
## # ... with 474 more rows

Calculamos el porcentaje de hogares con al menos una NBI por radio. Este porcentaje por radio de hogares con nbi, nos permitirá posteriormente crear los estratos por radio.

muestrahogares<- muestrahogares%>% mutate(PORC_HOG_X_NBI_RADIO = round((CANTIDAD_NBI_HOGARES/ TOTAL_HOGARES_RADIO)*100),2)

muestrahogares
## # A tibble: 484 x 4
##    codigoradio TOTAL_HOGARES_RADIO CANTIDAD_NBI_HOGARES PORC_HOG_X_NBI_RADIO
##    <chr>                     <dbl>                <dbl>                <dbl>
##  1 060280615                  1032                  218                   21
##  2 060280604                  1165                  166                   14
##  3 060280305                   406                  164                   40
##  4 060280610                  1001                  163                   16
##  5 060280303                   496                  137                   28
##  6 060280307                   346                  137                   40
##  7 060280614                   762                  131                   17
##  8 060280701                   608                  131                   22
##  9 060280409                   445                  103                   23
## 10 060280702                   546                  103                   19
## # ... with 474 more rows
#Eliminamos casos atípicos tomamos un hogar por radio como referencia

muestrahogares<- filter(muestrahogares, TOTAL_HOGARES_RADIO >= 1 )
muestrahogares
## # A tibble: 484 x 4
##    codigoradio TOTAL_HOGARES_RADIO CANTIDAD_NBI_HOGARES PORC_HOG_X_NBI_RADIO
##    <chr>                     <dbl>                <dbl>                <dbl>
##  1 060280615                  1032                  218                   21
##  2 060280604                  1165                  166                   14
##  3 060280305                   406                  164                   40
##  4 060280610                  1001                  163                   16
##  5 060280303                   496                  137                   28
##  6 060280307                   346                  137                   40
##  7 060280614                   762                  131                   17
##  8 060280701                   608                  131                   22
##  9 060280409                   445                  103                   23
## 10 060280702                   546                  103                   19
## # ... with 474 more rows

Obtenemos la cantidad de hogares totales para el partido de Almirante Brown

hogarestotales<- muestrahogares %>% summarise(Total_hogares =sum(TOTAL_HOGARES_RADIO))

ht<- as.vector(hogarestotales)
ht
##   Total_hogares
## 1        156918

Ahora tomando el dato de tasa de ocupación del tercer trimestre del 2021 para la prov. de Buenos Aires, calcumos el tamaño de la muestra de Almirante Brown

#A través de la fórmula:
#n0=(k2*p*q)/(d2+((k2*p*q)/N))

n0 <- ((1.96^2)*0.42*0.58)/(((0.05*0.42)^2)+(((1.96^2)*0.42*0.58)/hogarestotales))

n0  
##   Total_hogares
## 1      2093.713

Primera Etapa MAE

Observamos la distribución de la variable NBI de porcentaje de hogares con nbi por radio creada anteriormente

hist(x = muestrahogares$PORC_HOG_X_NBI_RADIO, main = "Histograma de Hogares con NBI por radio", 
     xlab = "Estrato", ylab = "Frecuencia",
     col = "purple",
     breaks = 100)

Calculamos los estratos a partir del método de Daleniu Hodges, fijando 6 estratos para controlar la variabilidad de la variable que estratifica la población en la muestra que seleccionaremos posteriormente

set.seed(300)
strata.cumrootf(muestrahogares$PORC_HOG_X_NBI_RADIO, CV= 0.05, Ls=6)
## Warning: 'nclass' value has been chosen arbitrarily
## Given arguments:
## x = muestrahogares$PORC_HOG_X_NBI_RADIO
## nclass = 40, CV = 0.05, Ls = 6
## allocation: q1 = 0.5, q2 = 0, q3 = 0.5
## model = none
## 
## Strata information:
##           |      type rh |    bh  E(Y) Var(Y)  Nh nh   fh
## stratum 1 | take-some  1 |   2.5  0.99   0.56 106  2 0.02
## stratum 2 | take-some  1 |   7.5  4.83   2.07 103  3 0.03
## stratum 3 | take-some  1 |  12.5 10.11   1.89 125  3 0.02
## stratum 4 | take-some  1 |  17.5 14.76   1.73  80  2 0.03
## stratum 5 | take-some  1 |  27.5 21.36   5.75  50  2 0.04
## stratum 6 | take-some  1 | 101.0 42.85 409.43  20  6 0.30
## Total                                         484 18 0.04
## 
## Total sample size: 18 
## Anticipated population mean: 10.27273 
## Anticipated CV: 0.04550332

Asignamos a cada radio censal un estrato en función de los resultados de corte del cálculo anterior de la siguiente manera:

muestrahogares<- muestrahogares %>%  mutate(ESTRATOS_NBI = case_when( PORC_HOG_X_NBI_RADIO  < 3  ~ 'ESTRATO 1' , PORC_HOG_X_NBI_RADIO < 8 ~ 'ESTRATO 2', PORC_HOG_X_NBI_RADIO < 13 ~ 'ESTRATO 3', PORC_HOG_X_NBI_RADIO < 18 ~ 'ESTRATO 4', PORC_HOG_X_NBI_RADIO < 28 ~ 'ESTRATO 5', PORC_HOG_X_NBI_RADIO < 101 ~ 'ESTRATO 6') )

muestrahogares
## # A tibble: 484 x 5
##    codigoradio TOTAL_HOGARES_RA~ CANTIDAD_NBI_HOG~ PORC_HOG_X_NBI_~ ESTRATOS_NBI
##    <chr>                   <dbl>             <dbl>            <dbl> <chr>       
##  1 060280615                1032               218               21 ESTRATO 5   
##  2 060280604                1165               166               14 ESTRATO 4   
##  3 060280305                 406               164               40 ESTRATO 6   
##  4 060280610                1001               163               16 ESTRATO 4   
##  5 060280303                 496               137               28 ESTRATO 6   
##  6 060280307                 346               137               40 ESTRATO 6   
##  7 060280614                 762               131               17 ESTRATO 4   
##  8 060280701                 608               131               22 ESTRATO 5   
##  9 060280409                 445               103               23 ESTRATO 5   
## 10 060280702                 546               103               19 ESTRATO 5   
## # ... with 474 more rows

Observamos cantidad de radios, desvios de porcentaje de hogares por nbi, variancia de porcentaje de hogares por nbi y totales de hogares para los estratos creados.

resumen_NBI <- muestrahogares %>%  group_by(ESTRATOS_NBI) %>% dplyr::summarise(cantidad = n(), desvio= sd(PORC_HOG_X_NBI_RADIO), variancia= (desvio^2), total_nbi_hogares = sum(CANTIDAD_NBI_HOGARES),total_hogares =sum(TOTAL_HOGARES_RADIO), media_hogaresconnbi = ((total_nbi_hogares/total_hogares)*100)  )

resumen_NBI
## # A tibble: 6 x 7
##   ESTRATOS_NBI cantidad desvio variancia total_nbi_hogares total_hogares
##   <chr>           <int>  <dbl>     <dbl>             <dbl>         <dbl>
## 1 ESTRATO 1         106  0.750     0.562               326         30965
## 2 ESTRATO 2         103  1.44      2.09               1611         33409
## 3 ESTRATO 3         125  1.38      1.91               4132         40680
## 4 ESTRATO 4          80  1.32      1.75               4236         28535
## 5 ESTRATO 5          50  2.42      5.87               3663         17104
## 6 ESTRATO 6          20 20.8     431.                 2455          6225
## # ... with 1 more variable: media_hogaresconnbi <dbl>

Observamos que el último estrato tiene una variancia muy elevada y un número pequeño de radios censales en los que se ubica.

Importamos la base con la cantidad de viviendas totales por radio.

Viviendas_por_radio <- read_excel("Viviendas por radio.xlsx")

Viviendas_por_radio
## # A tibble: 484 x 5
##    codigoradio basico insuficiente satisfactoria total
##    <chr>        <dbl>        <dbl>         <dbl> <dbl>
##  1 060280101       97           80           129   306
##  2 060280102       67           97            76   240
##  3 060280103      114           71           127   312
##  4 060280104       84           23           186   293
##  5 060280105       24            2           170   196
##  6 060280106       57           28           156   241
##  7 060280107      115           64           127   306
##  8 060280108      144           77           133   354
##  9 060280109      126           51           269   446
## 10 060280110       59           20           139   218
## # ... with 474 more rows

Obtenemos el total de hogares

hogarestotales<- muestrahogares %>% summarise(Total_hogares =sum(TOTAL_HOGARES_RADIO))

hogarestotales
##   Total_hogares
## 1        156918

Obtenemos el total de viviendas de la base de viviendas por radio

ViviendaTotal<- sum(Viviendas_por_radio$total)

ViviendaTotal
## [1] 142614

Calculamos el promedio de hogares por vivienda

hogXviv<- hogarestotales/ViviendaTotal

hogXviv
##   Total_hogares
## 1      1.100299

Calculamos la cantidad de viviendas que van a componer la muestra

SegSamplUn<- round((n0/hogXviv), 0)

colnames(SegSamplUn) <- "SSU"

SegSamplUn
##    SSU
## 1 1903

Calculamos ahora la cantidad de radios a relevar con un salto sistmético de cada 25 viviendas

El tamaño de las fracciones y los radios en áreas urbanas se determina según la cantidad de viviendas.

La fracción tiene un promedio de 5000 viviendas mientras que el radio un promedio de 300.

Para bordes de localidades el radio urbano puede bajar a 200 viviendas, aproximadamente, y en localidades aisladas a 100 viviendas.

Para Almirante Brown el promedio de viviendas por radio es de 294

Para radios de 294 viviendas y un salto sistemático de 25 viviendas, nos dan (11,76) 11 viviendas a encuestar por radio. Con este dato calculamos los radios a cubrir

RadiosRelevar<- SegSamplUn/11

RadiosRelevar
##   SSU
## 1 173

Consideramos los 173 radios que van a componer la muestra para calcular el tamaño de cada uno de los estratos para que la proporción de los estratos de la muestra sean iguales a las proporciones de los estratos de la población total.

stratasamp(n=173, Nh=c(106,103,125,80,50,20))
##                         
## Stratum  1  2  3  4  5 6
## Size    38 37 45 29 18 7

Entonces asignamos la muestra de manera proporcional a lo obtenido en el punto visto arriba

strata1v1<- filter(muestrahogares, ESTRATOS_NBI== "ESTRATO 1") %>% sample_n( size = 38)
                                     
strata2v1<- filter(muestrahogares, ESTRATOS_NBI== "ESTRATO 2") %>% sample_n( size = 37)

strata3v1<- filter(muestrahogares, ESTRATOS_NBI== "ESTRATO 3")  %>% sample_n( size = 45)

strata4v1<- filter(muestrahogares, ESTRATOS_NBI== "ESTRATO 4") %>% sample_n( size = 29)

strata5v1<- filter(muestrahogares, ESTRATOS_NBI== "ESTRATO 5") %>% sample_n( size = 18)

strata6v1<- filter(muestrahogares, ESTRATOS_NBI== "ESTRATO 6") %>% sample_n( size = 7)

Nos quedamos con la muestra final de la cual extraeremos los radios censales para el recorrido de campo

muestrafinal<- bind_rows(strata1v1,strata2v1,strata3v1, strata4v1, strata5v1, strata6v1,)
muestrafinal
## # A tibble: 174 x 5
##    codigoradio TOTAL_HOGARES_RA~ CANTIDAD_NBI_HOG~ PORC_HOG_X_NBI_~ ESTRATOS_NBI
##    <chr>                   <dbl>             <dbl>            <dbl> <chr>       
##  1 060282704                 316                 5                2 ESTRATO 1   
##  2 060282510                 376                 6                2 ESTRATO 1   
##  3 060283106                 407                 4                1 ESTRATO 1   
##  4 060281704                 246                 5                2 ESTRATO 1   
##  5 060281211                 372                 0                0 ESTRATO 1   
##  6 060282305                 241                 2                1 ESTRATO 1   
##  7 060282504                 183                 1                1 ESTRATO 1   
##  8 060282713                 344                 3                1 ESTRATO 1   
##  9 060283408                 335                 2                1 ESTRATO 1   
## 10 060280503                  11                 0                0 ESTRATO 1   
## # ... with 164 more rows

Observamos la cantidad y desvios obtenidos en la muestra por cada estrato:

resumen_final <- muestrafinal %>%  group_by(ESTRATOS_NBI) %>% dplyr::summarise(cantidad = n(), desvio= sd(PORC_HOG_X_NBI_RADIO), variancia= (desvio^2), total_nbi_hogares = sum(CANTIDAD_NBI_HOGARES),total_hogares =sum(TOTAL_HOGARES_RADIO), media_hogaresconnbi = ((total_nbi_hogares/total_hogares)*100)  )

resumen_final
## # A tibble: 6 x 7
##   ESTRATOS_NBI cantidad desvio variancia total_nbi_hogares total_hogares
##   <chr>           <int>  <dbl>     <dbl>             <dbl>         <dbl>
## 1 ESTRATO 1          38  0.788     0.621               112         10606
## 2 ESTRATO 2          37  1.46      2.13                589         12052
## 3 ESTRATO 3          45  1.49      2.23               1427         14207
## 4 ESTRATO 4          29  1.48      2.18               1693         11242
## 5 ESTRATO 5          18  2.27      5.15               1347          6533
## 6 ESTRATO 6           7 19.2     369.                 1172          2649
## # ... with 1 more variable: media_hogaresconnbi <dbl>

Calculamos las probabilidades para etapa de estatificación

Prob2<- muestrafinal %>% dplyr::group_by(ESTRATOS_NBI) %>% dplyr::summarise(casos=n())

Prob2 <- join(Prob2,resumen_NBI) 
## Joining by: ESTRATOS_NBI
Prob2 <- Prob2[,c(1:3)] 

#Calculamos la probabilidad de selección W(N/n) y el factor de expansión 1/w

Prob2<- Prob2 %>% mutate("W(N/n)" = Prob2[,3]/Prob2[,2])

Prob2<- Prob2 %>% mutate("1/w"= 1/Prob2[,4])

#Asignamos las probabilidades a la muestra final

muestrafinal<- join(Prob2,muestrafinal) %>%  select(codigoradio,  TOTAL_HOGARES_RADIO,PORC_HOG_X_NBI_RADIO,ESTRATOS_NBI,"W(N/n)"
,"1/w")
## Joining by: ESTRATOS_NBI
muestrafinal
##     codigoradio TOTAL_HOGARES_RADIO PORC_HOG_X_NBI_RADIO ESTRATOS_NBI   W(N/n)
## 1     060282704                 316                    2    ESTRATO 1 2.789474
## 2     060282510                 376                    2    ESTRATO 1 2.789474
## 3     060283106                 407                    1    ESTRATO 1 2.789474
## 4     060281704                 246                    2    ESTRATO 1 2.789474
## 5     060281211                 372                    0    ESTRATO 1 2.789474
## 6     060282305                 241                    1    ESTRATO 1 2.789474
## 7     060282504                 183                    1    ESTRATO 1 2.789474
## 8     060282713                 344                    1    ESTRATO 1 2.789474
## 9     060283408                 335                    1    ESTRATO 1 2.789474
## 10    060280503                  11                    0    ESTRATO 1 2.789474
## 11    060282701                 210                    0    ESTRATO 1 2.789474
## 12    060281106                 215                    0    ESTRATO 1 2.789474
## 13    060282609                 280                    0    ESTRATO 1 2.789474
## 14    060283311                 354                    2    ESTRATO 1 2.789474
## 15    060282308                 213                    1    ESTRATO 1 2.789474
## 16    060283205                 225                    2    ESTRATO 1 2.789474
## 17    060281109                 472                    1    ESTRATO 1 2.789474
## 18    060281210                 429                    2    ESTRATO 1 2.789474
## 19    060281602                 362                    1    ESTRATO 1 2.789474
## 20    060282513                 307                    0    ESTRATO 1 2.789474
## 21    060282106                 212                    0    ESTRATO 1 2.789474
## 22    060281107                 208                    0    ESTRATO 1 2.789474
## 23    060281801                 424                    2    ESTRATO 1 2.789474
## 24    060282608                 171                    1    ESTRATO 1 2.789474
## 25    060282304                 379                    2    ESTRATO 1 2.789474
## 26    060283410                 355                    2    ESTRATO 1 2.789474
## 27    060282602                 126                    0    ESTRATO 1 2.789474
## 28    060282711                 238                    1    ESTRATO 1 2.789474
## 29    060283310                 297                    1    ESTRATO 1 2.789474
## 30    060283204                 296                    1    ESTRATO 1 2.789474
## 31    060282705                 248                    2    ESTRATO 1 2.789474
## 32    060282507                 218                    0    ESTRATO 1 2.789474
## 33    060281703                 186                    0    ESTRATO 1 2.789474
## 34    060281312                 290                    2    ESTRATO 1 2.789474
## 35    060282312                 213                    1    ESTRATO 1 2.789474
## 36    060282511                 399                    0    ESTRATO 1 2.789474
## 37    060281701                 247                    1    ESTRATO 1 2.789474
## 38    060280105                 201                    1    ESTRATO 1 2.789474
## 39    060280111                 395                    6    ESTRATO 2 2.783784
## 40    060281113                 227                    4    ESTRATO 2 2.783784
## 41    060282303                 265                    3    ESTRATO 2 2.783784
## 42    060283110                 420                    5    ESTRATO 2 2.783784
## 43    060283412                 368                    3    ESTRATO 2 2.783784
## 44    060282211                 286                    7    ESTRATO 2 2.783784
## 45    060280810                 490                    6    ESTRATO 2 2.783784
## 46    060282902                 229                    4    ESTRATO 2 2.783784
## 47    060283701                 352                    4    ESTRATO 2 2.783784
## 48    060281302                 235                    4    ESTRATO 2 2.783784
## 49    060283302                 428                    3    ESTRATO 2 2.783784
## 50    060283807                 229                    7    ESTRATO 2 2.783784
## 51    060282802                 266                    6    ESTRATO 2 2.783784
## 52    060282218                 237                    7    ESTRATO 2 2.783784
## 53    060283402                 389                    5    ESTRATO 2 2.783784
## 54    060283005                 284                    7    ESTRATO 2 2.783784
## 55    060281112                 254                    4    ESTRATO 2 2.783784
## 56    060283508                 309                    5    ESTRATO 2 2.783784
## 57    060282107                 307                    4    ESTRATO 2 2.783784
## 58    060281507                 445                    5    ESTRATO 2 2.783784
## 59    060282710                 158                    5    ESTRATO 2 2.783784
## 60    060280710                 342                    5    ESTRATO 2 2.783784
## 61    060283607                 438                    3    ESTRATO 2 2.783784
## 62    060281708                 397                    4    ESTRATO 2 2.783784
## 63    060282214                 246                    7    ESTRATO 2 2.783784
## 64    060283805                 392                    3    ESTRATO 2 2.783784
## 65    060281111                 526                    7    ESTRATO 2 2.783784
## 66    060281910                 255                    4    ESTRATO 2 2.783784
## 67    060281103                 276                    7    ESTRATO 2 2.783784
## 68    060283806                 272                    3    ESTRATO 2 2.783784
## 69    060280115                 426                    5    ESTRATO 2 2.783784
## 70    060280601                 389                    7    ESTRATO 2 2.783784
## 71    060281902                 334                    4    ESTRATO 2 2.783784
## 72    060282913                 274                    7    ESTRATO 2 2.783784
## 73    060281105                 238                    5    ESTRATO 2 2.783784
## 74    060280905                 300                    3    ESTRATO 2 2.783784
## 75    060282807                 374                    4    ESTRATO 2 2.783784
## 76    060282210                 495                    8    ESTRATO 3 2.777778
## 77    060282209                 385                   10    ESTRATO 3 2.777778
## 78    060282108                 306                   10    ESTRATO 3 2.777778
## 79    060283605                 420                   10    ESTRATO 3 2.777778
## 80    060281004                 249                    8    ESTRATO 3 2.777778
## 81    060280808                 337                   11    ESTRATO 3 2.777778
## 82    060282113                 254                    8    ESTRATO 3 2.777778
## 83    060283108                 215                   12    ESTRATO 3 2.777778
## 84    060281502                 256                    8    ESTRATO 3 2.777778
## 85    060283506                 373                   12    ESTRATO 3 2.777778
## 86    060281805                 240                    8    ESTRATO 3 2.777778
## 87    060283712                 394                   11    ESTRATO 3 2.777778
## 88    060282906                 222                   12    ESTRATO 3 2.777778
## 89    060280907                 316                   11    ESTRATO 3 2.777778
## 90    060281408                 306                    8    ESTRATO 3 2.777778
## 91    060283109                 279                   12    ESTRATO 3 2.777778
## 92    060282008                 312                   12    ESTRATO 3 2.777778
## 93    060281011                 302                    8    ESTRATO 3 2.777778
## 94    060283404                 367                   10    ESTRATO 3 2.777778
## 95    060280512                  36                    8    ESTRATO 3 2.777778
## 96    060280301                 473                   11    ESTRATO 3 2.777778
## 97    060283015                 295                   10    ESTRATO 3 2.777778
## 98    060283610                 316                   12    ESTRATO 3 2.777778
## 99    060280412                 474                    9    ESTRATO 3 2.777778
## 100   060283001                 263                   10    ESTRATO 3 2.777778
## 101   060281511                 220                   11    ESTRATO 3 2.777778
## 102   060282805                 441                   12    ESTRATO 3 2.777778
## 103   060282206                 406                   12    ESTRATO 3 2.777778
## 104   060280704                 417                    9    ESTRATO 3 2.777778
## 105   060280106                 266                    8    ESTRATO 3 2.777778
## 106   060282901                 332                   11    ESTRATO 3 2.777778
## 107   060283303                 250                   12    ESTRATO 3 2.777778
## 108   060282203                 345                    9    ESTRATO 3 2.777778
## 109   060282216                 544                    9    ESTRATO 3 2.777778
## 110   060280501                  21                   10    ESTRATO 3 2.777778
## 111   060280805                 324                   11    ESTRATO 3 2.777778
## 112   060283012                 244                    8    ESTRATO 3 2.777778
## 113   060281702                 341                    9    ESTRATO 3 2.777778
## 114   060282806                 523                    9    ESTRATO 3 2.777778
## 115   060282112                 292                   10    ESTRATO 3 2.777778
## 116   060280803                  20                   10    ESTRATO 3 2.777778
## 117   060282111                 330                    8    ESTRATO 3 2.777778
## 118   060283016                 284                   11    ESTRATO 3 2.777778
## 119   060282006                 382                   10    ESTRATO 3 2.777778
## 120   060281309                 340                   12    ESTRATO 3 2.777778
## 121   060280705                 411                   14    ESTRATO 4 2.758621
## 122   060282207                 185                   16    ESTRATO 4 2.758621
## 123   060283606                 404                   15    ESTRATO 4 2.758621
## 124   060280310                 318                   13    ESTRATO 4 2.758621
## 125   060280610                1001                   16    ESTRATO 4 2.758621
## 126   060280707                 666                   14    ESTRATO 4 2.758621
## 127   060280202                 369                   17    ESTRATO 4 2.758621
## 128   060283502                 351                   17    ESTRATO 4 2.758621
## 129   060283711                 380                   13    ESTRATO 4 2.758621
## 130   060281808                 438                   13    ESTRATO 4 2.758621
## 131   060281504                 269                   13    ESTRATO 4 2.758621
## 132   060283902                 380                   13    ESTRATO 4 2.758621
## 133   060280607                 400                   14    ESTRATO 4 2.758621
## 134   060282109                 327                   17    ESTRATO 4 2.758621
## 135   060283611                 304                   16    ESTRATO 4 2.758621
## 136   060281912                 298                   15    ESTRATO 4 2.758621
## 137   060281809                 295                   14    ESTRATO 4 2.758621
## 138   060282910                 246                   15    ESTRATO 4 2.758621
## 139   060280309                 277                   13    ESTRATO 4 2.758621
## 140   060280308                 525                   16    ESTRATO 4 2.758621
## 141   060280101                 360                   17    ESTRATO 4 2.758621
## 142   060280411                 380                   16    ESTRATO 4 2.758621
## 143   060280603                 443                   14    ESTRATO 4 2.758621
## 144   060280312                 266                   16    ESTRATO 4 2.758621
## 145   060280108                 428                   14    ESTRATO 4 2.758621
## 146   060283713                 275                   17    ESTRATO 4 2.758621
## 147   060280302                 430                   17    ESTRATO 4 2.758621
## 148   060282009                 283                   16    ESTRATO 4 2.758621
## 149   060280904                 533                   15    ESTRATO 4 2.758621
## 150   060282013                 406                   20    ESTRATO 5 2.777778
## 151   060283010                 385                   22    ESTRATO 5 2.777778
## 152   060280404                 331                   21    ESTRATO 5 2.777778
## 153   060280408                 401                   20    ESTRATO 5 2.777778
## 154   060282707                 152                   21    ESTRATO 5 2.777778
## 155   060283904                 360                   18    ESTRATO 5 2.777778
## 156   060282703                 373                   25    ESTRATO 5 2.777778
## 157   060283614                 422                   24    ESTRATO 5 2.777778
## 158   060281402                 307                   20    ESTRATO 5 2.777778
## 159   060283009                 325                   20    ESTRATO 5 2.777778
## 160   060283903                 299                   19    ESTRATO 5 2.777778
## 161   060283912                 422                   19    ESTRATO 5 2.777778
## 162   060280605                 536                   18    ESTRATO 5 2.777778
## 163   060283008                 490                   21    ESTRATO 5 2.777778
## 164   060280612                 256                   18    ESTRATO 5 2.777778
## 165   060281807                 302                   25    ESTRATO 5 2.777778
## 166   060282804                 307                   23    ESTRATO 5 2.777778
## 167   060280401                 459                   19    ESTRATO 5 2.777778
## 168   060283911                 408                   33    ESTRATO 6 2.857143
## 169   060283613                 364                   87    ESTRATO 6 2.857143
## 170   060283301                 627                   41    ESTRATO 6 2.857143
## 171   060281905                 170                   42    ESTRATO 6 2.857143
## 172   060280305                 406                   40    ESTRATO 6 2.857143
## 173   060281913                 192                   46    ESTRATO 6 2.857143
## 174   060283314                 482                   29    ESTRATO 6 2.857143
##           1/w
## 1   0.3584906
## 2   0.3584906
## 3   0.3584906
## 4   0.3584906
## 5   0.3584906
## 6   0.3584906
## 7   0.3584906
## 8   0.3584906
## 9   0.3584906
## 10  0.3584906
## 11  0.3584906
## 12  0.3584906
## 13  0.3584906
## 14  0.3584906
## 15  0.3584906
## 16  0.3584906
## 17  0.3584906
## 18  0.3584906
## 19  0.3584906
## 20  0.3584906
## 21  0.3584906
## 22  0.3584906
## 23  0.3584906
## 24  0.3584906
## 25  0.3584906
## 26  0.3584906
## 27  0.3584906
## 28  0.3584906
## 29  0.3584906
## 30  0.3584906
## 31  0.3584906
## 32  0.3584906
## 33  0.3584906
## 34  0.3584906
## 35  0.3584906
## 36  0.3584906
## 37  0.3584906
## 38  0.3584906
## 39  0.3592233
## 40  0.3592233
## 41  0.3592233
## 42  0.3592233
## 43  0.3592233
## 44  0.3592233
## 45  0.3592233
## 46  0.3592233
## 47  0.3592233
## 48  0.3592233
## 49  0.3592233
## 50  0.3592233
## 51  0.3592233
## 52  0.3592233
## 53  0.3592233
## 54  0.3592233
## 55  0.3592233
## 56  0.3592233
## 57  0.3592233
## 58  0.3592233
## 59  0.3592233
## 60  0.3592233
## 61  0.3592233
## 62  0.3592233
## 63  0.3592233
## 64  0.3592233
## 65  0.3592233
## 66  0.3592233
## 67  0.3592233
## 68  0.3592233
## 69  0.3592233
## 70  0.3592233
## 71  0.3592233
## 72  0.3592233
## 73  0.3592233
## 74  0.3592233
## 75  0.3592233
## 76  0.3600000
## 77  0.3600000
## 78  0.3600000
## 79  0.3600000
## 80  0.3600000
## 81  0.3600000
## 82  0.3600000
## 83  0.3600000
## 84  0.3600000
## 85  0.3600000
## 86  0.3600000
## 87  0.3600000
## 88  0.3600000
## 89  0.3600000
## 90  0.3600000
## 91  0.3600000
## 92  0.3600000
## 93  0.3600000
## 94  0.3600000
## 95  0.3600000
## 96  0.3600000
## 97  0.3600000
## 98  0.3600000
## 99  0.3600000
## 100 0.3600000
## 101 0.3600000
## 102 0.3600000
## 103 0.3600000
## 104 0.3600000
## 105 0.3600000
## 106 0.3600000
## 107 0.3600000
## 108 0.3600000
## 109 0.3600000
## 110 0.3600000
## 111 0.3600000
## 112 0.3600000
## 113 0.3600000
## 114 0.3600000
## 115 0.3600000
## 116 0.3600000
## 117 0.3600000
## 118 0.3600000
## 119 0.3600000
## 120 0.3600000
## 121 0.3625000
## 122 0.3625000
## 123 0.3625000
## 124 0.3625000
## 125 0.3625000
## 126 0.3625000
## 127 0.3625000
## 128 0.3625000
## 129 0.3625000
## 130 0.3625000
## 131 0.3625000
## 132 0.3625000
## 133 0.3625000
## 134 0.3625000
## 135 0.3625000
## 136 0.3625000
## 137 0.3625000
## 138 0.3625000
## 139 0.3625000
## 140 0.3625000
## 141 0.3625000
## 142 0.3625000
## 143 0.3625000
## 144 0.3625000
## 145 0.3625000
## 146 0.3625000
## 147 0.3625000
## 148 0.3625000
## 149 0.3625000
## 150 0.3600000
## 151 0.3600000
## 152 0.3600000
## 153 0.3600000
## 154 0.3600000
## 155 0.3600000
## 156 0.3600000
## 157 0.3600000
## 158 0.3600000
## 159 0.3600000
## 160 0.3600000
## 161 0.3600000
## 162 0.3600000
## 163 0.3600000
## 164 0.3600000
## 165 0.3600000
## 166 0.3600000
## 167 0.3600000
## 168 0.3500000
## 169 0.3500000
## 170 0.3500000
## 171 0.3500000
## 172 0.3500000
## 173 0.3500000
## 174 0.3500000

Asignamos la probabilidad de selección de la vivienda como última etapa a través de la técnica de selección sistemática.

Agregamos a la base final la cantidad de viviendas por radio censal desde la tabla vivienda

muestrafinal2<- join(muestrafinal,Viviendas_por_radio) 
## Joining by: codigoradio
muestrafinal2
##     codigoradio TOTAL_HOGARES_RADIO PORC_HOG_X_NBI_RADIO ESTRATOS_NBI   W(N/n)
## 1     060282704                 316                    2    ESTRATO 1 2.789474
## 2     060282510                 376                    2    ESTRATO 1 2.789474
## 3     060283106                 407                    1    ESTRATO 1 2.789474
## 4     060281704                 246                    2    ESTRATO 1 2.789474
## 5     060281211                 372                    0    ESTRATO 1 2.789474
## 6     060282305                 241                    1    ESTRATO 1 2.789474
## 7     060282504                 183                    1    ESTRATO 1 2.789474
## 8     060282713                 344                    1    ESTRATO 1 2.789474
## 9     060283408                 335                    1    ESTRATO 1 2.789474
## 10    060280503                  11                    0    ESTRATO 1 2.789474
## 11    060282701                 210                    0    ESTRATO 1 2.789474
## 12    060281106                 215                    0    ESTRATO 1 2.789474
## 13    060282609                 280                    0    ESTRATO 1 2.789474
## 14    060283311                 354                    2    ESTRATO 1 2.789474
## 15    060282308                 213                    1    ESTRATO 1 2.789474
## 16    060283205                 225                    2    ESTRATO 1 2.789474
## 17    060281109                 472                    1    ESTRATO 1 2.789474
## 18    060281210                 429                    2    ESTRATO 1 2.789474
## 19    060281602                 362                    1    ESTRATO 1 2.789474
## 20    060282513                 307                    0    ESTRATO 1 2.789474
## 21    060282106                 212                    0    ESTRATO 1 2.789474
## 22    060281107                 208                    0    ESTRATO 1 2.789474
## 23    060281801                 424                    2    ESTRATO 1 2.789474
## 24    060282608                 171                    1    ESTRATO 1 2.789474
## 25    060282304                 379                    2    ESTRATO 1 2.789474
## 26    060283410                 355                    2    ESTRATO 1 2.789474
## 27    060282602                 126                    0    ESTRATO 1 2.789474
## 28    060282711                 238                    1    ESTRATO 1 2.789474
## 29    060283310                 297                    1    ESTRATO 1 2.789474
## 30    060283204                 296                    1    ESTRATO 1 2.789474
## 31    060282705                 248                    2    ESTRATO 1 2.789474
## 32    060282507                 218                    0    ESTRATO 1 2.789474
## 33    060281703                 186                    0    ESTRATO 1 2.789474
## 34    060281312                 290                    2    ESTRATO 1 2.789474
## 35    060282312                 213                    1    ESTRATO 1 2.789474
## 36    060282511                 399                    0    ESTRATO 1 2.789474
## 37    060281701                 247                    1    ESTRATO 1 2.789474
## 38    060280105                 201                    1    ESTRATO 1 2.789474
## 39    060280111                 395                    6    ESTRATO 2 2.783784
## 40    060281113                 227                    4    ESTRATO 2 2.783784
## 41    060282303                 265                    3    ESTRATO 2 2.783784
## 42    060283110                 420                    5    ESTRATO 2 2.783784
## 43    060283412                 368                    3    ESTRATO 2 2.783784
## 44    060282211                 286                    7    ESTRATO 2 2.783784
## 45    060280810                 490                    6    ESTRATO 2 2.783784
## 46    060282902                 229                    4    ESTRATO 2 2.783784
## 47    060283701                 352                    4    ESTRATO 2 2.783784
## 48    060281302                 235                    4    ESTRATO 2 2.783784
## 49    060283302                 428                    3    ESTRATO 2 2.783784
## 50    060283807                 229                    7    ESTRATO 2 2.783784
## 51    060282802                 266                    6    ESTRATO 2 2.783784
## 52    060282218                 237                    7    ESTRATO 2 2.783784
## 53    060283402                 389                    5    ESTRATO 2 2.783784
## 54    060283005                 284                    7    ESTRATO 2 2.783784
## 55    060281112                 254                    4    ESTRATO 2 2.783784
## 56    060283508                 309                    5    ESTRATO 2 2.783784
## 57    060282107                 307                    4    ESTRATO 2 2.783784
## 58    060281507                 445                    5    ESTRATO 2 2.783784
## 59    060282710                 158                    5    ESTRATO 2 2.783784
## 60    060280710                 342                    5    ESTRATO 2 2.783784
## 61    060283607                 438                    3    ESTRATO 2 2.783784
## 62    060281708                 397                    4    ESTRATO 2 2.783784
## 63    060282214                 246                    7    ESTRATO 2 2.783784
## 64    060283805                 392                    3    ESTRATO 2 2.783784
## 65    060281111                 526                    7    ESTRATO 2 2.783784
## 66    060281910                 255                    4    ESTRATO 2 2.783784
## 67    060281103                 276                    7    ESTRATO 2 2.783784
## 68    060283806                 272                    3    ESTRATO 2 2.783784
## 69    060280115                 426                    5    ESTRATO 2 2.783784
## 70    060280601                 389                    7    ESTRATO 2 2.783784
## 71    060281902                 334                    4    ESTRATO 2 2.783784
## 72    060282913                 274                    7    ESTRATO 2 2.783784
## 73    060281105                 238                    5    ESTRATO 2 2.783784
## 74    060280905                 300                    3    ESTRATO 2 2.783784
## 75    060282807                 374                    4    ESTRATO 2 2.783784
## 76    060282210                 495                    8    ESTRATO 3 2.777778
## 77    060282209                 385                   10    ESTRATO 3 2.777778
## 78    060282108                 306                   10    ESTRATO 3 2.777778
## 79    060283605                 420                   10    ESTRATO 3 2.777778
## 80    060281004                 249                    8    ESTRATO 3 2.777778
## 81    060280808                 337                   11    ESTRATO 3 2.777778
## 82    060282113                 254                    8    ESTRATO 3 2.777778
## 83    060283108                 215                   12    ESTRATO 3 2.777778
## 84    060281502                 256                    8    ESTRATO 3 2.777778
## 85    060283506                 373                   12    ESTRATO 3 2.777778
## 86    060281805                 240                    8    ESTRATO 3 2.777778
## 87    060283712                 394                   11    ESTRATO 3 2.777778
## 88    060282906                 222                   12    ESTRATO 3 2.777778
## 89    060280907                 316                   11    ESTRATO 3 2.777778
## 90    060281408                 306                    8    ESTRATO 3 2.777778
## 91    060283109                 279                   12    ESTRATO 3 2.777778
## 92    060282008                 312                   12    ESTRATO 3 2.777778
## 93    060281011                 302                    8    ESTRATO 3 2.777778
## 94    060283404                 367                   10    ESTRATO 3 2.777778
## 95    060280512                  36                    8    ESTRATO 3 2.777778
## 96    060280301                 473                   11    ESTRATO 3 2.777778
## 97    060283015                 295                   10    ESTRATO 3 2.777778
## 98    060283610                 316                   12    ESTRATO 3 2.777778
## 99    060280412                 474                    9    ESTRATO 3 2.777778
## 100   060283001                 263                   10    ESTRATO 3 2.777778
## 101   060281511                 220                   11    ESTRATO 3 2.777778
## 102   060282805                 441                   12    ESTRATO 3 2.777778
## 103   060282206                 406                   12    ESTRATO 3 2.777778
## 104   060280704                 417                    9    ESTRATO 3 2.777778
## 105   060280106                 266                    8    ESTRATO 3 2.777778
## 106   060282901                 332                   11    ESTRATO 3 2.777778
## 107   060283303                 250                   12    ESTRATO 3 2.777778
## 108   060282203                 345                    9    ESTRATO 3 2.777778
## 109   060282216                 544                    9    ESTRATO 3 2.777778
## 110   060280501                  21                   10    ESTRATO 3 2.777778
## 111   060280805                 324                   11    ESTRATO 3 2.777778
## 112   060283012                 244                    8    ESTRATO 3 2.777778
## 113   060281702                 341                    9    ESTRATO 3 2.777778
## 114   060282806                 523                    9    ESTRATO 3 2.777778
## 115   060282112                 292                   10    ESTRATO 3 2.777778
## 116   060280803                  20                   10    ESTRATO 3 2.777778
## 117   060282111                 330                    8    ESTRATO 3 2.777778
## 118   060283016                 284                   11    ESTRATO 3 2.777778
## 119   060282006                 382                   10    ESTRATO 3 2.777778
## 120   060281309                 340                   12    ESTRATO 3 2.777778
## 121   060280705                 411                   14    ESTRATO 4 2.758621
## 122   060282207                 185                   16    ESTRATO 4 2.758621
## 123   060283606                 404                   15    ESTRATO 4 2.758621
## 124   060280310                 318                   13    ESTRATO 4 2.758621
## 125   060280610                1001                   16    ESTRATO 4 2.758621
## 126   060280707                 666                   14    ESTRATO 4 2.758621
## 127   060280202                 369                   17    ESTRATO 4 2.758621
## 128   060283502                 351                   17    ESTRATO 4 2.758621
## 129   060283711                 380                   13    ESTRATO 4 2.758621
## 130   060281808                 438                   13    ESTRATO 4 2.758621
## 131   060281504                 269                   13    ESTRATO 4 2.758621
## 132   060283902                 380                   13    ESTRATO 4 2.758621
## 133   060280607                 400                   14    ESTRATO 4 2.758621
## 134   060282109                 327                   17    ESTRATO 4 2.758621
## 135   060283611                 304                   16    ESTRATO 4 2.758621
## 136   060281912                 298                   15    ESTRATO 4 2.758621
## 137   060281809                 295                   14    ESTRATO 4 2.758621
## 138   060282910                 246                   15    ESTRATO 4 2.758621
## 139   060280309                 277                   13    ESTRATO 4 2.758621
## 140   060280308                 525                   16    ESTRATO 4 2.758621
## 141   060280101                 360                   17    ESTRATO 4 2.758621
## 142   060280411                 380                   16    ESTRATO 4 2.758621
## 143   060280603                 443                   14    ESTRATO 4 2.758621
## 144   060280312                 266                   16    ESTRATO 4 2.758621
## 145   060280108                 428                   14    ESTRATO 4 2.758621
## 146   060283713                 275                   17    ESTRATO 4 2.758621
## 147   060280302                 430                   17    ESTRATO 4 2.758621
## 148   060282009                 283                   16    ESTRATO 4 2.758621
## 149   060280904                 533                   15    ESTRATO 4 2.758621
## 150   060282013                 406                   20    ESTRATO 5 2.777778
## 151   060283010                 385                   22    ESTRATO 5 2.777778
## 152   060280404                 331                   21    ESTRATO 5 2.777778
## 153   060280408                 401                   20    ESTRATO 5 2.777778
## 154   060282707                 152                   21    ESTRATO 5 2.777778
## 155   060283904                 360                   18    ESTRATO 5 2.777778
## 156   060282703                 373                   25    ESTRATO 5 2.777778
## 157   060283614                 422                   24    ESTRATO 5 2.777778
## 158   060281402                 307                   20    ESTRATO 5 2.777778
## 159   060283009                 325                   20    ESTRATO 5 2.777778
## 160   060283903                 299                   19    ESTRATO 5 2.777778
## 161   060283912                 422                   19    ESTRATO 5 2.777778
## 162   060280605                 536                   18    ESTRATO 5 2.777778
## 163   060283008                 490                   21    ESTRATO 5 2.777778
## 164   060280612                 256                   18    ESTRATO 5 2.777778
## 165   060281807                 302                   25    ESTRATO 5 2.777778
## 166   060282804                 307                   23    ESTRATO 5 2.777778
## 167   060280401                 459                   19    ESTRATO 5 2.777778
## 168   060283911                 408                   33    ESTRATO 6 2.857143
## 169   060283613                 364                   87    ESTRATO 6 2.857143
## 170   060283301                 627                   41    ESTRATO 6 2.857143
## 171   060281905                 170                   42    ESTRATO 6 2.857143
## 172   060280305                 406                   40    ESTRATO 6 2.857143
## 173   060281913                 192                   46    ESTRATO 6 2.857143
## 174   060283314                 482                   29    ESTRATO 6 2.857143
##           1/w basico insuficiente satisfactoria total
## 1   0.3584906     50            9           237   296
## 2   0.3584906     35            8           321   364
## 3   0.3584906     47           11           336   394
## 4   0.3584906     67            1           174   242
## 5   0.3584906     35            3           320   358
## 6   0.3584906     18            3           210   231
## 7   0.3584906      3            0           175   178
## 8   0.3584906     43            8           273   324
## 9   0.3584906    117            0           206   323
## 10  0.3584906      2            6             3    11
## 11  0.3584906     27            3           176   206
## 12  0.3584906     30            5           164   199
## 13  0.3584906     11            0           269   280
## 14  0.3584906     58           11           265   334
## 15  0.3584906     26            4           165   195
## 16  0.3584906     24            3           193   220
## 17  0.3584906     52            6           385   443
## 18  0.3584906     80           16           286   382
## 19  0.3584906      0            0           359   359
## 20  0.3584906     40            0           253   293
## 21  0.3584906     28            4           170   202
## 22  0.3584906     15            0           186   201
## 23  0.3584906    115            5           260   380
## 24  0.3584906     13            2           156   171
## 25  0.3584906     65            9           278   352
## 26  0.3584906     38            7           301   346
## 27  0.3584906      4            1           121   126
## 28  0.3584906     29            6           199   234
## 29  0.3584906     46            5           238   289
## 30  0.3584906     68           10           205   283
## 31  0.3584906     62           16           163   241
## 32  0.3584906      4            1           208   213
## 33  0.3584906     22            0           139   161
## 34  0.3584906     54           10           206   270
## 35  0.3584906     40            3           157   200
## 36  0.3584906     41            4           331   376
## 37  0.3584906     94            2           148   244
## 38  0.3584906     24            2           170   196
## 39  0.3592233     70           30           278   378
## 40  0.3592233     30            3           179   212
## 41  0.3592233     51           15           168   234
## 42  0.3592233     93           62           228   383
## 43  0.3592233     65           37           249   351
## 44  0.3592233     67           16           184   267
## 45  0.3592233    107           38           318   463
## 46  0.3592233     23           16           181   220
## 47  0.3592233     58           27           258   343
## 48  0.3592233     51           13           166   230
## 49  0.3592233     82           26           303   411
## 50  0.3592233     50           41           134   225
## 51  0.3592233     58           14           141   213
## 52  0.3592233     43           31           132   206
## 53  0.3592233    104           43           214   361
## 54  0.3592233     72           36           128   236
## 55  0.3592233     32           12           194   238
## 56  0.3592233     74           40           185   299
## 57  0.3592233     82           21           186   289
## 58  0.3592233     80           35           311   426
## 59  0.3592233     24            8           118   150
## 60  0.3592233     78           23           217   318
## 61  0.3592233     79           33           319   431
## 62  0.3592233     79            9           194   282
## 63  0.3592233     51           20           159   230
## 64  0.3592233     56           16           300   372
## 65  0.3592233     87           38           362   487
## 66  0.3592233     23            7           222   252
## 67  0.3592233     35           16           176   227
## 68  0.3592233     60           26           177   263
## 69  0.3592233    116           37           239   392
## 70  0.3592233    117           33           223   373
## 71  0.3592233    101            3           227   331
## 72  0.3592233     63           51           148   262
## 73  0.3592233     27           13           181   221
## 74  0.3592233     64            6           218   288
## 75  0.3592233     88           27           245   360
## 76  0.3600000    124           48           278   450
## 77  0.3600000     99           51           194   344
## 78  0.3600000     74           37           178   289
## 79  0.3600000     86          106           198   390
## 80  0.3600000     68           34           100   202
## 81  0.3600000     79           55           194   328
## 82  0.3600000     63           22           160   245
## 83  0.3600000     54           57            80   191
## 84  0.3600000     50           40           119   209
## 85  0.3600000     96          112           133   341
## 86  0.3600000     76           42           103   221
## 87  0.3600000     83           93           183   359
## 88  0.3600000     48           53            91   192
## 89  0.3600000     69           37           150   256
## 90  0.3600000     72           61           112   245
## 91  0.3600000     53           71           104   228
## 92  0.3600000     79           97            87   263
## 93  0.3600000     72           54           143   269
## 94  0.3600000     93           79           173   345
## 95  0.3600000     11           11             7    29
## 96  0.3600000    131           53           236   420
## 97  0.3600000     78           65           112   255
## 98  0.3600000    106           77           121   304
## 99  0.3600000    124           96           198   418
## 100 0.3600000     73           29           128   230
## 101 0.3600000     53           68            73   194
## 102 0.3600000    134           88           189   411
## 103 0.3600000    115           88           171   374
## 104 0.3600000     81           46           218   345
## 105 0.3600000     57           28           156   241
## 106 0.3600000     72           71           155   298
## 107 0.3600000     19           40           167   226
## 108 0.3600000     89           51           192   332
## 109 0.3600000    121           77           273   471
## 110 0.3600000      9            3             7    19
## 111 0.3600000     69          102            93   264
## 112 0.3600000     52           75            65   192
## 113 0.3600000    128           23           159   310
## 114 0.3600000    121           81           247   449
## 115 0.3600000     64           55           145   264
## 116 0.3600000      5            5             5    15
## 117 0.3600000     61           51           192   304
## 118 0.3600000     69          108            86   263
## 119 0.3600000     79           77           189   345
## 120 0.3600000    136           57           136   329
## 121 0.3625000     88          118           138   344
## 122 0.3625000     54           39            88   181
## 123 0.3625000    102          145           139   386
## 124 0.3625000     91           51           167   309
## 125 0.3625000    230          280           316   826
## 126 0.3625000    152          108           333   593
## 127 0.3625000     83           73           124   280
## 128 0.3625000     99          153            79   331
## 129 0.3625000    115          104           144   363
## 130 0.3625000    107          160           125   392
## 131 0.3625000     75           87            69   231
## 132 0.3625000     98          124           133   355
## 133 0.3625000     95           97           135   327
## 134 0.3625000     72          117            95   284
## 135 0.3625000     81          129            86   296
## 136 0.3625000     95          113            69   277
## 137 0.3625000     68           97           113   278
## 138 0.3625000     51           51           118   220
## 139 0.3625000     82           51           113   246
## 140 0.3625000    163          123           231   517
## 141 0.3625000     97           80           129   306
## 142 0.3625000    104          119           116   339
## 143 0.3625000     99           82           165   346
## 144 0.3625000     64           69            93   226
## 145 0.3625000    144           77           133   354
## 146 0.3625000     69           66           100   235
## 147 0.3625000    111          150           132   393
## 148 0.3625000     69          113            92   274
## 149 0.3625000    134          146           210   490
## 150 0.3600000     93          211            68   372
## 151 0.3600000    113          166            83   362
## 152 0.3600000     54          177            46   277
## 153 0.3600000    148          146            80   374
## 154 0.3600000     31           67            49   147
## 155 0.3600000     91          129           113   333
## 156 0.3600000     69          132           117   318
## 157 0.3600000     86          212           107   405
## 158 0.3600000     69          107           105   281
## 159 0.3600000     65          128            63   256
## 160 0.3600000     71           87            97   255
## 161 0.3600000    128          182           108   418
## 162 0.3600000    119          146           195   460
## 163 0.3600000    126          140            96   362
## 164 0.3600000     79           97            66   242
## 165 0.3600000     73          145            63   281
## 166 0.3600000     89           93           119   301
## 167 0.3600000    129          147            81   357
## 168 0.3500000     71          274            52   397
## 169 0.3500000      1          350             3   354
## 170 0.3500000     42          139           103   284
## 171 0.3500000     36          114            16   166
## 172 0.3500000     48          195            27   270
## 173 0.3500000     22          145            10   177
## 174 0.3500000     86          274            89   449

Dejamos solamente la variable “total” que corresponde al total de viviendas por radio

muestrafinal2<- muestrafinal2 %>% select(codigoradio,TOTAL_HOGARES_RADIO,PORC_HOG_X_NBI_RADIO,ESTRATOS_NBI,"W(N/n)","1/w" ,total)

muestrafinal2
##     codigoradio TOTAL_HOGARES_RADIO PORC_HOG_X_NBI_RADIO ESTRATOS_NBI   W(N/n)
## 1     060282704                 316                    2    ESTRATO 1 2.789474
## 2     060282510                 376                    2    ESTRATO 1 2.789474
## 3     060283106                 407                    1    ESTRATO 1 2.789474
## 4     060281704                 246                    2    ESTRATO 1 2.789474
## 5     060281211                 372                    0    ESTRATO 1 2.789474
## 6     060282305                 241                    1    ESTRATO 1 2.789474
## 7     060282504                 183                    1    ESTRATO 1 2.789474
## 8     060282713                 344                    1    ESTRATO 1 2.789474
## 9     060283408                 335                    1    ESTRATO 1 2.789474
## 10    060280503                  11                    0    ESTRATO 1 2.789474
## 11    060282701                 210                    0    ESTRATO 1 2.789474
## 12    060281106                 215                    0    ESTRATO 1 2.789474
## 13    060282609                 280                    0    ESTRATO 1 2.789474
## 14    060283311                 354                    2    ESTRATO 1 2.789474
## 15    060282308                 213                    1    ESTRATO 1 2.789474
## 16    060283205                 225                    2    ESTRATO 1 2.789474
## 17    060281109                 472                    1    ESTRATO 1 2.789474
## 18    060281210                 429                    2    ESTRATO 1 2.789474
## 19    060281602                 362                    1    ESTRATO 1 2.789474
## 20    060282513                 307                    0    ESTRATO 1 2.789474
## 21    060282106                 212                    0    ESTRATO 1 2.789474
## 22    060281107                 208                    0    ESTRATO 1 2.789474
## 23    060281801                 424                    2    ESTRATO 1 2.789474
## 24    060282608                 171                    1    ESTRATO 1 2.789474
## 25    060282304                 379                    2    ESTRATO 1 2.789474
## 26    060283410                 355                    2    ESTRATO 1 2.789474
## 27    060282602                 126                    0    ESTRATO 1 2.789474
## 28    060282711                 238                    1    ESTRATO 1 2.789474
## 29    060283310                 297                    1    ESTRATO 1 2.789474
## 30    060283204                 296                    1    ESTRATO 1 2.789474
## 31    060282705                 248                    2    ESTRATO 1 2.789474
## 32    060282507                 218                    0    ESTRATO 1 2.789474
## 33    060281703                 186                    0    ESTRATO 1 2.789474
## 34    060281312                 290                    2    ESTRATO 1 2.789474
## 35    060282312                 213                    1    ESTRATO 1 2.789474
## 36    060282511                 399                    0    ESTRATO 1 2.789474
## 37    060281701                 247                    1    ESTRATO 1 2.789474
## 38    060280105                 201                    1    ESTRATO 1 2.789474
## 39    060280111                 395                    6    ESTRATO 2 2.783784
## 40    060281113                 227                    4    ESTRATO 2 2.783784
## 41    060282303                 265                    3    ESTRATO 2 2.783784
## 42    060283110                 420                    5    ESTRATO 2 2.783784
## 43    060283412                 368                    3    ESTRATO 2 2.783784
## 44    060282211                 286                    7    ESTRATO 2 2.783784
## 45    060280810                 490                    6    ESTRATO 2 2.783784
## 46    060282902                 229                    4    ESTRATO 2 2.783784
## 47    060283701                 352                    4    ESTRATO 2 2.783784
## 48    060281302                 235                    4    ESTRATO 2 2.783784
## 49    060283302                 428                    3    ESTRATO 2 2.783784
## 50    060283807                 229                    7    ESTRATO 2 2.783784
## 51    060282802                 266                    6    ESTRATO 2 2.783784
## 52    060282218                 237                    7    ESTRATO 2 2.783784
## 53    060283402                 389                    5    ESTRATO 2 2.783784
## 54    060283005                 284                    7    ESTRATO 2 2.783784
## 55    060281112                 254                    4    ESTRATO 2 2.783784
## 56    060283508                 309                    5    ESTRATO 2 2.783784
## 57    060282107                 307                    4    ESTRATO 2 2.783784
## 58    060281507                 445                    5    ESTRATO 2 2.783784
## 59    060282710                 158                    5    ESTRATO 2 2.783784
## 60    060280710                 342                    5    ESTRATO 2 2.783784
## 61    060283607                 438                    3    ESTRATO 2 2.783784
## 62    060281708                 397                    4    ESTRATO 2 2.783784
## 63    060282214                 246                    7    ESTRATO 2 2.783784
## 64    060283805                 392                    3    ESTRATO 2 2.783784
## 65    060281111                 526                    7    ESTRATO 2 2.783784
## 66    060281910                 255                    4    ESTRATO 2 2.783784
## 67    060281103                 276                    7    ESTRATO 2 2.783784
## 68    060283806                 272                    3    ESTRATO 2 2.783784
## 69    060280115                 426                    5    ESTRATO 2 2.783784
## 70    060280601                 389                    7    ESTRATO 2 2.783784
## 71    060281902                 334                    4    ESTRATO 2 2.783784
## 72    060282913                 274                    7    ESTRATO 2 2.783784
## 73    060281105                 238                    5    ESTRATO 2 2.783784
## 74    060280905                 300                    3    ESTRATO 2 2.783784
## 75    060282807                 374                    4    ESTRATO 2 2.783784
## 76    060282210                 495                    8    ESTRATO 3 2.777778
## 77    060282209                 385                   10    ESTRATO 3 2.777778
## 78    060282108                 306                   10    ESTRATO 3 2.777778
## 79    060283605                 420                   10    ESTRATO 3 2.777778
## 80    060281004                 249                    8    ESTRATO 3 2.777778
## 81    060280808                 337                   11    ESTRATO 3 2.777778
## 82    060282113                 254                    8    ESTRATO 3 2.777778
## 83    060283108                 215                   12    ESTRATO 3 2.777778
## 84    060281502                 256                    8    ESTRATO 3 2.777778
## 85    060283506                 373                   12    ESTRATO 3 2.777778
## 86    060281805                 240                    8    ESTRATO 3 2.777778
## 87    060283712                 394                   11    ESTRATO 3 2.777778
## 88    060282906                 222                   12    ESTRATO 3 2.777778
## 89    060280907                 316                   11    ESTRATO 3 2.777778
## 90    060281408                 306                    8    ESTRATO 3 2.777778
## 91    060283109                 279                   12    ESTRATO 3 2.777778
## 92    060282008                 312                   12    ESTRATO 3 2.777778
## 93    060281011                 302                    8    ESTRATO 3 2.777778
## 94    060283404                 367                   10    ESTRATO 3 2.777778
## 95    060280512                  36                    8    ESTRATO 3 2.777778
## 96    060280301                 473                   11    ESTRATO 3 2.777778
## 97    060283015                 295                   10    ESTRATO 3 2.777778
## 98    060283610                 316                   12    ESTRATO 3 2.777778
## 99    060280412                 474                    9    ESTRATO 3 2.777778
## 100   060283001                 263                   10    ESTRATO 3 2.777778
## 101   060281511                 220                   11    ESTRATO 3 2.777778
## 102   060282805                 441                   12    ESTRATO 3 2.777778
## 103   060282206                 406                   12    ESTRATO 3 2.777778
## 104   060280704                 417                    9    ESTRATO 3 2.777778
## 105   060280106                 266                    8    ESTRATO 3 2.777778
## 106   060282901                 332                   11    ESTRATO 3 2.777778
## 107   060283303                 250                   12    ESTRATO 3 2.777778
## 108   060282203                 345                    9    ESTRATO 3 2.777778
## 109   060282216                 544                    9    ESTRATO 3 2.777778
## 110   060280501                  21                   10    ESTRATO 3 2.777778
## 111   060280805                 324                   11    ESTRATO 3 2.777778
## 112   060283012                 244                    8    ESTRATO 3 2.777778
## 113   060281702                 341                    9    ESTRATO 3 2.777778
## 114   060282806                 523                    9    ESTRATO 3 2.777778
## 115   060282112                 292                   10    ESTRATO 3 2.777778
## 116   060280803                  20                   10    ESTRATO 3 2.777778
## 117   060282111                 330                    8    ESTRATO 3 2.777778
## 118   060283016                 284                   11    ESTRATO 3 2.777778
## 119   060282006                 382                   10    ESTRATO 3 2.777778
## 120   060281309                 340                   12    ESTRATO 3 2.777778
## 121   060280705                 411                   14    ESTRATO 4 2.758621
## 122   060282207                 185                   16    ESTRATO 4 2.758621
## 123   060283606                 404                   15    ESTRATO 4 2.758621
## 124   060280310                 318                   13    ESTRATO 4 2.758621
## 125   060280610                1001                   16    ESTRATO 4 2.758621
## 126   060280707                 666                   14    ESTRATO 4 2.758621
## 127   060280202                 369                   17    ESTRATO 4 2.758621
## 128   060283502                 351                   17    ESTRATO 4 2.758621
## 129   060283711                 380                   13    ESTRATO 4 2.758621
## 130   060281808                 438                   13    ESTRATO 4 2.758621
## 131   060281504                 269                   13    ESTRATO 4 2.758621
## 132   060283902                 380                   13    ESTRATO 4 2.758621
## 133   060280607                 400                   14    ESTRATO 4 2.758621
## 134   060282109                 327                   17    ESTRATO 4 2.758621
## 135   060283611                 304                   16    ESTRATO 4 2.758621
## 136   060281912                 298                   15    ESTRATO 4 2.758621
## 137   060281809                 295                   14    ESTRATO 4 2.758621
## 138   060282910                 246                   15    ESTRATO 4 2.758621
## 139   060280309                 277                   13    ESTRATO 4 2.758621
## 140   060280308                 525                   16    ESTRATO 4 2.758621
## 141   060280101                 360                   17    ESTRATO 4 2.758621
## 142   060280411                 380                   16    ESTRATO 4 2.758621
## 143   060280603                 443                   14    ESTRATO 4 2.758621
## 144   060280312                 266                   16    ESTRATO 4 2.758621
## 145   060280108                 428                   14    ESTRATO 4 2.758621
## 146   060283713                 275                   17    ESTRATO 4 2.758621
## 147   060280302                 430                   17    ESTRATO 4 2.758621
## 148   060282009                 283                   16    ESTRATO 4 2.758621
## 149   060280904                 533                   15    ESTRATO 4 2.758621
## 150   060282013                 406                   20    ESTRATO 5 2.777778
## 151   060283010                 385                   22    ESTRATO 5 2.777778
## 152   060280404                 331                   21    ESTRATO 5 2.777778
## 153   060280408                 401                   20    ESTRATO 5 2.777778
## 154   060282707                 152                   21    ESTRATO 5 2.777778
## 155   060283904                 360                   18    ESTRATO 5 2.777778
## 156   060282703                 373                   25    ESTRATO 5 2.777778
## 157   060283614                 422                   24    ESTRATO 5 2.777778
## 158   060281402                 307                   20    ESTRATO 5 2.777778
## 159   060283009                 325                   20    ESTRATO 5 2.777778
## 160   060283903                 299                   19    ESTRATO 5 2.777778
## 161   060283912                 422                   19    ESTRATO 5 2.777778
## 162   060280605                 536                   18    ESTRATO 5 2.777778
## 163   060283008                 490                   21    ESTRATO 5 2.777778
## 164   060280612                 256                   18    ESTRATO 5 2.777778
## 165   060281807                 302                   25    ESTRATO 5 2.777778
## 166   060282804                 307                   23    ESTRATO 5 2.777778
## 167   060280401                 459                   19    ESTRATO 5 2.777778
## 168   060283911                 408                   33    ESTRATO 6 2.857143
## 169   060283613                 364                   87    ESTRATO 6 2.857143
## 170   060283301                 627                   41    ESTRATO 6 2.857143
## 171   060281905                 170                   42    ESTRATO 6 2.857143
## 172   060280305                 406                   40    ESTRATO 6 2.857143
## 173   060281913                 192                   46    ESTRATO 6 2.857143
## 174   060283314                 482                   29    ESTRATO 6 2.857143
##           1/w total
## 1   0.3584906   296
## 2   0.3584906   364
## 3   0.3584906   394
## 4   0.3584906   242
## 5   0.3584906   358
## 6   0.3584906   231
## 7   0.3584906   178
## 8   0.3584906   324
## 9   0.3584906   323
## 10  0.3584906    11
## 11  0.3584906   206
## 12  0.3584906   199
## 13  0.3584906   280
## 14  0.3584906   334
## 15  0.3584906   195
## 16  0.3584906   220
## 17  0.3584906   443
## 18  0.3584906   382
## 19  0.3584906   359
## 20  0.3584906   293
## 21  0.3584906   202
## 22  0.3584906   201
## 23  0.3584906   380
## 24  0.3584906   171
## 25  0.3584906   352
## 26  0.3584906   346
## 27  0.3584906   126
## 28  0.3584906   234
## 29  0.3584906   289
## 30  0.3584906   283
## 31  0.3584906   241
## 32  0.3584906   213
## 33  0.3584906   161
## 34  0.3584906   270
## 35  0.3584906   200
## 36  0.3584906   376
## 37  0.3584906   244
## 38  0.3584906   196
## 39  0.3592233   378
## 40  0.3592233   212
## 41  0.3592233   234
## 42  0.3592233   383
## 43  0.3592233   351
## 44  0.3592233   267
## 45  0.3592233   463
## 46  0.3592233   220
## 47  0.3592233   343
## 48  0.3592233   230
## 49  0.3592233   411
## 50  0.3592233   225
## 51  0.3592233   213
## 52  0.3592233   206
## 53  0.3592233   361
## 54  0.3592233   236
## 55  0.3592233   238
## 56  0.3592233   299
## 57  0.3592233   289
## 58  0.3592233   426
## 59  0.3592233   150
## 60  0.3592233   318
## 61  0.3592233   431
## 62  0.3592233   282
## 63  0.3592233   230
## 64  0.3592233   372
## 65  0.3592233   487
## 66  0.3592233   252
## 67  0.3592233   227
## 68  0.3592233   263
## 69  0.3592233   392
## 70  0.3592233   373
## 71  0.3592233   331
## 72  0.3592233   262
## 73  0.3592233   221
## 74  0.3592233   288
## 75  0.3592233   360
## 76  0.3600000   450
## 77  0.3600000   344
## 78  0.3600000   289
## 79  0.3600000   390
## 80  0.3600000   202
## 81  0.3600000   328
## 82  0.3600000   245
## 83  0.3600000   191
## 84  0.3600000   209
## 85  0.3600000   341
## 86  0.3600000   221
## 87  0.3600000   359
## 88  0.3600000   192
## 89  0.3600000   256
## 90  0.3600000   245
## 91  0.3600000   228
## 92  0.3600000   263
## 93  0.3600000   269
## 94  0.3600000   345
## 95  0.3600000    29
## 96  0.3600000   420
## 97  0.3600000   255
## 98  0.3600000   304
## 99  0.3600000   418
## 100 0.3600000   230
## 101 0.3600000   194
## 102 0.3600000   411
## 103 0.3600000   374
## 104 0.3600000   345
## 105 0.3600000   241
## 106 0.3600000   298
## 107 0.3600000   226
## 108 0.3600000   332
## 109 0.3600000   471
## 110 0.3600000    19
## 111 0.3600000   264
## 112 0.3600000   192
## 113 0.3600000   310
## 114 0.3600000   449
## 115 0.3600000   264
## 116 0.3600000    15
## 117 0.3600000   304
## 118 0.3600000   263
## 119 0.3600000   345
## 120 0.3600000   329
## 121 0.3625000   344
## 122 0.3625000   181
## 123 0.3625000   386
## 124 0.3625000   309
## 125 0.3625000   826
## 126 0.3625000   593
## 127 0.3625000   280
## 128 0.3625000   331
## 129 0.3625000   363
## 130 0.3625000   392
## 131 0.3625000   231
## 132 0.3625000   355
## 133 0.3625000   327
## 134 0.3625000   284
## 135 0.3625000   296
## 136 0.3625000   277
## 137 0.3625000   278
## 138 0.3625000   220
## 139 0.3625000   246
## 140 0.3625000   517
## 141 0.3625000   306
## 142 0.3625000   339
## 143 0.3625000   346
## 144 0.3625000   226
## 145 0.3625000   354
## 146 0.3625000   235
## 147 0.3625000   393
## 148 0.3625000   274
## 149 0.3625000   490
## 150 0.3600000   372
## 151 0.3600000   362
## 152 0.3600000   277
## 153 0.3600000   374
## 154 0.3600000   147
## 155 0.3600000   333
## 156 0.3600000   318
## 157 0.3600000   405
## 158 0.3600000   281
## 159 0.3600000   256
## 160 0.3600000   255
## 161 0.3600000   418
## 162 0.3600000   460
## 163 0.3600000   362
## 164 0.3600000   242
## 165 0.3600000   281
## 166 0.3600000   301
## 167 0.3600000   357
## 168 0.3500000   397
## 169 0.3500000   354
## 170 0.3500000   284
## 171 0.3500000   166
## 172 0.3500000   270
## 173 0.3500000   177
## 174 0.3500000   449

Tomando el salto de 25 vivienda como establecimos mas arriba, calcularemos la probabilidad de selección para cada vivienda por radio censal

Prob3<- muestrafinal2 %>% mutate("Wi(Mi/mi)"= muestrafinal2[,7]/25)

Prob3 <-muestrafinal2 %>%  mutate("1/Wi"=1/Prob3[,8])

Prob3
##     codigoradio TOTAL_HOGARES_RADIO PORC_HOG_X_NBI_RADIO ESTRATOS_NBI   W(N/n)
## 1     060282704                 316                    2    ESTRATO 1 2.789474
## 2     060282510                 376                    2    ESTRATO 1 2.789474
## 3     060283106                 407                    1    ESTRATO 1 2.789474
## 4     060281704                 246                    2    ESTRATO 1 2.789474
## 5     060281211                 372                    0    ESTRATO 1 2.789474
## 6     060282305                 241                    1    ESTRATO 1 2.789474
## 7     060282504                 183                    1    ESTRATO 1 2.789474
## 8     060282713                 344                    1    ESTRATO 1 2.789474
## 9     060283408                 335                    1    ESTRATO 1 2.789474
## 10    060280503                  11                    0    ESTRATO 1 2.789474
## 11    060282701                 210                    0    ESTRATO 1 2.789474
## 12    060281106                 215                    0    ESTRATO 1 2.789474
## 13    060282609                 280                    0    ESTRATO 1 2.789474
## 14    060283311                 354                    2    ESTRATO 1 2.789474
## 15    060282308                 213                    1    ESTRATO 1 2.789474
## 16    060283205                 225                    2    ESTRATO 1 2.789474
## 17    060281109                 472                    1    ESTRATO 1 2.789474
## 18    060281210                 429                    2    ESTRATO 1 2.789474
## 19    060281602                 362                    1    ESTRATO 1 2.789474
## 20    060282513                 307                    0    ESTRATO 1 2.789474
## 21    060282106                 212                    0    ESTRATO 1 2.789474
## 22    060281107                 208                    0    ESTRATO 1 2.789474
## 23    060281801                 424                    2    ESTRATO 1 2.789474
## 24    060282608                 171                    1    ESTRATO 1 2.789474
## 25    060282304                 379                    2    ESTRATO 1 2.789474
## 26    060283410                 355                    2    ESTRATO 1 2.789474
## 27    060282602                 126                    0    ESTRATO 1 2.789474
## 28    060282711                 238                    1    ESTRATO 1 2.789474
## 29    060283310                 297                    1    ESTRATO 1 2.789474
## 30    060283204                 296                    1    ESTRATO 1 2.789474
## 31    060282705                 248                    2    ESTRATO 1 2.789474
## 32    060282507                 218                    0    ESTRATO 1 2.789474
## 33    060281703                 186                    0    ESTRATO 1 2.789474
## 34    060281312                 290                    2    ESTRATO 1 2.789474
## 35    060282312                 213                    1    ESTRATO 1 2.789474
## 36    060282511                 399                    0    ESTRATO 1 2.789474
## 37    060281701                 247                    1    ESTRATO 1 2.789474
## 38    060280105                 201                    1    ESTRATO 1 2.789474
## 39    060280111                 395                    6    ESTRATO 2 2.783784
## 40    060281113                 227                    4    ESTRATO 2 2.783784
## 41    060282303                 265                    3    ESTRATO 2 2.783784
## 42    060283110                 420                    5    ESTRATO 2 2.783784
## 43    060283412                 368                    3    ESTRATO 2 2.783784
## 44    060282211                 286                    7    ESTRATO 2 2.783784
## 45    060280810                 490                    6    ESTRATO 2 2.783784
## 46    060282902                 229                    4    ESTRATO 2 2.783784
## 47    060283701                 352                    4    ESTRATO 2 2.783784
## 48    060281302                 235                    4    ESTRATO 2 2.783784
## 49    060283302                 428                    3    ESTRATO 2 2.783784
## 50    060283807                 229                    7    ESTRATO 2 2.783784
## 51    060282802                 266                    6    ESTRATO 2 2.783784
## 52    060282218                 237                    7    ESTRATO 2 2.783784
## 53    060283402                 389                    5    ESTRATO 2 2.783784
## 54    060283005                 284                    7    ESTRATO 2 2.783784
## 55    060281112                 254                    4    ESTRATO 2 2.783784
## 56    060283508                 309                    5    ESTRATO 2 2.783784
## 57    060282107                 307                    4    ESTRATO 2 2.783784
## 58    060281507                 445                    5    ESTRATO 2 2.783784
## 59    060282710                 158                    5    ESTRATO 2 2.783784
## 60    060280710                 342                    5    ESTRATO 2 2.783784
## 61    060283607                 438                    3    ESTRATO 2 2.783784
## 62    060281708                 397                    4    ESTRATO 2 2.783784
## 63    060282214                 246                    7    ESTRATO 2 2.783784
## 64    060283805                 392                    3    ESTRATO 2 2.783784
## 65    060281111                 526                    7    ESTRATO 2 2.783784
## 66    060281910                 255                    4    ESTRATO 2 2.783784
## 67    060281103                 276                    7    ESTRATO 2 2.783784
## 68    060283806                 272                    3    ESTRATO 2 2.783784
## 69    060280115                 426                    5    ESTRATO 2 2.783784
## 70    060280601                 389                    7    ESTRATO 2 2.783784
## 71    060281902                 334                    4    ESTRATO 2 2.783784
## 72    060282913                 274                    7    ESTRATO 2 2.783784
## 73    060281105                 238                    5    ESTRATO 2 2.783784
## 74    060280905                 300                    3    ESTRATO 2 2.783784
## 75    060282807                 374                    4    ESTRATO 2 2.783784
## 76    060282210                 495                    8    ESTRATO 3 2.777778
## 77    060282209                 385                   10    ESTRATO 3 2.777778
## 78    060282108                 306                   10    ESTRATO 3 2.777778
## 79    060283605                 420                   10    ESTRATO 3 2.777778
## 80    060281004                 249                    8    ESTRATO 3 2.777778
## 81    060280808                 337                   11    ESTRATO 3 2.777778
## 82    060282113                 254                    8    ESTRATO 3 2.777778
## 83    060283108                 215                   12    ESTRATO 3 2.777778
## 84    060281502                 256                    8    ESTRATO 3 2.777778
## 85    060283506                 373                   12    ESTRATO 3 2.777778
## 86    060281805                 240                    8    ESTRATO 3 2.777778
## 87    060283712                 394                   11    ESTRATO 3 2.777778
## 88    060282906                 222                   12    ESTRATO 3 2.777778
## 89    060280907                 316                   11    ESTRATO 3 2.777778
## 90    060281408                 306                    8    ESTRATO 3 2.777778
## 91    060283109                 279                   12    ESTRATO 3 2.777778
## 92    060282008                 312                   12    ESTRATO 3 2.777778
## 93    060281011                 302                    8    ESTRATO 3 2.777778
## 94    060283404                 367                   10    ESTRATO 3 2.777778
## 95    060280512                  36                    8    ESTRATO 3 2.777778
## 96    060280301                 473                   11    ESTRATO 3 2.777778
## 97    060283015                 295                   10    ESTRATO 3 2.777778
## 98    060283610                 316                   12    ESTRATO 3 2.777778
## 99    060280412                 474                    9    ESTRATO 3 2.777778
## 100   060283001                 263                   10    ESTRATO 3 2.777778
## 101   060281511                 220                   11    ESTRATO 3 2.777778
## 102   060282805                 441                   12    ESTRATO 3 2.777778
## 103   060282206                 406                   12    ESTRATO 3 2.777778
## 104   060280704                 417                    9    ESTRATO 3 2.777778
## 105   060280106                 266                    8    ESTRATO 3 2.777778
## 106   060282901                 332                   11    ESTRATO 3 2.777778
## 107   060283303                 250                   12    ESTRATO 3 2.777778
## 108   060282203                 345                    9    ESTRATO 3 2.777778
## 109   060282216                 544                    9    ESTRATO 3 2.777778
## 110   060280501                  21                   10    ESTRATO 3 2.777778
## 111   060280805                 324                   11    ESTRATO 3 2.777778
## 112   060283012                 244                    8    ESTRATO 3 2.777778
## 113   060281702                 341                    9    ESTRATO 3 2.777778
## 114   060282806                 523                    9    ESTRATO 3 2.777778
## 115   060282112                 292                   10    ESTRATO 3 2.777778
## 116   060280803                  20                   10    ESTRATO 3 2.777778
## 117   060282111                 330                    8    ESTRATO 3 2.777778
## 118   060283016                 284                   11    ESTRATO 3 2.777778
## 119   060282006                 382                   10    ESTRATO 3 2.777778
## 120   060281309                 340                   12    ESTRATO 3 2.777778
## 121   060280705                 411                   14    ESTRATO 4 2.758621
## 122   060282207                 185                   16    ESTRATO 4 2.758621
## 123   060283606                 404                   15    ESTRATO 4 2.758621
## 124   060280310                 318                   13    ESTRATO 4 2.758621
## 125   060280610                1001                   16    ESTRATO 4 2.758621
## 126   060280707                 666                   14    ESTRATO 4 2.758621
## 127   060280202                 369                   17    ESTRATO 4 2.758621
## 128   060283502                 351                   17    ESTRATO 4 2.758621
## 129   060283711                 380                   13    ESTRATO 4 2.758621
## 130   060281808                 438                   13    ESTRATO 4 2.758621
## 131   060281504                 269                   13    ESTRATO 4 2.758621
## 132   060283902                 380                   13    ESTRATO 4 2.758621
## 133   060280607                 400                   14    ESTRATO 4 2.758621
## 134   060282109                 327                   17    ESTRATO 4 2.758621
## 135   060283611                 304                   16    ESTRATO 4 2.758621
## 136   060281912                 298                   15    ESTRATO 4 2.758621
## 137   060281809                 295                   14    ESTRATO 4 2.758621
## 138   060282910                 246                   15    ESTRATO 4 2.758621
## 139   060280309                 277                   13    ESTRATO 4 2.758621
## 140   060280308                 525                   16    ESTRATO 4 2.758621
## 141   060280101                 360                   17    ESTRATO 4 2.758621
## 142   060280411                 380                   16    ESTRATO 4 2.758621
## 143   060280603                 443                   14    ESTRATO 4 2.758621
## 144   060280312                 266                   16    ESTRATO 4 2.758621
## 145   060280108                 428                   14    ESTRATO 4 2.758621
## 146   060283713                 275                   17    ESTRATO 4 2.758621
## 147   060280302                 430                   17    ESTRATO 4 2.758621
## 148   060282009                 283                   16    ESTRATO 4 2.758621
## 149   060280904                 533                   15    ESTRATO 4 2.758621
## 150   060282013                 406                   20    ESTRATO 5 2.777778
## 151   060283010                 385                   22    ESTRATO 5 2.777778
## 152   060280404                 331                   21    ESTRATO 5 2.777778
## 153   060280408                 401                   20    ESTRATO 5 2.777778
## 154   060282707                 152                   21    ESTRATO 5 2.777778
## 155   060283904                 360                   18    ESTRATO 5 2.777778
## 156   060282703                 373                   25    ESTRATO 5 2.777778
## 157   060283614                 422                   24    ESTRATO 5 2.777778
## 158   060281402                 307                   20    ESTRATO 5 2.777778
## 159   060283009                 325                   20    ESTRATO 5 2.777778
## 160   060283903                 299                   19    ESTRATO 5 2.777778
## 161   060283912                 422                   19    ESTRATO 5 2.777778
## 162   060280605                 536                   18    ESTRATO 5 2.777778
## 163   060283008                 490                   21    ESTRATO 5 2.777778
## 164   060280612                 256                   18    ESTRATO 5 2.777778
## 165   060281807                 302                   25    ESTRATO 5 2.777778
## 166   060282804                 307                   23    ESTRATO 5 2.777778
## 167   060280401                 459                   19    ESTRATO 5 2.777778
## 168   060283911                 408                   33    ESTRATO 6 2.857143
## 169   060283613                 364                   87    ESTRATO 6 2.857143
## 170   060283301                 627                   41    ESTRATO 6 2.857143
## 171   060281905                 170                   42    ESTRATO 6 2.857143
## 172   060280305                 406                   40    ESTRATO 6 2.857143
## 173   060281913                 192                   46    ESTRATO 6 2.857143
## 174   060283314                 482                   29    ESTRATO 6 2.857143
##           1/w total       1/Wi
## 1   0.3584906   296 0.08445946
## 2   0.3584906   364 0.06868132
## 3   0.3584906   394 0.06345178
## 4   0.3584906   242 0.10330579
## 5   0.3584906   358 0.06983240
## 6   0.3584906   231 0.10822511
## 7   0.3584906   178 0.14044944
## 8   0.3584906   324 0.07716049
## 9   0.3584906   323 0.07739938
## 10  0.3584906    11 2.27272727
## 11  0.3584906   206 0.12135922
## 12  0.3584906   199 0.12562814
## 13  0.3584906   280 0.08928571
## 14  0.3584906   334 0.07485030
## 15  0.3584906   195 0.12820513
## 16  0.3584906   220 0.11363636
## 17  0.3584906   443 0.05643341
## 18  0.3584906   382 0.06544503
## 19  0.3584906   359 0.06963788
## 20  0.3584906   293 0.08532423
## 21  0.3584906   202 0.12376238
## 22  0.3584906   201 0.12437811
## 23  0.3584906   380 0.06578947
## 24  0.3584906   171 0.14619883
## 25  0.3584906   352 0.07102273
## 26  0.3584906   346 0.07225434
## 27  0.3584906   126 0.19841270
## 28  0.3584906   234 0.10683761
## 29  0.3584906   289 0.08650519
## 30  0.3584906   283 0.08833922
## 31  0.3584906   241 0.10373444
## 32  0.3584906   213 0.11737089
## 33  0.3584906   161 0.15527950
## 34  0.3584906   270 0.09259259
## 35  0.3584906   200 0.12500000
## 36  0.3584906   376 0.06648936
## 37  0.3584906   244 0.10245902
## 38  0.3584906   196 0.12755102
## 39  0.3592233   378 0.06613757
## 40  0.3592233   212 0.11792453
## 41  0.3592233   234 0.10683761
## 42  0.3592233   383 0.06527415
## 43  0.3592233   351 0.07122507
## 44  0.3592233   267 0.09363296
## 45  0.3592233   463 0.05399568
## 46  0.3592233   220 0.11363636
## 47  0.3592233   343 0.07288630
## 48  0.3592233   230 0.10869565
## 49  0.3592233   411 0.06082725
## 50  0.3592233   225 0.11111111
## 51  0.3592233   213 0.11737089
## 52  0.3592233   206 0.12135922
## 53  0.3592233   361 0.06925208
## 54  0.3592233   236 0.10593220
## 55  0.3592233   238 0.10504202
## 56  0.3592233   299 0.08361204
## 57  0.3592233   289 0.08650519
## 58  0.3592233   426 0.05868545
## 59  0.3592233   150 0.16666667
## 60  0.3592233   318 0.07861635
## 61  0.3592233   431 0.05800464
## 62  0.3592233   282 0.08865248
## 63  0.3592233   230 0.10869565
## 64  0.3592233   372 0.06720430
## 65  0.3592233   487 0.05133470
## 66  0.3592233   252 0.09920635
## 67  0.3592233   227 0.11013216
## 68  0.3592233   263 0.09505703
## 69  0.3592233   392 0.06377551
## 70  0.3592233   373 0.06702413
## 71  0.3592233   331 0.07552870
## 72  0.3592233   262 0.09541985
## 73  0.3592233   221 0.11312217
## 74  0.3592233   288 0.08680556
## 75  0.3592233   360 0.06944444
## 76  0.3600000   450 0.05555556
## 77  0.3600000   344 0.07267442
## 78  0.3600000   289 0.08650519
## 79  0.3600000   390 0.06410256
## 80  0.3600000   202 0.12376238
## 81  0.3600000   328 0.07621951
## 82  0.3600000   245 0.10204082
## 83  0.3600000   191 0.13089005
## 84  0.3600000   209 0.11961722
## 85  0.3600000   341 0.07331378
## 86  0.3600000   221 0.11312217
## 87  0.3600000   359 0.06963788
## 88  0.3600000   192 0.13020833
## 89  0.3600000   256 0.09765625
## 90  0.3600000   245 0.10204082
## 91  0.3600000   228 0.10964912
## 92  0.3600000   263 0.09505703
## 93  0.3600000   269 0.09293680
## 94  0.3600000   345 0.07246377
## 95  0.3600000    29 0.86206897
## 96  0.3600000   420 0.05952381
## 97  0.3600000   255 0.09803922
## 98  0.3600000   304 0.08223684
## 99  0.3600000   418 0.05980861
## 100 0.3600000   230 0.10869565
## 101 0.3600000   194 0.12886598
## 102 0.3600000   411 0.06082725
## 103 0.3600000   374 0.06684492
## 104 0.3600000   345 0.07246377
## 105 0.3600000   241 0.10373444
## 106 0.3600000   298 0.08389262
## 107 0.3600000   226 0.11061947
## 108 0.3600000   332 0.07530120
## 109 0.3600000   471 0.05307856
## 110 0.3600000    19 1.31578947
## 111 0.3600000   264 0.09469697
## 112 0.3600000   192 0.13020833
## 113 0.3600000   310 0.08064516
## 114 0.3600000   449 0.05567929
## 115 0.3600000   264 0.09469697
## 116 0.3600000    15 1.66666667
## 117 0.3600000   304 0.08223684
## 118 0.3600000   263 0.09505703
## 119 0.3600000   345 0.07246377
## 120 0.3600000   329 0.07598784
## 121 0.3625000   344 0.07267442
## 122 0.3625000   181 0.13812155
## 123 0.3625000   386 0.06476684
## 124 0.3625000   309 0.08090615
## 125 0.3625000   826 0.03026634
## 126 0.3625000   593 0.04215852
## 127 0.3625000   280 0.08928571
## 128 0.3625000   331 0.07552870
## 129 0.3625000   363 0.06887052
## 130 0.3625000   392 0.06377551
## 131 0.3625000   231 0.10822511
## 132 0.3625000   355 0.07042254
## 133 0.3625000   327 0.07645260
## 134 0.3625000   284 0.08802817
## 135 0.3625000   296 0.08445946
## 136 0.3625000   277 0.09025271
## 137 0.3625000   278 0.08992806
## 138 0.3625000   220 0.11363636
## 139 0.3625000   246 0.10162602
## 140 0.3625000   517 0.04835590
## 141 0.3625000   306 0.08169935
## 142 0.3625000   339 0.07374631
## 143 0.3625000   346 0.07225434
## 144 0.3625000   226 0.11061947
## 145 0.3625000   354 0.07062147
## 146 0.3625000   235 0.10638298
## 147 0.3625000   393 0.06361323
## 148 0.3625000   274 0.09124088
## 149 0.3625000   490 0.05102041
## 150 0.3600000   372 0.06720430
## 151 0.3600000   362 0.06906077
## 152 0.3600000   277 0.09025271
## 153 0.3600000   374 0.06684492
## 154 0.3600000   147 0.17006803
## 155 0.3600000   333 0.07507508
## 156 0.3600000   318 0.07861635
## 157 0.3600000   405 0.06172840
## 158 0.3600000   281 0.08896797
## 159 0.3600000   256 0.09765625
## 160 0.3600000   255 0.09803922
## 161 0.3600000   418 0.05980861
## 162 0.3600000   460 0.05434783
## 163 0.3600000   362 0.06906077
## 164 0.3600000   242 0.10330579
## 165 0.3600000   281 0.08896797
## 166 0.3600000   301 0.08305648
## 167 0.3600000   357 0.07002801
## 168 0.3500000   397 0.06297229
## 169 0.3500000   354 0.07062147
## 170 0.3500000   284 0.08802817
## 171 0.3500000   166 0.15060241
## 172 0.3500000   270 0.09259259
## 173 0.3500000   177 0.14124294
## 174 0.3500000   449 0.05567929

Calculamos la probabilidad final y el factor de expansión

MuestraFactorExp<- Prob3 %>% mutate("Prob_final"= `1/w` *`1/Wi`, "Factor_expansion"= 1/(`1/w` *`1/Wi`))

Entonces nuestra muestra a seleccionar será:

MuestraFactorExp
##     codigoradio TOTAL_HOGARES_RADIO PORC_HOG_X_NBI_RADIO ESTRATOS_NBI   W(N/n)
## 1     060282704                 316                    2    ESTRATO 1 2.789474
## 2     060282510                 376                    2    ESTRATO 1 2.789474
## 3     060283106                 407                    1    ESTRATO 1 2.789474
## 4     060281704                 246                    2    ESTRATO 1 2.789474
## 5     060281211                 372                    0    ESTRATO 1 2.789474
## 6     060282305                 241                    1    ESTRATO 1 2.789474
## 7     060282504                 183                    1    ESTRATO 1 2.789474
## 8     060282713                 344                    1    ESTRATO 1 2.789474
## 9     060283408                 335                    1    ESTRATO 1 2.789474
## 10    060280503                  11                    0    ESTRATO 1 2.789474
## 11    060282701                 210                    0    ESTRATO 1 2.789474
## 12    060281106                 215                    0    ESTRATO 1 2.789474
## 13    060282609                 280                    0    ESTRATO 1 2.789474
## 14    060283311                 354                    2    ESTRATO 1 2.789474
## 15    060282308                 213                    1    ESTRATO 1 2.789474
## 16    060283205                 225                    2    ESTRATO 1 2.789474
## 17    060281109                 472                    1    ESTRATO 1 2.789474
## 18    060281210                 429                    2    ESTRATO 1 2.789474
## 19    060281602                 362                    1    ESTRATO 1 2.789474
## 20    060282513                 307                    0    ESTRATO 1 2.789474
## 21    060282106                 212                    0    ESTRATO 1 2.789474
## 22    060281107                 208                    0    ESTRATO 1 2.789474
## 23    060281801                 424                    2    ESTRATO 1 2.789474
## 24    060282608                 171                    1    ESTRATO 1 2.789474
## 25    060282304                 379                    2    ESTRATO 1 2.789474
## 26    060283410                 355                    2    ESTRATO 1 2.789474
## 27    060282602                 126                    0    ESTRATO 1 2.789474
## 28    060282711                 238                    1    ESTRATO 1 2.789474
## 29    060283310                 297                    1    ESTRATO 1 2.789474
## 30    060283204                 296                    1    ESTRATO 1 2.789474
## 31    060282705                 248                    2    ESTRATO 1 2.789474
## 32    060282507                 218                    0    ESTRATO 1 2.789474
## 33    060281703                 186                    0    ESTRATO 1 2.789474
## 34    060281312                 290                    2    ESTRATO 1 2.789474
## 35    060282312                 213                    1    ESTRATO 1 2.789474
## 36    060282511                 399                    0    ESTRATO 1 2.789474
## 37    060281701                 247                    1    ESTRATO 1 2.789474
## 38    060280105                 201                    1    ESTRATO 1 2.789474
## 39    060280111                 395                    6    ESTRATO 2 2.783784
## 40    060281113                 227                    4    ESTRATO 2 2.783784
## 41    060282303                 265                    3    ESTRATO 2 2.783784
## 42    060283110                 420                    5    ESTRATO 2 2.783784
## 43    060283412                 368                    3    ESTRATO 2 2.783784
## 44    060282211                 286                    7    ESTRATO 2 2.783784
## 45    060280810                 490                    6    ESTRATO 2 2.783784
## 46    060282902                 229                    4    ESTRATO 2 2.783784
## 47    060283701                 352                    4    ESTRATO 2 2.783784
## 48    060281302                 235                    4    ESTRATO 2 2.783784
## 49    060283302                 428                    3    ESTRATO 2 2.783784
## 50    060283807                 229                    7    ESTRATO 2 2.783784
## 51    060282802                 266                    6    ESTRATO 2 2.783784
## 52    060282218                 237                    7    ESTRATO 2 2.783784
## 53    060283402                 389                    5    ESTRATO 2 2.783784
## 54    060283005                 284                    7    ESTRATO 2 2.783784
## 55    060281112                 254                    4    ESTRATO 2 2.783784
## 56    060283508                 309                    5    ESTRATO 2 2.783784
## 57    060282107                 307                    4    ESTRATO 2 2.783784
## 58    060281507                 445                    5    ESTRATO 2 2.783784
## 59    060282710                 158                    5    ESTRATO 2 2.783784
## 60    060280710                 342                    5    ESTRATO 2 2.783784
## 61    060283607                 438                    3    ESTRATO 2 2.783784
## 62    060281708                 397                    4    ESTRATO 2 2.783784
## 63    060282214                 246                    7    ESTRATO 2 2.783784
## 64    060283805                 392                    3    ESTRATO 2 2.783784
## 65    060281111                 526                    7    ESTRATO 2 2.783784
## 66    060281910                 255                    4    ESTRATO 2 2.783784
## 67    060281103                 276                    7    ESTRATO 2 2.783784
## 68    060283806                 272                    3    ESTRATO 2 2.783784
## 69    060280115                 426                    5    ESTRATO 2 2.783784
## 70    060280601                 389                    7    ESTRATO 2 2.783784
## 71    060281902                 334                    4    ESTRATO 2 2.783784
## 72    060282913                 274                    7    ESTRATO 2 2.783784
## 73    060281105                 238                    5    ESTRATO 2 2.783784
## 74    060280905                 300                    3    ESTRATO 2 2.783784
## 75    060282807                 374                    4    ESTRATO 2 2.783784
## 76    060282210                 495                    8    ESTRATO 3 2.777778
## 77    060282209                 385                   10    ESTRATO 3 2.777778
## 78    060282108                 306                   10    ESTRATO 3 2.777778
## 79    060283605                 420                   10    ESTRATO 3 2.777778
## 80    060281004                 249                    8    ESTRATO 3 2.777778
## 81    060280808                 337                   11    ESTRATO 3 2.777778
## 82    060282113                 254                    8    ESTRATO 3 2.777778
## 83    060283108                 215                   12    ESTRATO 3 2.777778
## 84    060281502                 256                    8    ESTRATO 3 2.777778
## 85    060283506                 373                   12    ESTRATO 3 2.777778
## 86    060281805                 240                    8    ESTRATO 3 2.777778
## 87    060283712                 394                   11    ESTRATO 3 2.777778
## 88    060282906                 222                   12    ESTRATO 3 2.777778
## 89    060280907                 316                   11    ESTRATO 3 2.777778
## 90    060281408                 306                    8    ESTRATO 3 2.777778
## 91    060283109                 279                   12    ESTRATO 3 2.777778
## 92    060282008                 312                   12    ESTRATO 3 2.777778
## 93    060281011                 302                    8    ESTRATO 3 2.777778
## 94    060283404                 367                   10    ESTRATO 3 2.777778
## 95    060280512                  36                    8    ESTRATO 3 2.777778
## 96    060280301                 473                   11    ESTRATO 3 2.777778
## 97    060283015                 295                   10    ESTRATO 3 2.777778
## 98    060283610                 316                   12    ESTRATO 3 2.777778
## 99    060280412                 474                    9    ESTRATO 3 2.777778
## 100   060283001                 263                   10    ESTRATO 3 2.777778
## 101   060281511                 220                   11    ESTRATO 3 2.777778
## 102   060282805                 441                   12    ESTRATO 3 2.777778
## 103   060282206                 406                   12    ESTRATO 3 2.777778
## 104   060280704                 417                    9    ESTRATO 3 2.777778
## 105   060280106                 266                    8    ESTRATO 3 2.777778
## 106   060282901                 332                   11    ESTRATO 3 2.777778
## 107   060283303                 250                   12    ESTRATO 3 2.777778
## 108   060282203                 345                    9    ESTRATO 3 2.777778
## 109   060282216                 544                    9    ESTRATO 3 2.777778
## 110   060280501                  21                   10    ESTRATO 3 2.777778
## 111   060280805                 324                   11    ESTRATO 3 2.777778
## 112   060283012                 244                    8    ESTRATO 3 2.777778
## 113   060281702                 341                    9    ESTRATO 3 2.777778
## 114   060282806                 523                    9    ESTRATO 3 2.777778
## 115   060282112                 292                   10    ESTRATO 3 2.777778
## 116   060280803                  20                   10    ESTRATO 3 2.777778
## 117   060282111                 330                    8    ESTRATO 3 2.777778
## 118   060283016                 284                   11    ESTRATO 3 2.777778
## 119   060282006                 382                   10    ESTRATO 3 2.777778
## 120   060281309                 340                   12    ESTRATO 3 2.777778
## 121   060280705                 411                   14    ESTRATO 4 2.758621
## 122   060282207                 185                   16    ESTRATO 4 2.758621
## 123   060283606                 404                   15    ESTRATO 4 2.758621
## 124   060280310                 318                   13    ESTRATO 4 2.758621
## 125   060280610                1001                   16    ESTRATO 4 2.758621
## 126   060280707                 666                   14    ESTRATO 4 2.758621
## 127   060280202                 369                   17    ESTRATO 4 2.758621
## 128   060283502                 351                   17    ESTRATO 4 2.758621
## 129   060283711                 380                   13    ESTRATO 4 2.758621
## 130   060281808                 438                   13    ESTRATO 4 2.758621
## 131   060281504                 269                   13    ESTRATO 4 2.758621
## 132   060283902                 380                   13    ESTRATO 4 2.758621
## 133   060280607                 400                   14    ESTRATO 4 2.758621
## 134   060282109                 327                   17    ESTRATO 4 2.758621
## 135   060283611                 304                   16    ESTRATO 4 2.758621
## 136   060281912                 298                   15    ESTRATO 4 2.758621
## 137   060281809                 295                   14    ESTRATO 4 2.758621
## 138   060282910                 246                   15    ESTRATO 4 2.758621
## 139   060280309                 277                   13    ESTRATO 4 2.758621
## 140   060280308                 525                   16    ESTRATO 4 2.758621
## 141   060280101                 360                   17    ESTRATO 4 2.758621
## 142   060280411                 380                   16    ESTRATO 4 2.758621
## 143   060280603                 443                   14    ESTRATO 4 2.758621
## 144   060280312                 266                   16    ESTRATO 4 2.758621
## 145   060280108                 428                   14    ESTRATO 4 2.758621
## 146   060283713                 275                   17    ESTRATO 4 2.758621
## 147   060280302                 430                   17    ESTRATO 4 2.758621
## 148   060282009                 283                   16    ESTRATO 4 2.758621
## 149   060280904                 533                   15    ESTRATO 4 2.758621
## 150   060282013                 406                   20    ESTRATO 5 2.777778
## 151   060283010                 385                   22    ESTRATO 5 2.777778
## 152   060280404                 331                   21    ESTRATO 5 2.777778
## 153   060280408                 401                   20    ESTRATO 5 2.777778
## 154   060282707                 152                   21    ESTRATO 5 2.777778
## 155   060283904                 360                   18    ESTRATO 5 2.777778
## 156   060282703                 373                   25    ESTRATO 5 2.777778
## 157   060283614                 422                   24    ESTRATO 5 2.777778
## 158   060281402                 307                   20    ESTRATO 5 2.777778
## 159   060283009                 325                   20    ESTRATO 5 2.777778
## 160   060283903                 299                   19    ESTRATO 5 2.777778
## 161   060283912                 422                   19    ESTRATO 5 2.777778
## 162   060280605                 536                   18    ESTRATO 5 2.777778
## 163   060283008                 490                   21    ESTRATO 5 2.777778
## 164   060280612                 256                   18    ESTRATO 5 2.777778
## 165   060281807                 302                   25    ESTRATO 5 2.777778
## 166   060282804                 307                   23    ESTRATO 5 2.777778
## 167   060280401                 459                   19    ESTRATO 5 2.777778
## 168   060283911                 408                   33    ESTRATO 6 2.857143
## 169   060283613                 364                   87    ESTRATO 6 2.857143
## 170   060283301                 627                   41    ESTRATO 6 2.857143
## 171   060281905                 170                   42    ESTRATO 6 2.857143
## 172   060280305                 406                   40    ESTRATO 6 2.857143
## 173   060281913                 192                   46    ESTRATO 6 2.857143
## 174   060283314                 482                   29    ESTRATO 6 2.857143
##           1/w total       1/Wi Prob_final Factor_expansion
## 1   0.3584906   296 0.08445946 0.03027792        33.027368
## 2   0.3584906   364 0.06868132 0.02462160        40.614737
## 3   0.3584906   394 0.06345178 0.02274686        43.962105
## 4   0.3584906   242 0.10330579 0.03703415        27.002105
## 5   0.3584906   358 0.06983240 0.02503426        39.945263
## 6   0.3584906   231 0.10822511 0.03879768        25.774737
## 7   0.3584906   178 0.14044944 0.05034980        19.861053
## 8   0.3584906   324 0.07716049 0.02766131        36.151579
## 9   0.3584906   323 0.07739938 0.02774695        36.040000
## 10  0.3584906    11 2.27272727 0.81475129         1.227368
## 11  0.3584906   206 0.12135922 0.04350614        22.985263
## 12  0.3584906   199 0.12562814 0.04503650        22.204211
## 13  0.3584906   280 0.08928571 0.03200809        31.242105
## 14  0.3584906   334 0.07485030 0.02683313        37.267368
## 15  0.3584906   195 0.12820513 0.04596033        21.757895
## 16  0.3584906   220 0.11363636 0.04073756        24.547368
## 17  0.3584906   443 0.05643341 0.02023084        49.429474
## 18  0.3584906   382 0.06544503 0.02346142        42.623158
## 19  0.3584906   359 0.06963788 0.02496452        40.056842
## 20  0.3584906   293 0.08532423 0.03058793        32.692632
## 21  0.3584906   202 0.12376238 0.04436764        22.538947
## 22  0.3584906   201 0.12437811 0.04458838        22.427368
## 23  0.3584906   380 0.06578947 0.02358491        42.400000
## 24  0.3584906   171 0.14619883 0.05241090        19.080000
## 25  0.3584906   352 0.07102273 0.02546098        39.275789
## 26  0.3584906   346 0.07225434 0.02590250        38.606316
## 27  0.3584906   126 0.19841270 0.07112908        14.058947
## 28  0.3584906   234 0.10683761 0.03830027        26.109474
## 29  0.3584906   289 0.08650519 0.03101129        32.246316
## 30  0.3584906   283 0.08833922 0.03166878        31.576842
## 31  0.3584906   241 0.10373444 0.03718782        26.890526
## 32  0.3584906   213 0.11737089 0.04207636        23.766316
## 33  0.3584906   161 0.15527950 0.05566624        17.964211
## 34  0.3584906   270 0.09259259 0.03319357        30.126316
## 35  0.3584906   200 0.12500000 0.04481132        22.315789
## 36  0.3584906   376 0.06648936 0.02383581        41.953684
## 37  0.3584906   244 0.10245902 0.03673059        27.225263
## 38  0.3584906   196 0.12755102 0.04572584        21.869474
## 39  0.3592233   378 0.06613757 0.02375815        42.090811
## 40  0.3592233   212 0.11792453 0.04236124        23.606486
## 41  0.3592233   234 0.10683761 0.03837856        26.056216
## 42  0.3592233   383 0.06527415 0.02344800        42.647568
## 43  0.3592233   351 0.07122507 0.02558571        39.084324
## 44  0.3592233   267 0.09363296 0.03363514        29.730811
## 45  0.3592233   463 0.05399568 0.01939651        51.555676
## 46  0.3592233   220 0.11363636 0.04082083        24.497297
## 47  0.3592233   343 0.07288630 0.02618246        38.193514
## 48  0.3592233   230 0.10869565 0.03904601        25.610811
## 49  0.3592233   411 0.06082725 0.02185057        45.765405
## 50  0.3592233   225 0.11111111 0.03991370        25.054054
## 51  0.3592233   213 0.11737089 0.04216236        23.717838
## 52  0.3592233   206 0.12135922 0.04359506        22.938378
## 53  0.3592233   361 0.06925208 0.02487696        40.197838
## 54  0.3592233   236 0.10593220 0.03805332        26.278919
## 55  0.3592233   238 0.10504202 0.03773354        26.501622
## 56  0.3592233   299 0.08361204 0.03003539        33.294054
## 57  0.3592233   289 0.08650519 0.03107468        32.180541
## 58  0.3592233   426 0.05868545 0.02108118        47.435676
## 59  0.3592233   150 0.16666667 0.05987055        16.702703
## 60  0.3592233   318 0.07861635 0.02824083        35.409730
## 61  0.3592233   431 0.05800464 0.02083662        47.992432
## 62  0.3592233   282 0.08865248 0.03184604        31.401081
## 63  0.3592233   230 0.10869565 0.03904601        25.610811
## 64  0.3592233   372 0.06720430 0.02414135        41.422703
## 65  0.3592233   487 0.05133470 0.01844062        54.228108
## 66  0.3592233   252 0.09920635 0.03563723        28.060541
## 67  0.3592233   227 0.11013216 0.03956204        25.276757
## 68  0.3592233   263 0.09505703 0.03414670        29.285405
## 69  0.3592233   392 0.06377551 0.02290965        43.649730
## 70  0.3592233   373 0.06702413 0.02407663        41.534054
## 71  0.3592233   331 0.07552870 0.02713167        36.857297
## 72  0.3592233   262 0.09541985 0.03427703        29.174054
## 73  0.3592233   221 0.11312217 0.04063612        24.608649
## 74  0.3592233   288 0.08680556 0.03118258        32.069189
## 75  0.3592233   360 0.06944444 0.02494606        40.086486
## 76  0.3600000   450 0.05555556 0.02000000        50.000000
## 77  0.3600000   344 0.07267442 0.02616279        38.222222
## 78  0.3600000   289 0.08650519 0.03114187        32.111111
## 79  0.3600000   390 0.06410256 0.02307692        43.333333
## 80  0.3600000   202 0.12376238 0.04455446        22.444444
## 81  0.3600000   328 0.07621951 0.02743902        36.444444
## 82  0.3600000   245 0.10204082 0.03673469        27.222222
## 83  0.3600000   191 0.13089005 0.04712042        21.222222
## 84  0.3600000   209 0.11961722 0.04306220        23.222222
## 85  0.3600000   341 0.07331378 0.02639296        37.888889
## 86  0.3600000   221 0.11312217 0.04072398        24.555556
## 87  0.3600000   359 0.06963788 0.02506964        39.888889
## 88  0.3600000   192 0.13020833 0.04687500        21.333333
## 89  0.3600000   256 0.09765625 0.03515625        28.444444
## 90  0.3600000   245 0.10204082 0.03673469        27.222222
## 91  0.3600000   228 0.10964912 0.03947368        25.333333
## 92  0.3600000   263 0.09505703 0.03422053        29.222222
## 93  0.3600000   269 0.09293680 0.03345725        29.888889
## 94  0.3600000   345 0.07246377 0.02608696        38.333333
## 95  0.3600000    29 0.86206897 0.31034483         3.222222
## 96  0.3600000   420 0.05952381 0.02142857        46.666667
## 97  0.3600000   255 0.09803922 0.03529412        28.333333
## 98  0.3600000   304 0.08223684 0.02960526        33.777778
## 99  0.3600000   418 0.05980861 0.02153110        46.444444
## 100 0.3600000   230 0.10869565 0.03913043        25.555556
## 101 0.3600000   194 0.12886598 0.04639175        21.555556
## 102 0.3600000   411 0.06082725 0.02189781        45.666667
## 103 0.3600000   374 0.06684492 0.02406417        41.555556
## 104 0.3600000   345 0.07246377 0.02608696        38.333333
## 105 0.3600000   241 0.10373444 0.03734440        26.777778
## 106 0.3600000   298 0.08389262 0.03020134        33.111111
## 107 0.3600000   226 0.11061947 0.03982301        25.111111
## 108 0.3600000   332 0.07530120 0.02710843        36.888889
## 109 0.3600000   471 0.05307856 0.01910828        52.333333
## 110 0.3600000    19 1.31578947 0.47368421         2.111111
## 111 0.3600000   264 0.09469697 0.03409091        29.333333
## 112 0.3600000   192 0.13020833 0.04687500        21.333333
## 113 0.3600000   310 0.08064516 0.02903226        34.444444
## 114 0.3600000   449 0.05567929 0.02004454        49.888889
## 115 0.3600000   264 0.09469697 0.03409091        29.333333
## 116 0.3600000    15 1.66666667 0.60000000         1.666667
## 117 0.3600000   304 0.08223684 0.02960526        33.777778
## 118 0.3600000   263 0.09505703 0.03422053        29.222222
## 119 0.3600000   345 0.07246377 0.02608696        38.333333
## 120 0.3600000   329 0.07598784 0.02735562        36.555556
## 121 0.3625000   344 0.07267442 0.02634448        37.958621
## 122 0.3625000   181 0.13812155 0.05006906        19.972414
## 123 0.3625000   386 0.06476684 0.02347798        42.593103
## 124 0.3625000   309 0.08090615 0.02932848        34.096552
## 125 0.3625000   826 0.03026634 0.01097155        91.144828
## 126 0.3625000   593 0.04215852 0.01528246        65.434483
## 127 0.3625000   280 0.08928571 0.03236607        30.896552
## 128 0.3625000   331 0.07552870 0.02737915        36.524138
## 129 0.3625000   363 0.06887052 0.02496556        40.055172
## 130 0.3625000   392 0.06377551 0.02311862        43.255172
## 131 0.3625000   231 0.10822511 0.03923160        25.489655
## 132 0.3625000   355 0.07042254 0.02552817        39.172414
## 133 0.3625000   327 0.07645260 0.02771407        36.082759
## 134 0.3625000   284 0.08802817 0.03191021        31.337931
## 135 0.3625000   296 0.08445946 0.03061655        32.662069
## 136 0.3625000   277 0.09025271 0.03271661        30.565517
## 137 0.3625000   278 0.08992806 0.03259892        30.675862
## 138 0.3625000   220 0.11363636 0.04119318        24.275862
## 139 0.3625000   246 0.10162602 0.03683943        27.144828
## 140 0.3625000   517 0.04835590 0.01752901        57.048276
## 141 0.3625000   306 0.08169935 0.02961601        33.765517
## 142 0.3625000   339 0.07374631 0.02673304        37.406897
## 143 0.3625000   346 0.07225434 0.02619220        38.179310
## 144 0.3625000   226 0.11061947 0.04009956        24.937931
## 145 0.3625000   354 0.07062147 0.02560028        39.062069
## 146 0.3625000   235 0.10638298 0.03856383        25.931034
## 147 0.3625000   393 0.06361323 0.02305980        43.365517
## 148 0.3625000   274 0.09124088 0.03307482        30.234483
## 149 0.3625000   490 0.05102041 0.01849490        54.068966
## 150 0.3600000   372 0.06720430 0.02419355        41.333333
## 151 0.3600000   362 0.06906077 0.02486188        40.222222
## 152 0.3600000   277 0.09025271 0.03249097        30.777778
## 153 0.3600000   374 0.06684492 0.02406417        41.555556
## 154 0.3600000   147 0.17006803 0.06122449        16.333333
## 155 0.3600000   333 0.07507508 0.02702703        37.000000
## 156 0.3600000   318 0.07861635 0.02830189        35.333333
## 157 0.3600000   405 0.06172840 0.02222222        45.000000
## 158 0.3600000   281 0.08896797 0.03202847        31.222222
## 159 0.3600000   256 0.09765625 0.03515625        28.444444
## 160 0.3600000   255 0.09803922 0.03529412        28.333333
## 161 0.3600000   418 0.05980861 0.02153110        46.444444
## 162 0.3600000   460 0.05434783 0.01956522        51.111111
## 163 0.3600000   362 0.06906077 0.02486188        40.222222
## 164 0.3600000   242 0.10330579 0.03719008        26.888889
## 165 0.3600000   281 0.08896797 0.03202847        31.222222
## 166 0.3600000   301 0.08305648 0.02990033        33.444444
## 167 0.3600000   357 0.07002801 0.02521008        39.666667
## 168 0.3500000   397 0.06297229 0.02204030        45.371429
## 169 0.3500000   354 0.07062147 0.02471751        40.457143
## 170 0.3500000   284 0.08802817 0.03080986        32.457143
## 171 0.3500000   166 0.15060241 0.05271084        18.971429
## 172 0.3500000   270 0.09259259 0.03240741        30.857143
## 173 0.3500000   177 0.14124294 0.04943503        20.228571
## 174 0.3500000   449 0.05567929 0.01948775        51.314286

Exportamos la base final con las probabilidades de selección y ponderación de cada radio a un archivo en formato excel

write.xlsx(MuestraFactorExp,"MuestraFactorExp.xlsx")

"Una muestra probabilística tiene las siguientes propiedades matemáticas:

1- Podemos definir un conjunto de muestras distintas. Esto significa que podemos decir con precisión cuáles son las unidades de muestreo que pertenecen a las distinas muestras.

2- Cada muestra posible tiene asignada una probabilidad de selección

3- Se selecciona una de las muestras mediante un proceso aleatorio, en el que cada unidad de muestreo tiene una probabilidad de ser elegida

4- El método para calcular la estimación a partir de la muestra debe ser definido y debe conducir a una estimación única para cualquier muestra específica. Podemos decir, que la estimación es el promedio de las mediciones correspondientes a las unidades individuales de la muestra." (Técnicas de muestreo W. Cochran pag. 30)