“Indicadores de Salud, Desarrollo Infantil Temprano y Nutrición para la Primera Infancia”

Reto 3A

Diseñar un programa de educación parental a partir de evaluar las consecuencias que tienen en el desarrollo cognitivo de las niñas y niños, las acciones de crianza respetuosa en Nuevo León.

bdsucia <- read.csv("/Users/araquezada/Documents/Tec/7mo Semestre/Analítica para Negocios/Modulo 2/Encuesta.csv")

Contexto

La secretaría de Igualdad e Inclusión, fundada el 04 de octubre del 2021, es la dependencia, responsable de coordinar, conducir e implementar la política social en el Estado, teniendo como objetivo garantizar el cumplimiento de los derechos sociales de todas las personas, como eje de igualdad e inclusión, a través de las condiciones necesarias para el entorno y el desarrollo de las capacidades de los sectores en condiciones de vulnerabilidad.

Uno de los proyectos de la Secretaría son los programas parentales, en este reto, se pretende diseñar un programa de educación parental a partir de evaluar las consecuencias que tienen en el desarrollo de las infancias las acciones de crianza respetuosa en Nuevo León.

library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(ggplot2)
library("RColorBrewer")
library("wordcloud")
library("wordcloud2")
library("NLP")
## 
## Attaching package: 'NLP'
## The following object is masked from 'package:ggplot2':
## 
##     annotate
library("tm")
library(patchwork)
bd <-select(bdsucia,"desc_mun","edad","sexo","meses","m0102","m0107c","m0108","m0110","m0111a","m0112b","m0112e","m0112f","m0112h","m0112i","m0112j","m0112k","m0113","m0115","m0116","m0117","m0201","M0203A","M0203B","m0203esp","m0319","m0403a","m0403b","m0405a","m0405b","m0405c","m0405d","m0405e","m0405f","m0405g" ,"m0405h","m0405i","m0405j","m0405k","m0406","m0501","m0535","m0801","m0808","m0916")
summary(bd)
##    desc_mun              edad           sexo               meses       
##  Length:841         Min.   :0.000   Length:841         Min.   : 0.000  
##  Class :character   1st Qu.:1.000   Class :character   1st Qu.: 2.000  
##  Mode  :character   Median :2.000   Mode  :character   Median : 6.000  
##                     Mean   :2.136                      Mean   : 5.585  
##                     3rd Qu.:3.000                      3rd Qu.: 9.000  
##                     Max.   :4.000                      Max.   :11.000  
##                                                                        
##     m0102              m0107c             m0108               m0110      
##  Length:841         Length:841         Length:841         Min.   : 0.00  
##  Class :character   Class :character   Class :character   1st Qu.: 3.00  
##  Mode  :character   Mode  :character   Mode  :character   Median : 5.00  
##                                                           Mean   :15.73  
##                                                           3rd Qu.:12.00  
##                                                           Max.   :99.00  
##                                                                          
##     m0111a             m0112b             m0112e             m0112f         
##  Length:841         Length:841         Length:841         Length:841        
##  Class :character   Class :character   Class :character   Class :character  
##  Mode  :character   Mode  :character   Mode  :character   Mode  :character  
##                                                                             
##                                                                             
##                                                                             
##                                                                             
##     m0112h             m0112i             m0112j             m0112k         
##  Length:841         Length:841         Length:841         Length:841        
##  Class :character   Class :character   Class :character   Class :character  
##  Mode  :character   Mode  :character   Mode  :character   Mode  :character  
##                                                                             
##                                                                             
##                                                                             
##                                                                             
##     m0113              m0115              m0116              m0117          
##  Length:841         Length:841         Length:841         Length:841        
##  Class :character   Class :character   Class :character   Class :character  
##  Mode  :character   Mode  :character   Mode  :character   Mode  :character  
##                                                                             
##                                                                             
##                                                                             
##                                                                             
##     m0201              M0203A             M0203B            m0203esp        
##  Length:841         Length:841         Length:841         Length:841        
##  Class :character   Class :character   Class :character   Class :character  
##  Mode  :character   Mode  :character   Mode  :character   Mode  :character  
##                                                                             
##                                                                             
##                                                                             
##                                                                             
##     m0319               m0403a           m0403b          m0405a         
##  Length:841         Min.   :0.0000   Min.   :0.0000   Length:841        
##  Class :character   1st Qu.:0.0000   1st Qu.:0.0000   Class :character  
##  Mode  :character   Median :0.0000   Median :0.0000   Mode  :character  
##                     Mean   :0.3674   Mean   :0.6278                     
##                     3rd Qu.:0.0000   3rd Qu.:0.0000                     
##                     Max.   :8.0000   Max.   :8.0000                     
##                                                                         
##     m0405b             m0405c             m0405d             m0405e         
##  Length:841         Length:841         Length:841         Length:841        
##  Class :character   Class :character   Class :character   Class :character  
##  Mode  :character   Mode  :character   Mode  :character   Mode  :character  
##                                                                             
##                                                                             
##                                                                             
##                                                                             
##     m0405f             m0405g             m0405h             m0405i         
##  Length:841         Length:841         Length:841         Length:841        
##  Class :character   Class :character   Class :character   Class :character  
##  Mode  :character   Mode  :character   Mode  :character   Mode  :character  
##                                                                             
##                                                                             
##                                                                             
##                                                                             
##     m0405j             m0405k             m0406              m0501          
##  Length:841         Length:841         Length:841         Length:841        
##  Class :character   Class :character   Class :character   Class :character  
##  Mode  :character   Mode  :character   Mode  :character   Mode  :character  
##                                                                             
##                                                                             
##                                                                             
##                                                                             
##      m0535           m0801              m0808              m0916          
##  Min.   :0.0000   Length:841         Length:841         Length:841        
##  1st Qu.:0.0000   Class :character   Class :character   Class :character  
##  Median :0.0000   Mode  :character   Mode  :character   Mode  :character  
##  Mean   :0.4244                                                           
##  3rd Qu.:1.0000                                                           
##  Max.   :9.0000                                                           
##  NA's   :636
count(bd, desc_mun,sort = TRUE)
##                        desc_mun   n
## 1                 039 MONTERREY 154
## 2                    018 GARCÍA 134
## 3                    031 JUÁREZ 103
## 4          021 GENERAL ESCOBEDO  86
## 5            048 SANTA CATARINA  71
## 6                   006 APODACA  66
## 7                 026 GUADALUPE  51
## 8                 041 PESQUERÍA  50
## 9         012 CIÉNEGA DE FLORES  25
## 10 046 SAN NICOLÁS DE LOS GARZA  23
## 11           025 GENERAL ZUAZUA  22
## 12             038 MONTEMORELOS  22
## 13          044 SABINAS HIDALGO   8
## 14        009 CADEREYTA JIMÉNEZ   7
## 15                  047 HIDALGO   5
## 16                007 ARAMBERRI   4
## 17      032 LAMPAZOS DE NARANJO   4
## 18                 049 SANTIAGO   4
## 19          016 DOCTOR GONZÁLEZ   2
count(bd, edad,sort = TRUE)
##   edad   n
## 1    3 199
## 2    2 180
## 3    4 177
## 4    0 154
## 5    1 131
count(bd, sexo,sort = TRUE)
##     sexo   n
## 1  Mujer 433
## 2 Hombre 408
count(bd, meses,sort = TRUE)
##    meses  n
## 1     11 83
## 2      1 80
## 3      8 78
## 4      6 76
## 5      0 71
## 6      9 70
## 7     10 69
## 8      2 67
## 9      4 65
## 10     3 63
## 11     7 63
## 12     5 56
count(bd, m0102,sort = TRUE)
##           m0102   n
## 1    Secundaria 403
## 2  Preparatoria 204
## 3  Licenciatura  86
## 4      Primaria  84
## 5   Estudios té  27
## 6       Ninguno  21
## 7                 6
## 8    Preescolar   5
## 9      Maestría   3
## 10      No sabe   1
## 11 Normal de li   1
count(bd, m0107c,sort = TRUE)
##   m0107c   n
## 1        556
## 2     Sí 180
## 3     No 103
## 4    N/S   2
count(bd, m0108,sort = TRUE)
##   m0108   n
## 1       556
## 2    Sí 258
## 3    No  27
count(bd, m0110,sort = TRUE)
##    m0110   n
## 1     66 128
## 2      3 126
## 3     12 119
## 4      2  88
## 5      4  63
## 6      1  57
## 7      6  49
## 8      0  48
## 9      5  40
## 10     9  39
## 11     8  25
## 12     7  24
## 13    10  15
## 14    99   8
## 15    11   3
## 16    15   2
## 17    20   2
## 18    88   2
## 19    13   1
## 20    16   1
## 21    24   1
count(bd, m0111a,sort = TRUE)
##        m0111a   n
## 1        2022 303
## 2             179
## 3        2021 135
## 4     No sabe 109
## 5        2020  50
## 6        2019  29
## 7 No responde  24
## 8        2018   9
## 9 Nunca fue a   3
count(bd, m0112b,sort = TRUE)
##        m0112b   n
## 1          Sí 552
## 2          No 277
## 3     No sabe  11
## 4 No responde   1
count(bd, m0112e,sort = TRUE)
##        m0112e   n
## 1          Sí 557
## 2          No 276
## 3     No sabe   7
## 4 No responde   1
count(bd, m0112f,sort = TRUE)
##        m0112f   n
## 1          Sí 515
## 2          No 320
## 3     No sabe   5
## 4 No responde   1
count(bd, m0112h,sort = TRUE)
##        m0112h   n
## 1          Sí 591
## 2          No 247
## 3     No sabe   2
## 4 No responde   1
count(bd, m0112i,sort = TRUE)
##        m0112i   n
## 1          Sí 534
## 2          No 297
## 3     No sabe   8
## 4 No responde   2
count(bd, m0112j,sort = TRUE)
##        m0112j   n
## 1          Sí 429
## 2          No 404
## 3     No sabe   7
## 4 No responde   1
count(bd, m0112k,sort = TRUE)
##        m0112k   n
## 1          Sí 430
## 2          No 409
## 3 No responde   1
## 4     No sabe   1
count(bd, m0113,sort = TRUE)
##         m0113   n
## 1          Sí 448
## 2          No 385
## 3     No sabe   5
## 4 No responde   3
count(bd, m0115,sort = TRUE)
##         m0115   n
## 1          No 667
## 2          Sí 168
## 3 No responde   6
count(bd, m0116,sort = TRUE)
##         m0116   n
## 1             673
## 2          Sí 109
## 3          No  57
## 4 No responde   2
count(bd, m0117,sort = TRUE)
##          m0117   n
## 1              732
## 2 Sin problema  99
## 3  Algún probl   8
## 4 Problemas im   2
count(bd, m0201,sort = TRUE)
##         m0201   n
## 1          No 441
## 2             376
## 3          Sí  22
## 4 No responde   2
count(bd, M0203A,sort = TRUE)
##         M0203A   n
## 1              398
## 2  Está muy pe 209
## 3   Está mejor 145
## 4  No lo puedo  41
## 5 Otro (especi  29
## 6 No tengo tie   9
## 7  Está muy le   8
## 8  No responde   2
count(bd, M0203B,sort = TRUE)
##         M0203B   n
## 1              804
## 2  Está muy pe  31
## 3   Está mejor   2
## 4 Otro (especi   2
## 5  Está muy le   1
## 6 No tengo tie   1
count(bd, m0203esp,sort = TRUE)
##                                             m0203esp   n
## 1                                                    810
## 2                        A0ENAS LLEGARON A LA CIUDAD   1
## 3                 ACABAN DE LLEGAR Y NO HAN REVISADO   1
## 4              APENAS LLEGARON Y NO CONOCEN EL LUGAR   1
## 5                               CAMBIO DE RESIDENCIA   1
## 6         DESCONFIANA DE PAPÁ ACERCA DE LA GUARDERÍA   1
## 7                                       DESCONFIANZA   1
## 8                                  DESCONOCE DE ELLO   1
## 9                EL ESPOSO NO QUIERE PERO LA MAMÁ SI   1
## 10                                     ELLA LO CUIDA   1
## 11     ELLA LO CUIDA Y REALIZA ESTIMULACION TEMPRANA   1
## 12                          EN PROCESO DE INSCRPCION   1
## 13                          ES MUY APEGADO A LA MAMÁ   1
## 14                                FALTA DE CONFIANZA   1
## 15               LA ESCUELA NO LA ADMITE POR LA EDAD   1
## 16                                  LA MAMA LA CUIDA   1
## 17 LE PISEN QUE VAYA AL BAÑO SOLO Y TODAVIA NO PUEDE   1
## 18                             NO CUENTA CON LA EDAD   1
## 19                                  NO HABIA LUGARES   1
## 20                                    NO HAY NINGUNO   1
## 21                            NO LE INFORMES DE ELLO   1
## 22                                       NO LO OCUPA   1
## 23                          NO PUEDE IR SOLO AL BAÑO   1
## 24                          NO SABE A DONDE LLEVARLO   1
## 25                       NO SABE SI LO VAN A ACEPTAR   1
## 26     NO SABIA QUE EXISTEN LAS ESTANCIAS INFANTILES   1
## 27                             NO TIENE CONOCIMIENTO   1
## 28                     POR PROBLEMAS DE LA GUARDERÍA   1
## 29                                      PORQUE LLORA   1
## 30                         PORQUE NO VA AL BAÑO SOLO   1
## 31                                        SE ENFERMO   1
## 32                      TIENE A ALGUIEN QUE LA CUIDE   1
count(bd, m0319,sort = TRUE)
##          m0319   n
## 1        Nunca 345
## 2              285
## 3 Algunas vece 153
## 4 Semanalmente  30
## 5  Diariamente  13
## 6 Mensualmente  13
## 7      No sabe   2
count(bd, m0403a,sort = TRUE)
##   m0403a   n
## 1      0 782
## 2      8  26
## 3      1  12
## 4      5  10
## 5      2   5
## 6      3   2
## 7      6   2
## 8      4   1
## 9      7   1
count(bd, m0403b,sort = TRUE)
##   m0403b   n
## 1      0 746
## 2      8  54
## 3      1  19
## 4      2   8
## 5      5   8
## 6      3   5
## 7      6   1
count(bd, m0405a,sort = TRUE)
##   m0405a   n
## 1     Sí 389
## 2     No 298
## 3        154
count(bd, m0405b,sort = TRUE)
##        m0405b   n
## 1          Sí 554
## 2             154
## 3          No 131
## 4 No responde   2
count(bd, m0405c,sort = TRUE)
##        m0405c   n
## 1          No 644
## 2             154
## 3          Sí  42
## 4 No responde   1
count(bd, m0405d,sort = TRUE)
##   m0405d   n
## 1     No 485
## 2     Sí 202
## 3        154
count(bd, m0405e,sort = TRUE)
##   m0405e   n
## 1     No 398
## 2     Sí 289
## 3        154
count(bd, m0405f,sort = TRUE)
##   m0405f   n
## 1     No 573
## 2        154
## 3     Sí 114
count(bd, m0405g,sort = TRUE)
##        m0405g   n
## 1          No 662
## 2             154
## 3          Sí  23
## 4 No responde   2
count(bd, m0405h,sort = TRUE)
##        m0405h   n
## 1          No 662
## 2             154
## 3          Sí  24
## 4 No responde   1
count(bd, m0405i,sort = TRUE)
##   m0405i   n
## 1     No 675
## 2        154
## 3     Sí  12
count(bd, m0405j,sort = TRUE)
##   m0405j   n
## 1     No 641
## 2        154
## 3     Sí  46
count(bd, m0405k,sort = TRUE)
##        m0405k   n
## 1          No 681
## 2             154
## 3          Sí   5
## 4 No responde   1
count(bd, m0406,sort = TRUE)
##          m0406   n
## 1           No 627
## 2              154
## 3           Sí  54
## 4  No responde   3
## 5 No sabe/No o   3
count(bd, m0501,sort = TRUE)
##          m0501   n
## 1              636
## 2 Instituto Me  86
## 3 Centro de Sa  71
## 4  Consultorio  21
## 5 Otros privad  12
## 6 Otro (especi   6
## 7 IMSS Bienest   5
## 8 ISSSTE/ISSST   3
## 9  Otros públi   1
count(bd, m0535,sort = TRUE)
##   m0535   n
## 1    NA 636
## 2     0 148
## 3     1  48
## 4     2   4
## 5     3   2
## 6     9   2
## 7     7   1
count(bd, m0801,sort = TRUE)
##   m0801   n
## 1       636
## 2    No 193
## 3    Sí  12
count(bd, m0808,sort = TRUE)
##          m0808   n
## 1              829
## 2  Ningún prob  10
## 3 Otra limitac   2
count(bd, m0916,sort = TRUE)
##          m0916   n
## 1        NUNCA 348
## 2              285
## 3 CON LA MISMA 169
## 4  MÁS FRECUEN  29
## 5  MUCHA MÁS F  10
bd[bd==""] <- NA
sum(is.na(bd))
## [1] 10245
sapply(bd, function(x) sum(is.na(x)))
## desc_mun     edad     sexo    meses    m0102   m0107c    m0108    m0110 
##        0        0        0        0        6      556      556        0 
##   m0111a   m0112b   m0112e   m0112f   m0112h   m0112i   m0112j   m0112k 
##      179        0        0        0        0        0        0        0 
##    m0113    m0115    m0116    m0117    m0201   M0203A   M0203B m0203esp 
##        0        0      673      732      376      398      804      810 
##    m0319   m0403a   m0403b   m0405a   m0405b   m0405c   m0405d   m0405e 
##      285        0        0      154      154      154      154      154 
##   m0405f   m0405g   m0405h   m0405i   m0405j   m0405k    m0406    m0501 
##      154      154      154      154      154      154      154      636 
##    m0535    m0801    m0808    m0916 
##      636      636      829      285
write.csv(bd, file="bdretolimpia.csv", row.names = FALSE)
bd %>%                       
  group_by(desc_mun) %>%
  tally()
## # A tibble: 19 × 2
##    desc_mun                         n
##    <chr>                        <int>
##  1 006 APODACA                     66
##  2 007 ARAMBERRI                    4
##  3 009 CADEREYTA JIMÉNEZ            7
##  4 012 CIÉNEGA DE FLORES           25
##  5 016 DOCTOR GONZÁLEZ              2
##  6 018 GARCÍA                     134
##  7 021 GENERAL ESCOBEDO            86
##  8 025 GENERAL ZUAZUA              22
##  9 026 GUADALUPE                   51
## 10 031 JUÁREZ                     103
## 11 032 LAMPAZOS DE NARANJO          4
## 12 038 MONTEMORELOS                22
## 13 039 MONTERREY                  154
## 14 041 PESQUERÍA                   50
## 15 044 SABINAS HIDALGO              8
## 16 046 SAN NICOLÁS DE LOS GARZA    23
## 17 047 HIDALGO                      5
## 18 048 SANTA CATARINA              71
## 19 049 SANTIAGO                     4
bd %>%                       
  group_by(sexo) %>%        
  tally()
## # A tibble: 2 × 2
##   sexo       n
##   <chr>  <int>
## 1 Hombre   408
## 2 Mujer    433
bd %>%                       
  group_by(edad) %>%        
  tally()
## # A tibble: 5 × 2
##    edad     n
##   <int> <int>
## 1     0   154
## 2     1   131
## 3     2   180
## 4     3   199
## 5     4   177

Estadística Descriptiva

Gráfica 1 - Edad en Años por Municipio & Sexo

ggplot(bd) +
  geom_histogram (bins = 15,aes (x = edad, fill = desc_mun), color = "black") + 
  facet_grid(sexo~., scales = 'free') +
  xlab("Edad") + 
  ylab("Frecuencia") +
  ggtitle("Edad en Años por Municipio") +
  theme_minimal()

Gráfica 2 - Nivel de Estudios por Municipio

ggplot(bd, aes(m0102, fill=desc_mun)) +
  geom_bar()+
  labs(x="Nivel de estudios", y="Frecuencia")

Gráficas 3 - Información Médica Post-Parto & Estimulación de Desarrollo

ggplot(bd) + 
  geom_density(aes(x = edad, fill = m0107c), position = 'stack') + 
  facet_grid(m0113~., scales = 'free') +
  scale_fill_manual(values=c("royalblue4", "powderblue", "royalblue")) +
  xlab("Años") + 
  ylab("Información sobre Estimulación de Desarrollo") + 
  ggtitle("Información Médica Post-Parto & Estimulación de Desarrollo
Signos o síntomas de Depresión o Ansiedad Postparto") +
  theme_minimal()
## Warning: Groups with fewer than two data points have been dropped.
## Groups with fewer than two data points have been dropped.
## Groups with fewer than two data points have been dropped.
## Warning: Removed 3 rows containing missing values (`position_stack()`).

ggplot(bd, aes(m0113, fill=sexo)) +
  geom_bar()+
  labs(x= "Recibieron información sobre la estimulación del desarrollo", y="Frecuencia")

Gráficas 4 - Signos de Violencia

bdb <- ggplot(bd, aes(m0405b,)) +
  geom_bar(color = 'darkslategray', fill = 'palevioletred3') + 
  labs(x="Respuestas") +
  ylab("Cantidades") +
  ggtitle("¿Le explicaron al niño o niña por qué su comportamiento estuvo mal?") +
  theme_minimal()

bdc<- ggplot(bd, aes(m0405c,)) +
  geom_bar(color = 'darkslategray', fill = 'slateblue1') + 
  labs(x="Respuestas") +
  ylab("Cantidades") +
  ggtitle("¿Lo/la zarandearon o sacudieron?") +
  theme_minimal()

bdd <- ggplot(bd, aes(m0405d,)) +
  geom_bar(color = 'darkslategray', fill = 'slateblue3') + 
  labs(x="Respuestas") +
  ylab("Cantidades") +
  ggtitle("¿Le gritaron?") +
  theme_minimal()

bdj<- ggplot(bd, aes(m0405j,)) +
  geom_bar(color = 'darkslategray', fill = 'slateblue4') + 
  labs(x="Respuestas") +
  ylab("Cantidades") +
  ggtitle("¿Le pegaron con la mano en el brazo, en la pierna o en la mano?") +
  theme_minimal()

bdb + bdc + bdd + bdj & theme_classic()

ggplot(bd, aes(m0406,)) +
  geom_bar(color = 'darkslategray', fill = 'slateblue2') + 
    labs(x="Respuestas") +
  ylab("Cantidades") +
  ggtitle("¿Para criar o educar correctamente debe ser castigado/a físicamente?") +
  theme_minimal()

Gráfica 5 - Ausencia Parental

ggplot(bd,bins = 10,  aes(x=edad, y=m0403a, color = m0403b)) + geom_bar(stat="identity") +
  facet_wrap(~m0403b)+
  xlab("Años") + 
  ylab("Días que Estuvo Solo más de 1 Hora") + 
  ggtitle("Ausencia Parental") +
  theme_minimal()

Gráficas 6 - Consulta Médica Estando Sano

m8 <- ggplot(bd, aes(edad, fill=m0108)) + geom_bar(fill = "lightblue2") + xlab(NULL) +
  xlab("Edad") + 
  ylab("") +
  ggtitle("Visitas al Médico el Primer Año") + theme_bw()
m10 <- ggplot(data=bd, aes(edad, m0110)) + geom_point() + stat_smooth()+
  xlab("Edad")+
  ylab("Frecuencia") + 
  ggtitle("Visitas al Médico Estando Sano
          Checar Desarrollo y Crecimiento") + theme_bw()
m111a <- ggplot(bd, aes(x= edad, y=m0111a)) + geom_bar(stat="identity", fill = "lightsteelblue3")+
  xlab("Edad") + 
  ylab("") +
  ggtitle("Año de Última Consulata Niño Sano") + theme_bw()

m8 + m10 + m111a
## `geom_smooth()` using method = 'loess' and formula = 'y ~ x'

Gráfica 7 - Semana Nacional de Salud (Vitamina A)

ggplot(bd,bins = 10,  aes(x=edad, y=m0535, color = desc_mun)) + geom_bar(stat="identity") +
  facet_wrap(~desc_mun)+
  xlab("Años") + 
  ylab("Vitamina A en alguna Semana Nacional de Salud") + 
  ggtitle("Semana Nacional de Salud") +
  theme_minimal()
## Warning: Removed 636 rows containing missing values (`position_stack()`).

count(bd, m0535,sort = TRUE)
##   m0535   n
## 1    NA 636
## 2     0 148
## 3     1  48
## 4     2   4
## 5     3   2
## 6     9   2
## 7     7   1

Gráfica 8 - Relación Estado de Ánimo con Signos de Desarrollo de Violencia

ggplot(bd) +
  geom_histogram (bins = 15,aes (x = edad, fill = m0319), color = "black") + 
  facet_grid(m0916~., scales = 'free') +
  xlab("Edad") + 
  ylab("Signos de Desarrollo de Violencia en el Niño") +
  ggtitle("Relación Estádo de Ánimo con Signos de Desarrollo de Violencia") +
  theme_minimal()

Gráfica 9 - Accidentes

ggplot(bd) +
  geom_histogram (bins = 15,aes (x = edad, fill = m0801)) + 
  facet_grid(m0808~., scales = 'free') +
  xlab("Edad") + 
  ylab("Probelmas de Salud Permanentes") +
  ggtitle("Accidentes") +
  theme_minimal()

Gráficas 10 - Pruebas de Desarrollo Cognitivo, Motor y Emocional

md<- ggplot(data = bd, aes(x = m0115, y = edad)) +
  geom_boxplot(fill = "olivedrab3", color = "black") +
  labs(title = "Se le Realizaron Pruebas de Desarrollo Cognitivo, Motor y Emocional",
       x = "Frecuencia",
       y = "Edad")+
  theme_minimal()


otro <- ggplot(bd, aes(m0117,)) +
  geom_bar(color = 'darkslategray', fill = 'olivedrab4') + 
    labs(x="") +
  ylab("Frecuencia") +
  ggtitle("¿Cuál fue el resultado?") +
  theme_minimal()

md + otro

Gráficas 11 - Asiste a Algún Programa de Educación para la Primera Infancia

ggplot(bd) +
  geom_histogram (bins = 15,aes (x = edad, fill = m0201), color = "black") + 
   facet_wrap(~desc_mun, scales = 'free') +
  xlab("Edad") + 
  ylab("Asiste a Algún Programa de Educación para la Primera Infancia") +
  ggtitle("Asiste a Algún Programa de Educación para la Primera Infancia") +
  theme_minimal()

Razones
count(bd, m0203esp,sort = TRUE)
##                                             m0203esp   n
## 1                                               <NA> 810
## 2                        A0ENAS LLEGARON A LA CIUDAD   1
## 3                 ACABAN DE LLEGAR Y NO HAN REVISADO   1
## 4              APENAS LLEGARON Y NO CONOCEN EL LUGAR   1
## 5                               CAMBIO DE RESIDENCIA   1
## 6         DESCONFIANA DE PAPÁ ACERCA DE LA GUARDERÍA   1
## 7                                       DESCONFIANZA   1
## 8                                  DESCONOCE DE ELLO   1
## 9                EL ESPOSO NO QUIERE PERO LA MAMÁ SI   1
## 10                                     ELLA LO CUIDA   1
## 11     ELLA LO CUIDA Y REALIZA ESTIMULACION TEMPRANA   1
## 12                          EN PROCESO DE INSCRPCION   1
## 13                          ES MUY APEGADO A LA MAMÁ   1
## 14                                FALTA DE CONFIANZA   1
## 15               LA ESCUELA NO LA ADMITE POR LA EDAD   1
## 16                                  LA MAMA LA CUIDA   1
## 17 LE PISEN QUE VAYA AL BAÑO SOLO Y TODAVIA NO PUEDE   1
## 18                             NO CUENTA CON LA EDAD   1
## 19                                  NO HABIA LUGARES   1
## 20                                    NO HAY NINGUNO   1
## 21                            NO LE INFORMES DE ELLO   1
## 22                                       NO LO OCUPA   1
## 23                          NO PUEDE IR SOLO AL BAÑO   1
## 24                          NO SABE A DONDE LLEVARLO   1
## 25                       NO SABE SI LO VAN A ACEPTAR   1
## 26     NO SABIA QUE EXISTEN LAS ESTANCIAS INFANTILES   1
## 27                             NO TIENE CONOCIMIENTO   1
## 28                     POR PROBLEMAS DE LA GUARDERÍA   1
## 29                                      PORQUE LLORA   1
## 30                         PORQUE NO VA AL BAÑO SOLO   1
## 31                                        SE ENFERMO   1
## 32                      TIENE A ALGUIEN QUE LA CUIDE   1
LS0tCnRpdGxlOiAiUmV0byBFbnNhbnV0IgphdXRob3I6ICJSZXRvIDNBIgpkYXRlOiAiMjAyMy0wOS0wOCIKb3V0cHV0OiAKIGh0bWxfZG9jdW1lbnQ6CiAgICB0b2M6IFRSVUUKICAgIHRvY19mbG9hdDogVFJVRQogICAgY29kZV9kb3dubG9hZDogVFJVRQotLS0KCgojIyMjIyAiSW5kaWNhZG9yZXMgZGUgU2FsdWQsIERlc2Fycm9sbG8gSW5mYW50aWwgVGVtcHJhbm8geSBOdXRyaWNpw7NuIHBhcmEgbGEgUHJpbWVyYSBJbmZhbmNpYSIKCiMjIFJldG8gM0EKIyMjIyBEaXNlw7FhciB1biBwcm9ncmFtYSBkZSBlZHVjYWNpw7NuIHBhcmVudGFsIGEgcGFydGlyIGRlIGV2YWx1YXIgbGFzIGNvbnNlY3VlbmNpYXMgcXVlIHRpZW5lbiBlbiBlbCBkZXNhcnJvbGxvIGNvZ25pdGl2byBkZSBsYXMgbmnDsWFzIHkgbmnDsW9zLCBsYXMgYWNjaW9uZXMgZGUgY3JpYW56YSByZXNwZXR1b3NhIGVuIE51ZXZvIExlw7NuLgoKCmBgYHtyfQpiZHN1Y2lhIDwtIHJlYWQuY3N2KCIvVXNlcnMvYXJhcXVlemFkYS9Eb2N1bWVudHMvVGVjLzdtbyBTZW1lc3RyZS9BbmFsacyBdGljYSBwYXJhIE5lZ29jaW9zL01vZHVsbyAyL0VuY3Vlc3RhLmNzdiIpCmBgYAoKIyMgQ29udGV4dG8KTGEgc2VjcmV0YXLDrWEgZGUgSWd1YWxkYWQgZSBJbmNsdXNpw7NuLCBmdW5kYWRhIGVsIDA0IGRlIG9jdHVicmUgZGVsIDIwMjEsIGVzIGxhIGRlcGVuZGVuY2lhLCByZXNwb25zYWJsZSBkZSBjb29yZGluYXIsIGNvbmR1Y2lyIGUgaW1wbGVtZW50YXIgbGEgcG9sw610aWNhIHNvY2lhbCBlbiBlbCBFc3RhZG8sIHRlbmllbmRvIGNvbW8gb2JqZXRpdm8gZ2FyYW50aXphciBlbCBjdW1wbGltaWVudG8gZGUgbG9zIGRlcmVjaG9zIHNvY2lhbGVzIGRlIHRvZGFzIGxhcyBwZXJzb25hcywgY29tbyBlamUgZGUgaWd1YWxkYWQgZSBpbmNsdXNpw7NuLCBhIHRyYXbDqXMgZGUgbGFzIGNvbmRpY2lvbmVzIG5lY2VzYXJpYXMgcGFyYSBlbCBlbnRvcm5vIHkgZWwgZGVzYXJyb2xsbyBkZSBsYXMgY2FwYWNpZGFkZXMgZGUgbG9zIHNlY3RvcmVzIGVuIGNvbmRpY2lvbmVzIGRlIHZ1bG5lcmFiaWxpZGFkLiAKClVubyBkZSBsb3MgcHJveWVjdG9zIGRlIGxhIFNlY3JldGFyw61hIHNvbiBsb3MgcHJvZ3JhbWFzIHBhcmVudGFsZXMsIGVuIGVzdGUgcmV0bywgc2UgcHJldGVuZGUgZGlzZcOxYXIgdW4gcHJvZ3JhbWEgZGUgZWR1Y2FjacOzbiBwYXJlbnRhbCBhIHBhcnRpciBkZSBldmFsdWFyIGxhcyBjb25zZWN1ZW5jaWFzIHF1ZSB0aWVuZW4gZW4gZWwgZGVzYXJyb2xsbyBkZSBsYXMgaW5mYW5jaWFzIGxhcyBhY2Npb25lcyBkZSBjcmlhbnphIHJlc3BldHVvc2EgZW4gTnVldm8gTGXDs24uCgoKYGBge3J9CmxpYnJhcnkoZHBseXIpCmxpYnJhcnkoZ2dwbG90MikKbGlicmFyeSgiUkNvbG9yQnJld2VyIikKbGlicmFyeSgid29yZGNsb3VkIikKbGlicmFyeSgid29yZGNsb3VkMiIpCmxpYnJhcnkoIk5MUCIpCmxpYnJhcnkoInRtIikKbGlicmFyeShwYXRjaHdvcmspCmBgYAoKCmBgYHtyfQpiZCA8LXNlbGVjdChiZHN1Y2lhLCJkZXNjX211biIsImVkYWQiLCJzZXhvIiwibWVzZXMiLCJtMDEwMiIsIm0wMTA3YyIsIm0wMTA4IiwibTAxMTAiLCJtMDExMWEiLCJtMDExMmIiLCJtMDExMmUiLCJtMDExMmYiLCJtMDExMmgiLCJtMDExMmkiLCJtMDExMmoiLCJtMDExMmsiLCJtMDExMyIsIm0wMTE1IiwibTAxMTYiLCJtMDExNyIsIm0wMjAxIiwiTTAyMDNBIiwiTTAyMDNCIiwibTAyMDNlc3AiLCJtMDMxOSIsIm0wNDAzYSIsIm0wNDAzYiIsIm0wNDA1YSIsIm0wNDA1YiIsIm0wNDA1YyIsIm0wNDA1ZCIsIm0wNDA1ZSIsIm0wNDA1ZiIsIm0wNDA1ZyIJLCJtMDQwNWgiLCJtMDQwNWkiLCJtMDQwNWoiLCJtMDQwNWsiLCJtMDQwNiIsIm0wNTAxIiwibTA1MzUiLCJtMDgwMSIsIm0wODA4IiwibTA5MTYiKQpzdW1tYXJ5KGJkKQpgYGAKCmBgYHtyfQpjb3VudChiZCwgZGVzY19tdW4sc29ydCA9IFRSVUUpCmNvdW50KGJkLCBlZGFkLHNvcnQgPSBUUlVFKQpjb3VudChiZCwgc2V4byxzb3J0ID0gVFJVRSkKY291bnQoYmQsIG1lc2VzLHNvcnQgPSBUUlVFKQpjb3VudChiZCwgbTAxMDIsc29ydCA9IFRSVUUpCmNvdW50KGJkLCBtMDEwN2Msc29ydCA9IFRSVUUpCmNvdW50KGJkLCBtMDEwOCxzb3J0ID0gVFJVRSkKY291bnQoYmQsIG0wMTEwLHNvcnQgPSBUUlVFKQpjb3VudChiZCwgbTAxMTFhLHNvcnQgPSBUUlVFKQpjb3VudChiZCwgbTAxMTJiLHNvcnQgPSBUUlVFKQpjb3VudChiZCwgbTAxMTJlLHNvcnQgPSBUUlVFKQpjb3VudChiZCwgbTAxMTJmLHNvcnQgPSBUUlVFKQpjb3VudChiZCwgbTAxMTJoLHNvcnQgPSBUUlVFKQpjb3VudChiZCwgbTAxMTJpLHNvcnQgPSBUUlVFKQpjb3VudChiZCwgbTAxMTJqLHNvcnQgPSBUUlVFKQpjb3VudChiZCwgbTAxMTJrLHNvcnQgPSBUUlVFKQpjb3VudChiZCwgbTAxMTMsc29ydCA9IFRSVUUpCmNvdW50KGJkLCBtMDExNSxzb3J0ID0gVFJVRSkKY291bnQoYmQsIG0wMTE2LHNvcnQgPSBUUlVFKQpjb3VudChiZCwgbTAxMTcsc29ydCA9IFRSVUUpCmNvdW50KGJkLCBtMDIwMSxzb3J0ID0gVFJVRSkKY291bnQoYmQsIE0wMjAzQSxzb3J0ID0gVFJVRSkKY291bnQoYmQsIE0wMjAzQixzb3J0ID0gVFJVRSkKY291bnQoYmQsIG0wMjAzZXNwLHNvcnQgPSBUUlVFKQpjb3VudChiZCwgbTAzMTksc29ydCA9IFRSVUUpCmNvdW50KGJkLCBtMDQwM2Esc29ydCA9IFRSVUUpCmNvdW50KGJkLCBtMDQwM2Isc29ydCA9IFRSVUUpCmNvdW50KGJkLCBtMDQwNWEsc29ydCA9IFRSVUUpCmNvdW50KGJkLCBtMDQwNWIsc29ydCA9IFRSVUUpCmNvdW50KGJkLCBtMDQwNWMsc29ydCA9IFRSVUUpCmNvdW50KGJkLCBtMDQwNWQsc29ydCA9IFRSVUUpCmNvdW50KGJkLCBtMDQwNWUsc29ydCA9IFRSVUUpCmNvdW50KGJkLCBtMDQwNWYsc29ydCA9IFRSVUUpCmNvdW50KGJkLCBtMDQwNWcsc29ydCA9IFRSVUUpCmNvdW50KGJkLCBtMDQwNWgsc29ydCA9IFRSVUUpCmNvdW50KGJkLCBtMDQwNWksc29ydCA9IFRSVUUpCmNvdW50KGJkLCBtMDQwNWosc29ydCA9IFRSVUUpCmNvdW50KGJkLCBtMDQwNWssc29ydCA9IFRSVUUpCmNvdW50KGJkLCBtMDQwNixzb3J0ID0gVFJVRSkKY291bnQoYmQsIG0wNTAxLHNvcnQgPSBUUlVFKQpjb3VudChiZCwgbTA1MzUsc29ydCA9IFRSVUUpCmNvdW50KGJkLCBtMDgwMSxzb3J0ID0gVFJVRSkKY291bnQoYmQsIG0wODA4LHNvcnQgPSBUUlVFKQpjb3VudChiZCwgbTA5MTYsc29ydCA9IFRSVUUpCmBgYApgYGB7cn0KYmRbYmQ9PSIiXSA8LSBOQQpzdW0oaXMubmEoYmQpKQpzYXBwbHkoYmQsIGZ1bmN0aW9uKHgpIHN1bShpcy5uYSh4KSkpCgp3cml0ZS5jc3YoYmQsIGZpbGU9ImJkcmV0b2xpbXBpYS5jc3YiLCByb3cubmFtZXMgPSBGQUxTRSkKYGBgCmBgYHtyfQpiZCAlPiUgICAgICAgICAgICAgICAgICAgICAgIAogIGdyb3VwX2J5KGRlc2NfbXVuKSAlPiUKICB0YWxseSgpCmBgYAoKCmBgYHtyfQpiZCAlPiUgICAgICAgICAgICAgICAgICAgICAgIAogIGdyb3VwX2J5KHNleG8pICU+JSAgICAgICAgCiAgdGFsbHkoKQpgYGAKCmBgYHtyfQpiZCAlPiUgICAgICAgICAgICAgICAgICAgICAgIAogIGdyb3VwX2J5KGVkYWQpICU+JSAgICAgICAgCiAgdGFsbHkoKQpgYGAKCiMjIEVzdGFkw61zdGljYSBEZXNjcmlwdGl2YSAKCiMjIyBHcsOhZmljYSAxIC0gRWRhZCBlbiBBw7FvcyBwb3IgTXVuaWNpcGlvICYgU2V4bwpgYGB7cixmaWcud2lkdGg9MTAsIGZpZy5oZWlnaHQ9N30KZ2dwbG90KGJkKSArCiAgZ2VvbV9oaXN0b2dyYW0gKGJpbnMgPSAxNSxhZXMgKHggPSBlZGFkLCBmaWxsID0gZGVzY19tdW4pLCBjb2xvciA9ICJibGFjayIpICsgCiAgZmFjZXRfZ3JpZChzZXhvfi4sIHNjYWxlcyA9ICdmcmVlJykgKwogIHhsYWIoIkVkYWQiKSArIAogIHlsYWIoIkZyZWN1ZW5jaWEiKSArCiAgZ2d0aXRsZSgiRWRhZCBlbiBBw7FvcyBwb3IgTXVuaWNpcGlvIikgKwogIHRoZW1lX21pbmltYWwoKQpgYGAKCiMjIyBHcsOhZmljYSAyIC0gTml2ZWwgZGUgRXN0dWRpb3MgcG9yIE11bmljaXBpbwpgYGB7ciwgZmlnLndpZHRoPTE1LCBmaWcuaGVpZ2h0PTd9CmdncGxvdChiZCwgYWVzKG0wMTAyLCBmaWxsPWRlc2NfbXVuKSkgKwogIGdlb21fYmFyKCkrCiAgbGFicyh4PSJOaXZlbCBkZSBlc3R1ZGlvcyIsIHk9IkZyZWN1ZW5jaWEiKQpgYGAKCgojIyMgR3LDoWZpY2FzIDMgLSBJbmZvcm1hY2nDs24gTcOpZGljYSBQb3N0LVBhcnRvICYgRXN0aW11bGFjacOzbiBkZSBEZXNhcnJvbGxvCgpgYGB7cn0KZ2dwbG90KGJkKSArIAogIGdlb21fZGVuc2l0eShhZXMoeCA9IGVkYWQsIGZpbGwgPSBtMDEwN2MpLCBwb3NpdGlvbiA9ICdzdGFjaycpICsgCiAgZmFjZXRfZ3JpZChtMDExM34uLCBzY2FsZXMgPSAnZnJlZScpICsKICBzY2FsZV9maWxsX21hbnVhbCh2YWx1ZXM9Yygicm95YWxibHVlNCIsICJwb3dkZXJibHVlIiwgInJveWFsYmx1ZSIpKSArCiAgeGxhYigiQcOxb3MiKSArIAogIHlsYWIoIkluZm9ybWFjacOzbiBzb2JyZSBFc3RpbXVsYWNpw7NuIGRlIERlc2Fycm9sbG8iKSArIAogIGdndGl0bGUoIkluZm9ybWFjacOzbiBNw6lkaWNhIFBvc3QtUGFydG8gJiBFc3RpbXVsYWNpw7NuIGRlIERlc2Fycm9sbG8KU2lnbm9zIG8gc8OtbnRvbWFzIGRlIERlcHJlc2nDs24gbyBBbnNpZWRhZCBQb3N0cGFydG8iKSArCiAgdGhlbWVfbWluaW1hbCgpCmBgYAoKYGBge3J9CmdncGxvdChiZCwgYWVzKG0wMTEzLCBmaWxsPXNleG8pKSArCiAgZ2VvbV9iYXIoKSsKICBsYWJzKHg9ICJSZWNpYmllcm9uIGluZm9ybWFjacOzbiBzb2JyZSBsYSBlc3RpbXVsYWNpw7NuIGRlbCBkZXNhcnJvbGxvIiwgeT0iRnJlY3VlbmNpYSIpCmBgYAoKIyMjIEdyw6FmaWNhcyA0IC0gU2lnbm9zIGRlIFZpb2xlbmNpYQoKYGBge3IsIGZpZy53aWR0aD0xNCwgZmlnLmhlaWdodD03fQpiZGIgPC0gZ2dwbG90KGJkLCBhZXMobTA0MDViLCkpICsKICBnZW9tX2Jhcihjb2xvciA9ICdkYXJrc2xhdGVncmF5JywgZmlsbCA9ICdwYWxldmlvbGV0cmVkMycpICsgCiAgbGFicyh4PSJSZXNwdWVzdGFzIikgKwogIHlsYWIoIkNhbnRpZGFkZXMiKSArCiAgZ2d0aXRsZSgiwr9MZSBleHBsaWNhcm9uIGFsIG5pw7FvIG8gbmnDsWEgcG9yIHF1w6kgc3UgY29tcG9ydGFtaWVudG8gZXN0dXZvIG1hbD8iKSArCiAgdGhlbWVfbWluaW1hbCgpCgpiZGM8LSBnZ3Bsb3QoYmQsIGFlcyhtMDQwNWMsKSkgKwogIGdlb21fYmFyKGNvbG9yID0gJ2RhcmtzbGF0ZWdyYXknLCBmaWxsID0gJ3NsYXRlYmx1ZTEnKSArIAogIGxhYnMoeD0iUmVzcHVlc3RhcyIpICsKICB5bGFiKCJDYW50aWRhZGVzIikgKwogIGdndGl0bGUoIsK/TG8vbGEgemFyYW5kZWFyb24gbyBzYWN1ZGllcm9uPyIpICsKICB0aGVtZV9taW5pbWFsKCkKCmJkZCA8LSBnZ3Bsb3QoYmQsIGFlcyhtMDQwNWQsKSkgKwogIGdlb21fYmFyKGNvbG9yID0gJ2RhcmtzbGF0ZWdyYXknLCBmaWxsID0gJ3NsYXRlYmx1ZTMnKSArIAogIGxhYnMoeD0iUmVzcHVlc3RhcyIpICsKICB5bGFiKCJDYW50aWRhZGVzIikgKwogIGdndGl0bGUoIsK/TGUgZ3JpdGFyb24/IikgKwogIHRoZW1lX21pbmltYWwoKQoKYmRqPC0gZ2dwbG90KGJkLCBhZXMobTA0MDVqLCkpICsKICBnZW9tX2Jhcihjb2xvciA9ICdkYXJrc2xhdGVncmF5JywgZmlsbCA9ICdzbGF0ZWJsdWU0JykgKyAKICBsYWJzKHg9IlJlc3B1ZXN0YXMiKSArCiAgeWxhYigiQ2FudGlkYWRlcyIpICsKICBnZ3RpdGxlKCLCv0xlIHBlZ2Fyb24gY29uIGxhIG1hbm8gZW4gZWwgYnJhem8sIGVuIGxhIHBpZXJuYSBvIGVuIGxhIG1hbm8/IikgKwogIHRoZW1lX21pbmltYWwoKQoKYmRiICsgYmRjICsgYmRkICsgYmRqICYgdGhlbWVfY2xhc3NpYygpCmBgYAoKYGBge3J9CmdncGxvdChiZCwgYWVzKG0wNDA2LCkpICsKICBnZW9tX2Jhcihjb2xvciA9ICdkYXJrc2xhdGVncmF5JywgZmlsbCA9ICdzbGF0ZWJsdWUyJykgKyAKICAgIGxhYnMoeD0iUmVzcHVlc3RhcyIpICsKICB5bGFiKCJDYW50aWRhZGVzIikgKwogIGdndGl0bGUoIsK/UGFyYSBjcmlhciBvIGVkdWNhciBjb3JyZWN0YW1lbnRlIGRlYmUgc2VyIGNhc3RpZ2Fkby9hIGbDrXNpY2FtZW50ZT8iKSArCiAgdGhlbWVfbWluaW1hbCgpCmBgYAoKCiMjIyBHcsOhZmljYSA1IC0gQXVzZW5jaWEgUGFyZW50YWwKCmBgYHtyLCBmaWcud2lkdGg9MTAsIGZpZy5oZWlnaHQ9N30KZ2dwbG90KGJkLGJpbnMgPSAxMCwgIGFlcyh4PWVkYWQsIHk9bTA0MDNhLCBjb2xvciA9IG0wNDAzYikpICsgZ2VvbV9iYXIoc3RhdD0iaWRlbnRpdHkiKSArCiAgZmFjZXRfd3JhcCh+bTA0MDNiKSsKICB4bGFiKCJBw7FvcyIpICsgCiAgeWxhYigiRMOtYXMgcXVlIEVzdHV2byBTb2xvIG3DoXMgZGUgMSBIb3JhIikgKyAKICBnZ3RpdGxlKCJBdXNlbmNpYSBQYXJlbnRhbCIpICsKICB0aGVtZV9taW5pbWFsKCkKYGBgCgojIyMgR3LDoWZpY2FzIDYgLSBDb25zdWx0YSBNw6lkaWNhIEVzdGFuZG8gU2FubwoKYGBge3IsIGZpZy53aWR0aD0xNSwgZmlnLmhlaWdodD0xMH0KbTggPC0gZ2dwbG90KGJkLCBhZXMoZWRhZCwgZmlsbD1tMDEwOCkpICsgZ2VvbV9iYXIoZmlsbCA9ICJsaWdodGJsdWUyIikgKyB4bGFiKE5VTEwpICsKICB4bGFiKCJFZGFkIikgKyAKICB5bGFiKCIiKSArCiAgZ2d0aXRsZSgiVmlzaXRhcyBhbCBNw6lkaWNvIGVsIFByaW1lciBBw7FvIikgKyB0aGVtZV9idygpCm0xMCA8LSBnZ3Bsb3QoZGF0YT1iZCwgYWVzKGVkYWQsIG0wMTEwKSkgKyBnZW9tX3BvaW50KCkgKyBzdGF0X3Ntb290aCgpKwogIHhsYWIoIkVkYWQiKSsKICB5bGFiKCJGcmVjdWVuY2lhIikgKyAKICBnZ3RpdGxlKCJWaXNpdGFzIGFsIE3DqWRpY28gRXN0YW5kbyBTYW5vCiAgICAgICAgICBDaGVjYXIgRGVzYXJyb2xsbyB5IENyZWNpbWllbnRvIikgKyB0aGVtZV9idygpCm0xMTFhIDwtIGdncGxvdChiZCwgYWVzKHg9IGVkYWQsIHk9bTAxMTFhKSkgKyBnZW9tX2JhcihzdGF0PSJpZGVudGl0eSIsIGZpbGwgPSAibGlnaHRzdGVlbGJsdWUzIikrCiAgeGxhYigiRWRhZCIpICsgCiAgeWxhYigiIikgKwogIGdndGl0bGUoIkHDsW8gZGUgw5psdGltYSBDb25zdWxhdGEgTmnDsW8gU2FubyIpICsgdGhlbWVfYncoKQoKbTggKyBtMTAgKyBtMTExYQpgYGAKCgojIyMgR3LDoWZpY2EgNyAtIFNlbWFuYSBOYWNpb25hbCBkZSBTYWx1ZCAoVml0YW1pbmEgQSkKYGBge3IsIGZpZy53aWR0aD0xNSwgZmlnLmhlaWdodD0xMH0KZ2dwbG90KGJkLGJpbnMgPSAxMCwgIGFlcyh4PWVkYWQsIHk9bTA1MzUsIGNvbG9yID0gZGVzY19tdW4pKSArIGdlb21fYmFyKHN0YXQ9ImlkZW50aXR5IikgKwogIGZhY2V0X3dyYXAofmRlc2NfbXVuKSsKICB4bGFiKCJBw7FvcyIpICsgCiAgeWxhYigiVml0YW1pbmEgQSBlbiBhbGd1bmEgU2VtYW5hIE5hY2lvbmFsIGRlIFNhbHVkIikgKyAKICBnZ3RpdGxlKCJTZW1hbmEgTmFjaW9uYWwgZGUgU2FsdWQiKSArCiAgdGhlbWVfbWluaW1hbCgpCmBgYAoKYGBge3J9CmNvdW50KGJkLCBtMDUzNSxzb3J0ID0gVFJVRSkKYGBgCgojIyMgR3LDoWZpY2EgOCAtIFJlbGFjacOzbiBFc3RhZG8gZGUgw4FuaW1vIGNvbiBTaWdub3MgZGUgRGVzYXJyb2xsbyBkZSBWaW9sZW5jaWEKCmBgYHtyLCBmaWcud2lkdGg9MTAsIGZpZy5oZWlnaHQ9OH0KZ2dwbG90KGJkKSArCiAgZ2VvbV9oaXN0b2dyYW0gKGJpbnMgPSAxNSxhZXMgKHggPSBlZGFkLCBmaWxsID0gbTAzMTkpLCBjb2xvciA9ICJibGFjayIpICsgCiAgZmFjZXRfZ3JpZChtMDkxNn4uLCBzY2FsZXMgPSAnZnJlZScpICsKICB4bGFiKCJFZGFkIikgKyAKICB5bGFiKCJTaWdub3MgZGUgRGVzYXJyb2xsbyBkZSBWaW9sZW5jaWEgZW4gZWwgTmnDsW8iKSArCiAgZ2d0aXRsZSgiUmVsYWNpw7NuIEVzdMOhZG8gZGUgw4FuaW1vIGNvbiBTaWdub3MgZGUgRGVzYXJyb2xsbyBkZSBWaW9sZW5jaWEiKSArCiAgdGhlbWVfbWluaW1hbCgpCmBgYAoKIyMjIEdyw6FmaWNhIDkgLSBBY2NpZGVudGVzCmBgYHtyfQpnZ3Bsb3QoYmQpICsKICBnZW9tX2hpc3RvZ3JhbSAoYmlucyA9IDE1LGFlcyAoeCA9IGVkYWQsIGZpbGwgPSBtMDgwMSkpICsgCiAgZmFjZXRfZ3JpZChtMDgwOH4uLCBzY2FsZXMgPSAnZnJlZScpICsKICB4bGFiKCJFZGFkIikgKyAKICB5bGFiKCJQcm9iZWxtYXMgZGUgU2FsdWQgUGVybWFuZW50ZXMiKSArCiAgZ2d0aXRsZSgiQWNjaWRlbnRlcyIpICsKICB0aGVtZV9taW5pbWFsKCkKYGBgCgojIyMgR3LDoWZpY2FzIDEwIC0gUHJ1ZWJhcyBkZSBEZXNhcnJvbGxvIENvZ25pdGl2bywgTW90b3IgeSBFbW9jaW9uYWwKCmBgYHtyLCBmaWcud2lkdGg9MTIsIGZpZy5oZWlnaHQ9OH0KbWQ8LSBnZ3Bsb3QoZGF0YSA9IGJkLCBhZXMoeCA9IG0wMTE1LCB5ID0gZWRhZCkpICsKICBnZW9tX2JveHBsb3QoZmlsbCA9ICJvbGl2ZWRyYWIzIiwgY29sb3IgPSAiYmxhY2siKSArCiAgbGFicyh0aXRsZSA9ICJTZSBsZSBSZWFsaXphcm9uIFBydWViYXMgZGUgRGVzYXJyb2xsbyBDb2duaXRpdm8sIE1vdG9yIHkgRW1vY2lvbmFsIiwKICAgICAgIHggPSAiRnJlY3VlbmNpYSIsCiAgICAgICB5ID0gIkVkYWQiKSsKICB0aGVtZV9taW5pbWFsKCkKCgpvdHJvIDwtIGdncGxvdChiZCwgYWVzKG0wMTE3LCkpICsKICBnZW9tX2Jhcihjb2xvciA9ICdkYXJrc2xhdGVncmF5JywgZmlsbCA9ICdvbGl2ZWRyYWI0JykgKyAKICAgIGxhYnMoeD0iIikgKwogIHlsYWIoIkZyZWN1ZW5jaWEiKSArCiAgZ2d0aXRsZSgiwr9DdcOhbCBmdWUgZWwgcmVzdWx0YWRvPyIpICsKICB0aGVtZV9taW5pbWFsKCkKCm1kICsgb3RybwpgYGAKCiMjIyBHcsOhZmljYXMgMTEgLSBBc2lzdGUgYSBBbGfDum4gUHJvZ3JhbWEgZGUgRWR1Y2FjacOzbiBwYXJhIGxhIFByaW1lcmEgSW5mYW5jaWEKCmBgYHtyLCBmaWcud2lkdGg9MTUsIGZpZy5oZWlnaHQ9OH0KZ2dwbG90KGJkKSArCiAgZ2VvbV9oaXN0b2dyYW0gKGJpbnMgPSAxNSxhZXMgKHggPSBlZGFkLCBmaWxsID0gbTAyMDEpLCBjb2xvciA9ICJibGFjayIpICsgCiAgIGZhY2V0X3dyYXAofmRlc2NfbXVuLCBzY2FsZXMgPSAnZnJlZScpICsKICB4bGFiKCJFZGFkIikgKyAKICB5bGFiKCJBc2lzdGUgYSBBbGfDum4gUHJvZ3JhbWEgZGUgRWR1Y2FjacOzbiBwYXJhIGxhIFByaW1lcmEgSW5mYW5jaWEiKSArCiAgZ2d0aXRsZSgiQXNpc3RlIGEgQWxnw7puIFByb2dyYW1hIGRlIEVkdWNhY2nDs24gcGFyYSBsYSBQcmltZXJhIEluZmFuY2lhIikgKwogIHRoZW1lX21pbmltYWwoKQpgYGAKCiMjIyMjIFJhem9uZXMgCmBgYHtyfQpjb3VudChiZCwgbTAyMDNlc3Asc29ydCA9IFRSVUUpCmBgYAoK