LAS LIBRERÍAS

library(readr) # Librería que lee datos
library(knitr) # Librería que hace tablas amigables
library(dplyr) # Librería que permite crear tablas de distribución
library(fdth) # Select,filter,mutate,group...

CARGAR DATOS

La variable datos es una población se requiere una muestra, la cual es una parte proporcional y que representa a la población

datos<-read.csv("../Datos/personas.csv")
kable(head(datos))
X nombre paterno materno genero edad entidad
1 ALFONSO ALBERTO Y ALONZO TEXON M 48 Puebla
2 ANGEL ARMANDO TEPATO VEYNA M 49 Chihuahua
3 J. MATILDE ZAMORANO MADUEÑO M 28 Aguascalientes
4 OSCAR GABRIEL MACEGOZA GERMES M 40 Zacatecas
5 PEDRO ROBERTO ARELLANES GURRION M 31 Colima
6 ISRAEL ANTONIO BUENAVENTURA PALOMO M 42 Colima 
kable(head(datos))
X nombre paterno materno genero edad entidad
1 ALFONSO ALBERTO Y ALONZO TEXON M 48 Puebla
2 ANGEL ARMANDO TEPATO VEYNA M 49 Chihuahua
3 J. MATILDE ZAMORANO MADUEÑO M 28 Aguascalientes
4 OSCAR GABRIEL MACEGOZA GERMES M 40 Zacatecas
5 PEDRO ROBERTO ARELLANES GURRION M 31 Colima
6 ISRAEL ANTONIO BUENAVENTURA PALOMO M 42 Colima

Estadísticos Descriptivos

summary(datos)
##        X                   nombre          paterno             materno    
##  Min.   :    1   EDER JAIR    :   6   JAUREZ   :   7   MOYO        :   7  
##  1st Qu.: 2501   PEDRO ROMAN  :   6   NORIS    :   7   OLIVERA     :   7  
##  Median : 5000   ALBERTO A    :   5   SOBERANEZ:   7   TZEL        :   7  
##  Mean   : 5000   DAVID ERNESTO:   5   VON      :   7   ARISPURO    :   6  
##  3rd Qu.: 7500   EDEN         :   5   AGUSTIN  :   6   CHIMALPOPOCA:   6  
##  Max.   :10000   FRANCISC     :   5   ALMARAS  :   6   CRISOSTOMO  :   6  
##                  (Other)      :9968   (Other)  :9960   (Other)     :9961  
##  genero        edad                  entidad    
##  F:5200   Min.   :18.00   Sonora         : 342  
##  M:4800   1st Qu.:28.00   México         : 333  
##           Median :39.00   Quintana Roo   : 333  
##           Mean   :38.99   Chiapas        : 332  
##           3rd Qu.:50.00   Baja California: 331  
##           Max.   :60.00   Jalisco        : 330  
##                           (Other)        :7999

Muestreo aleatorio simple

N<-nrow(datos)# Va a ser la Población de 10000
n<-15
set.seed(2020)
muestra<-sample(1:N,n,replace=FALSE)
muestra
##  [1] 9628 9452 7767 8920 4417 8465 9380  170 7878  945 4992 2602 3062 1053 5104
muestraSimple.Datos <-datos[muestra,]  #Selecciona las filas
kable(muestraSimple.Datos)
X nombre paterno materno genero edad entidad
9628 9628 HAYDE GUADALUPE MOGOLLAN FAVILA F 45 Guerrero
9452 9452 ISABEL CRISTI LINAS ESTEVES F 35 Ciudad de México
7767 7767 MARIA SOC XIU ROBLERO F 55 Sonora
8920 8920 CYNTHIA JUDITH COLESIO ARTIGAS F 33 Guerrero
4417 4417 ALEXANDRO MELCHOR FELIPILLO M 41 Oaxaca
8465 8465 ALMA JANET EUSTAQUIO AGUILUZ F 48 Tabasco
9380 9380 DIANA ROCIO QUI ZERMENO F 37 Chihuahua
170 170 HERBEY ESCUTIA REMENTERIA M 60 Jalisco
7878 7878 MARIA AGUEDA TEPANCAL TOSTADO F 57 Zacatecas
945 945 ALBERTO JESUS FLOREAN CAZARIN M 22 Durango
4992 4992 NEYVI MARURE PORTILLO F 31 Hidalgo
2602 2602 FRANCISCO JULIAN OLIVARES PLOMOSO M 50 Michoacán de Ocampo
3062 3062 JOSE DE LUJAN MANRIQUE M 52 Baja California Sur
1053 1053 FERNEL Y CANUL CANAS M 27 Yucatán
5104 5104 YESENIA AZCORRA BERMEJO F 44 Aguascalientes

Muestreo aleatorio sistematizado

Selecciona un punto aleatorio de inicio y posteriormente se elige ca k-ésimo miembro de la población

N<-nrow(datos)# La población real es 10000

muestra<-seq(from=37,to = N,by=60)
muestra
##   [1]   37   97  157  217  277  337  397  457  517  577  637  697  757  817  877
##  [16]  937  997 1057 1117 1177 1237 1297 1357 1417 1477 1537 1597 1657 1717 1777
##  [31] 1837 1897 1957 2017 2077 2137 2197 2257 2317 2377 2437 2497 2557 2617 2677
##  [46] 2737 2797 2857 2917 2977 3037 3097 3157 3217 3277 3337 3397 3457 3517 3577
##  [61] 3637 3697 3757 3817 3877 3937 3997 4057 4117 4177 4237 4297 4357 4417 4477
##  [76] 4537 4597 4657 4717 4777 4837 4897 4957 5017 5077 5137 5197 5257 5317 5377
##  [91] 5437 5497 5557 5617 5677 5737 5797 5857 5917 5977 6037 6097 6157 6217 6277
## [106] 6337 6397 6457 6517 6577 6637 6697 6757 6817 6877 6937 6997 7057 7117 7177
## [121] 7237 7297 7357 7417 7477 7537 7597 7657 7717 7777 7837 7897 7957 8017 8077
## [136] 8137 8197 8257 8317 8377 8437 8497 8557 8617 8677 8737 8797 8857 8917 8977
## [151] 9037 9097 9157 9217 9277 9337 9397 9457 9517 9577 9637 9697 9757 9817 9877
## [166] 9937 9997
MuestraSistematizada<-datos[muestra,]   # [Filas,Columnas]
kable(MuestraSistematizada)
X nombre paterno materno genero edad entidad
37 37 RAUL ROBERTO TIERRA RAMÍREZ M 51 Colima
97 97 ANICETO AZNAR GERONIMO M 29 Sonora
157 157 MARIO GILBERTO MONTES DE OCA SOUZA M 45 Nuevo León
217 217 CARLOS MIGUEL NOVELO AVENDAÏ¿½O M 38 Tlaxcala
277 277 MARCOS JOSE CITAL LLERENA M 33 Chiapas
337 337 ISRAEL PASILLAS PE!ALOZA M 49 Puebla
397 397 FRANCISCO AARON TEXIS LAZALDE M 41 Chihuahua
457 457 GUSTAVO DE JESUS PAREDEZ MIGUELES M 31 Baja California Sur
517 517 HAMLET TEXIS DE ELIGIO M 52 Aguascalientes
577 577 JOSE FRANCISCO ZI LESCIEUR M 32 Oaxaca
637 637 JESUS ERASMO BAYARDO SUNZA M 43 Quintana Roo
697 697 OSCAR FEDERICO CANIZALES GABIÑA M 58 Baja California Sur
757 757 ARTURO FERNANDO COVARRUBIAS CADEZA M 25 Tlaxcala
817 817 JOSE FABIAN LICERIO ANCHEVIDA M 39 Hidalgo
877 877 OSMIN CASAUX ROMERO M 23 Nuevo León
937 937 EDUARDO HUMBERTO MAZARI CORONADO M 53 Baja California Sur
997 997 VICTOR FELIPE COHETO MANOATL M 39 Chiapas
1057 1057 TOMAS ROGELIO FRUTERO MATIAZ M 53 Tabasco
1117 1117 AUSENCIO VERDINES AMARAL M 45 Baja California Sur
1177 1177 JORGE MIGUEL LUISA CHI M 36 Campeche
1237 1237 FRANCISCO ELIAS ZUMARAN UNDA M 27 Baja California Sur
1297 1297 JOSE ALEXANDER ECHEVARRIA ALVA M 57 Jalisco
1357 1357 CARLOS EMMANUEL PAULINO LLERA M 57 Sinaloa
1417 1417 JOSE CAMILO HUIZAR TEUTLI M 59 Jalisco
1477 1477 ANDRES GUADALUPE MARTAGON GAVARAIN M 33 Quintana Roo
1537 1537 MONICO REMBAO ATONAL M 40 Nuevo León
1597 1597 SERGIO ROMAN GARDUNO DEL PUERTO M 57 Baja California Sur
1657 1657 YSIDRO BERUMEN MAJALCA M 24 Tamaulipas
1717 1717 WILLIAM YEPEZ POLANCO M 34 Puebla
1777 1777 UZIEL BARDALES ZEMPOALTECATL M 28 Ciudad de México
1837 1837 HECTOR SANTIAGO MAGALLAN LEDESMA M 33 Nayarit
1897 1897 JESUS ADAN RAYOS HAROS M 53 Morelos
1957 1957 ALFONSO ARMANDO DE LA PE%A RAVELL M 37 Nuevo León
2017 2017 MANUEL ALFONSO MONRROY ESPINA M 59 Baja California Sur
2077 2077 PEDRO FERNANDO YLLESCAS CALTZONTZIN M 21 Chiapas
2137 2137 ABUNDIO LARIOS GAZCA M 23 Nuevo León
2197 2197 RITO GASCON SALDA%A M 20 Nayarit
2257 2257 MARCOS MANUEL BIZARRON ASTIVIA M 27 Tabasco
2317 2317 JESUS ANSELMO CARMONA ASTURIANO M 36 Aguascalientes
2377 2377 J DE JESUS CAPI SEGUNDO M 58 Sinaloa
2437 2437 OMAR EDEL XANTZIN OLIN M 41 Michoacán de Ocampo
2497 2497 JORGE IGNACIO PILOTZI Y M 50 Michoacán de Ocampo
2557 2557 AGAPITO NACIANCENO VEGA M 18 Zacatecas
2617 2617 GUILLERMO ARTURO PEREDA FIELDS M 23 Veracruz de Ignacio de la Llave
2677 2677 JUAN OCTAVIO BERUMEN SEDENO M 57 Quintana Roo
2737 2737 HELIO RUELAS BASILIO M 33 Tlaxcala
2797 2797 FORTUNATO SELVAN TLILAYATZI M 29 Puebla
2857 2857 NESTOR ALEJANDRO YE FILERIO M 51 Ciudad de México
2917 2917 JUAN JOSE GUADALUPE MEDINA OCHOA M 39 Morelos
2977 2977 FRANCISCO ROMAN VENEROSO CASANGO M 34 Guerrero
3037 3037 GUADALUPE CANTARELL RUBI M 21 Hidalgo
3097 3097 ENRIQUE ARTURO ROCHE MATIAZ M 55 Morelos
3157 3157 LAURO HURTADO AMEZCUA M 33 Morelos
3217 3217 JOSE RITO TEPANGO MATURIN M 46 Morelos
3277 3277 CARLOS VICENTE SARINANA BERSOZA M 23 Campeche
3337 3337 JESUS FRANCISCO DE LOS REYES TEPANCAL M 47 Nayarit
3397 3397 GERALDO TOVILLA HARRELL M 31 Aguascalientes
3457 3457 JOSE OSCAR GARAY JIJON M 20 Jalisco
3517 3517 HUGO ULISES ADAME SALAYA M 42 Nayarit
3577 3577 JAIME DANIEL MONTERROSAS CEN M 37 Chiapas
3637 3637 RAUL ALFREDO CUAYAHUITL OCTAVIANO M 33 Chiapas
3697 3697 LADISLAO VILLASALDO AHUEJOTE M 32 Zacatecas
3757 3757 GIOVANNY YA%EZ VISCA M 43 Colima
3817 3817 CESAR ALONSO XOXOCOTLA MARIANITO M 32 Guanajuato
3877 3877 CHRISTIAN JESUS TERRERO MELGOZA M 24 Quintana Roo
3937 3937 JOSE BERNABE ECHARTEA CHAVERO M 18 Baja California Sur
3997 3997 TEODOMIRO CANUL ESTALA M 60 Michoacán de Ocampo
4057 4057 FELIX ARMANDO VILLA CECILIA M 39 Guanajuato
4117 4117 JOAQUIN JAVIER CARDOSO AY M 59 Sinaloa
4177 4177 TERESO DECELIS MONTAN M 27 Hidalgo
4237 4237 ANGEL ISRAEL CAMERAS ALTA M 52 Colima
4297 4297 REINALDO NIEVES MONCIVAIS M 23 Guanajuato
4357 4357 AMAURY PE#A DE REZA M 32 San Luis Potosí
4417 4417 ALEXANDRO MELCHOR FELIPILLO M 41 Oaxaca
4477 4477 JUAN FIDEL QUINTAL TUXPEÑO M 25 Zacatecas
4537 4537 RICARDO RENE CARAVANTES LIZARRARAS M 55 Guanajuato
4597 4597 EDGAR RUBEN GARAY ARANGURE M 46 Campeche
4657 4657 RAMIRO CATAÑO BARON M 32 Tlaxcala
4717 4717 ANGEL DAVID BOONE MURATALLA M 41 Ciudad de México
4777 4777 JAVIER RAFAEL MADRIGALES BENDITO M 45 Hidalgo
4837 4837 NALLELY GUADALUPE ANGELARES PONCE DE LEON F 26 Yucatán
4897 4897 JUDITH IVONNE ZENON SUENOS F 49 Campeche
4957 4957 ALEJANDRA NOEMI INGRAM O F 18 Veracruz de Ignacio de la Llave
5017 5017 WENDY CAROLINA ESPITIA DINORIN F 23 Puebla
5077 5077 ASTRID GUADALUPE FEREGRINO VENZOR F 27 Zacatecas
5137 5137 IRMA EDITH ARAUJO GUATEMALA F 58 México
5197 5197 DELIA YADIRA VAQUIER Y PECH F 29 Puebla
5257 5257 ALEJANDRA DEL PILAR YOC SEAÑEZ F 38 Durango
5317 5317 LOURDES PATRICIA PRADEL TRIGO F 32 Durango
5377 5377 SULEMA SENCION SCHEZ F 50 Chiapas
5437 5437 SANDRA MERCEDES DE LA CUESTA GUEREQUE F 45 Chiapas
5497 5497 IVONNE ALEJANDRA ACU#A MU?OZ F 52 Puebla
5557 5557 ANGELICA ALEJANDRA CASAVANTES TEPETLA F 21 Quintana Roo
5617 5617 NORMA SOFIA ELIAS SANGEADO F 36 Chiapas
5677 5677 DIANA DEL ROSARIO TECUATL SENCION F 54 Querétaro
5737 5737 MARIA BERNARDA COMONFORT SALAYA F 25 Puebla
5797 5797 CARLA ADRIANA RENOVA BARRUETA F 34 Ciudad de México
5857 5857 ELVIA GLORIA TURRENT HUICOZA F 29 Veracruz de Ignacio de la Llave
5917 5917 MARIA TERESA DE JESUS ROUZAUD YERBES F 29 Baja California
5977 5977 NADIA CHI BARCELOS F 52 Tlaxcala
6037 6037 MARIA SANDRA LUZ PEDRERO TETATZIN F 49 Guerrero
6097 6097 ZOILA FLOR FORTIZ GENARO F 52 Tlaxcala
6157 6157 MARIA ENRIQUE CREANO REBELES F 48 Nayarit
6217 6217 BERENICE ALEJANDRA BURELO GERVASIO F 51 Chihuahua
6277 6277 MARIA DEL CA NANDUCA TOACHE F 46 Durango
6337 6337 LAURA NAYELI MOTE ESCORCIA F 43 Colima
6397 6397 FRANCISCA MARISOL ANDALCO CAMEZ F 30 Tlaxcala
6457 6457 SARA NELLY DE ROSAS PEÑAFLOR F 50 Coahuila de Zaragoza
6517 6517 M JESUS LEOVIGILDO BUTANDA F 31 Nuevo León
6577 6577 MARIA ANGELINA VON IVAL F 34 Baja California Sur
6637 6637 FELIPA NERI COL MULATO F 38 Aguascalientes
6697 6697 FRANCISCO GÓMEZ SERAFIN F 35 Aguascalientes
6757 6757 ALBA SUSANA TETATZIN GASTALDI F 47 Baja California
6817 6817 HILDA GABRIELA FAJARDO DE VELASCO F 45 Baja California
6877 6877 MARGARITA CONCEPCION VIVIA SIMA F 41 Durango
6937 6937 JULIA ALEJANDRA CHAVIRA NAVARRETE F 36 San Luis Potosí
6997 6997 MA CLEOTILDE GAZCON MATU F 50 Campeche
7057 7057 PATRICIA TRINIDAD SAMPEDRO ACATA F 20 Jalisco
7117 7117 ANA ENRIQUETA SEPULVEDA ANZUREZ F 30 Tamaulipas
7177 7177 ERIKA DANIELA YERA CHIMALPOPOCA F 40 Ciudad de México
7237 7237 MARIA DEL SOCORRO MELENDRES MOTTE F 49 Campeche
7297 7297 ANA CARMINA MONFIL GUATEMALA F 21 Coahuila de Zaragoza
7357 7357 MONICA OLIVIA MICHEL ZACATE F 26 Baja California
7417 7417 MARIA LUMINOSA TEODORO MELLADO F 38 Nayarit
7477 7477 GABRIELA LETICIA CASCO GUADIANA F 18 Sinaloa
7537 7537 JUANA CLAUDIA TEPOLE RODELO F 53 Morelos
7597 7597 LAURA KARINA CRISANTOS GAMBOA F 45 Quintana Roo
7657 7657 FLOR AIDE LANDIN CASTELO F 30 Puebla
7717 7717 MARIA JOVITA ORDO!EZ LEAL F 35 Aguascalientes
7777 7777 FRANCISC OCANA SOLAR F 32 Puebla
7837 7837 MARIA CONCEP PI!A YEPIZ F 23 Zacatecas
7897 7897 BLANCA OBDULIA BERNABE JAEN F 21 Morelos
7957 7957 VERONICA LOURDES DARIO AZUARA F 19 Baja California Sur
8017 8017 MARIA TERESA DE JESUS BERROSPE MATEOS F 19 Morelos
8077 8077 IRMA MIREYA Y LAGUNES MIJARES F 34 Oaxaca
8137 8137 KARINA PATRICIA MOSCOSO ANDREZ F 42 San Luis Potosí
8197 8197 MARIA TERESITA COLLOY BEDOYA F 52 Baja California
8257 8257 CLAUDIA ALICIA MILANES RENAUD F 24 Tabasco
8317 8317 MARIA GERTRUDIS CUEVA LURIA F 59 Baja California
8377 8377 NORA ALICIA TUDON ZUVIRI F 20 Sonora
8437 8437 MARIA ESTHE ESCARRAGA LAZCANO F 23 Michoacán de Ocampo
8497 8497 BLANCA ESPERANZA CAZALEZ CHAVOYA F 18 Morelos
8557 8557 LILIA ISABEL CORTINAS DIEZ F 19 Ciudad de México
8617 8617 FANNY MARIA MONTEROLA ALBARRAN F 37 Veracruz de Ignacio de la Llave
8677 8677 LUCINA ARRIOLA CIMA F 26 Yucatán
8737 8737 RITA LETICIA HORTELANO CARRERA F 30 Guerrero
8797 8797 ROCIO BEATRIZ CANSECO ARANZA F 21 Sonora
8857 8857 ROSANGEL CORTINA PERNAS F 47 Tlaxcala
8917 8917 SUSANA MARIA RODEA SANTA ANA F 22 Guerrero
8977 8977 JUDITH FABIOLA BETANCES LEE F 44 Morelos
9037 9037 ROSA CANDELARIA NANDHO FASCI F 25 Sonora
9097 9097 NAXHIELI SOBERANEZ SUASTEGUI F 60 Querétaro
9157 9157 BLANCA IMELDA DEHONOR XOXOCOTLA F 38 Durango
9217 9217 IVETTE MORRUGARES ESTEVANE F 37 Jalisco
9277 9277 ELEUTERIA DE LA PUENTE AZCARRAGA F 46 Chihuahua
9337 9337 CLAUDIA AURORA SONORA COLIS F 42 San Luis Potosí
9397 9397 LAURA SUSANA ZARATE GEORGE F 19 Veracruz de Ignacio de la Llave
9457 9457 MARTA OLIVIA GERVASIO CAYETANO F 25 Guanajuato
9517 9517 IRASEMA AGAPITO RONDERO F 18 Aguascalientes
9577 9577 BENIGNA VITALES BON F 38 Tlaxcala
9637 9637 ROSA LILA HUIPE SUSUNAGA F 39 Yucatán
9697 9697 LUCIA MARIBEL TUZ GUITRON F 50 Chihuahua
9757 9757 REYNA DEL CARMEN VALENCIANA ALCAUTER F 25 Quintana Roo
9817 9817 PALOMA SANZON PALEMONTE F 32 Veracruz de Ignacio de la Llave
9877 9877 LAURA DANIELA BALMES BREÑA F 54 Baja California
9937 9937 CLAUDIA IBET MUÐOZ ARAGONEZ F 29 Veracruz de Ignacio de la Llave
9997 9997 EUDELIA SANDRA ALTUZAR F 43 Chiapas

Muestreo aleatorio Estratificado (por grupos)

tabla.frecuencias<-data.frame(fdt_cat(x = datos$entidad))
tabla.frecuencias
##                           Category   f     rf rf...    cf  cf...
## 1                           Sonora 342 0.0342  3.42   342   3.42
## 2                           México 333 0.0333  3.33   675   6.75
## 3                     Quintana Roo 333 0.0333  3.33  1008  10.08
## 4                          Chiapas 332 0.0332  3.32  1340  13.40
## 5                  Baja California 331 0.0331  3.31  1671  16.71
## 6                          Jalisco 330 0.0330  3.30  2001  20.01
## 7                 Ciudad de México 328 0.0328  3.28  2329  23.29
## 8              Baja California Sur 327 0.0327  3.27  2656  26.56
## 9                        Zacatecas 326 0.0326  3.26  2982  29.82
## 10                      Nuevo León 325 0.0325  3.25  3307  33.07
## 11                         Sinaloa 325 0.0325  3.25  3632  36.32
## 12                          Oaxaca 323 0.0323  3.23  3955  39.55
## 13                      Guanajuato 319 0.0319  3.19  4274  42.74
## 14                       Querétaro 319 0.0319  3.19  4593  45.93
## 15                         Durango 318 0.0318  3.18  4911  49.11
## 16                        Campeche 317 0.0317  3.17  5228  52.28
## 17                       Chihuahua 314 0.0314  3.14  5542  55.42
## 18                      Tamaulipas 312 0.0312  3.12  5854  58.54
## 19                  Aguascalientes 311 0.0311  3.11  6165  61.65
## 20                         Morelos 311 0.0311  3.11  6476  64.76
## 21                        Tlaxcala 307 0.0307  3.07  6783  67.83
## 22                         Hidalgo 306 0.0306  3.06  7089  70.89
## 23            Coahuila de Zaragoza 303 0.0303  3.03  7392  73.92
## 24                        Guerrero 303 0.0303  3.03  7695  76.95
## 25             Michoacán de Ocampo 300 0.0300  3.00  7995  79.95
## 26                         Nayarit 299 0.0299  2.99  8294  82.94
## 27                         Yucatán 295 0.0295  2.95  8589  85.89
## 28                          Puebla 292 0.0292  2.92  8881  88.81
## 29                          Colima 290 0.0290  2.90  9171  91.71
## 30                 San Luis Potosí 282 0.0282  2.82  9453  94.53
## 31 Veracruz de Ignacio de la Llave 281 0.0281  2.81  9734  97.34
## 32                         Tabasco 266 0.0266  2.66 10000 100.00
colnames(tabla.frecuencias) <-c("categoria","frec","frec_rel","frec.porc.","frec.acum","frec.rel.acum")
# sample.int(datos$X,100,prob=3.51)

#muestra.Guanajuato<-sample(datos$X,weights(3.51))
#muestra.Guanajuato

Determinar muestra de 10 para tres estratos

AGUASCALIENTES

# Aguascalientes

Pob.Aguascalientes<-filter(datos,entidad=="Aguascalientes")

N<-nrow(Pob.Aguascalientes)
N
## [1] 311
n<-10

muestraAguas<-sample(1:N,n,replace=FALSE)
muestraAguas
##  [1]  93 120 232  78 206  76 176 175 308   7
muestreo.Estrati.Agu<-Pob.Aguascalientes[muestraAguas,]
muestreo.Estrati.Agu
##        X            nombre    paterno     materno genero edad        entidad
## 93  3239          GILBERTO    PENICHE  PERRUSQUIA      M   29 Aguascalientes
## 120 4056    RODRIGO ALONSO     TZAKUM      OBANDO      M   60 Aguascalientes
## 232 7242     ANA ALEJANDRA       MOYO        SMER      F   50 Aguascalientes
## 78  2899      LUIS AUGUSTO  PALESTINO       PAITA      M   26 Aguascalientes
## 206 6697         FRANCISCO      GÓMEZ     SERAFIN      F   35 Aguascalientes
## 76  2891      HECTOR MARIO         LA    CHANDOMI      M   52 Aguascalientes
## 176 5725          LUCERITO     ANGELA       SOLIZ      F   57 Aguascalientes
## 175 5624         MA. LAURA       PANI XOCHITIOTZI      F   19 Aguascalientes
## 308 9866 AURELIA GUADALUPE   FIDENCIO       BUDAR      F   48 Aguascalientes
## 7    198       JOSE SERGIO VILLASEÑOR     USCANGA      M   18 Aguascalientes

BAJA CALIFORNIA

# Baja California

Pob.bc<-filter(datos,entidad=="Baja California")

N<-nrow(Pob.bc)
N
## [1] 331
n<-10

muestrabc<-sample(1:N,n,replace=FALSE)
muestrabc
##  [1] 212 274 213  52 300 123  82 138  70 111
muestreo.Estrati.bc<-Pob.bc[muestrabc,]
muestreo.Estrati.bc
##        X           nombre    paterno    materno genero edad         entidad
## 212 6509 YESICA GUADALUPE    LEZCANO   LANDEROS      F   23 Baja California
## 274 8363     ROSA MATILDE    GUILLEN   MAGALLAN      F   28 Baja California
## 213 6574        HORTENSIA    ZENTENO    CHOLULA      F   49 Baja California
## 52  1359       LUIS OSCAR     ANGUAS     MENCIA      M   49 Baja California
## 300 9052     ELVA BEATRIZ     ZU%IGA      LIMAS      F   58 Baja California
## 123 3424     SAUL EDUARDO PARDENILLA    VAZQUES      M   39 Baja California
## 82  2272  ALBERTO ENRIQUE     AUDELO     IBAÑEZ      M   49 Baja California
## 138 3897        ROSEMBERG      PARGA BALANZARIO      M   41 Baja California
## 70  1823  ARTURO EMMANUEL      RECHY   SAMPABLO      M   33 Baja California
## 111 3170  JORGE FRANCISCO   GRADILLA  TERRIQUEZ      M   46 Baja California

DURANGO

# Aguascalientes

Pob.Dgo<-filter(datos,entidad=="Durango")

N<-nrow(Pob.Dgo)
N
## [1] 318
n<-10

muestraDgo<-sample(1:N,n,replace=FALSE)
muestraDgo
##  [1]  43 288 141 256  95  77 129 166 259 285
muestreo.Estrati.Dgo<-Pob.Dgo[muestraDgo,]
muestreo.Estrati.Dgo
##        X              nombre  paterno    materno genero edad entidad
## 43  1217         EDGAR JESUS  AGUILAR   ZAVALETA      M   44 Durango
## 288 9061       MA. ERNESTINA  BANDERA   VELEDIAZ      F   59 Durango
## 141 4615               CELIN REYNALDO    MONARCA      M   38 Durango
## 256 8196        LUZ VIRGINIA  VITINIO   CASTAÑON      F   36 Durango
## 95  3053          JOSE HIRAM    PISTE     PALAPA      M   21 Durango
## 77  2479        CARLOS VIDAL   TRAMPE    GAMUNDI      M   19 Durango
## 129 4085        J. FRANCISCO   LAYNES   ARTALEJO      M   27 Durango
## 166 5364              ZAYURI  GAXIOLA DE LA PE%A      F   53 Durango
## 259 8254 LETICIA DEL ROSARIO    PONCE  MONCIVAIS      F   23 Durango
## 285 9019            ADELAIDA   MATIAS        XIX      F   57 Durango