knitr::opts_chunk$set(echo = FALSE, warning = FALSE, message = FALSE)
##   sexo   edad     p4   p8_1   p8_2    p26 factor   anio 
##      0      0   2352   2352   2352   1260      0      0
## [1] "sexo"   "edad"   "p4"     "p8_1"   "p8_2"   "p26"    "factor" "anio"
## [1] 3964    8
## 'data.frame':    3964 obs. of  8 variables:
##  $ sexo  : int  2 1 2 1 2 1 1 1 2 2 ...
##  $ edad  : int  40 43 27 68 56 44 46 49 22 19 ...
##  $ p4    : int  NA NA NA NA NA NA NA NA 1 3 ...
##  $ p8_1  : int  NA NA NA NA NA NA NA NA 2 2 ...
##  $ p8_2  : int  NA NA NA NA NA NA NA NA 1 1 ...
##  $ p26   : int  15 NA 20 20 NA NA NA NA 60 120 ...
##  $ factor: int  14969 16592 36357 19122 30694 25292 26434 26434 16667 25000 ...
##  $ anio  : num  2021 2021 2021 2021 2021 ...
##       sexo            edad             p4              p8_1      
##  Min.   :1.000   Min.   :18.00   Min.   : 1.000   Min.   :1.000  
##  1st Qu.:1.000   1st Qu.:32.00   1st Qu.: 1.000   1st Qu.:2.000  
##  Median :2.000   Median :44.00   Median : 2.000   Median :2.000  
##  Mean   :1.561   Mean   :45.64   Mean   : 3.484   Mean   :1.751  
##  3rd Qu.:2.000   3rd Qu.:58.00   3rd Qu.: 4.000   3rd Qu.:2.000  
##  Max.   :2.000   Max.   :94.00   Max.   :70.000   Max.   :2.000  
##                                  NAs    :2352     NAs    :2352   
##       p8_2            p26             factor            anio     
##  Min.   :1.000   Min.   :  1.00   Min.   :  3234   Min.   :2021  
##  1st Qu.:1.000   1st Qu.: 20.00   1st Qu.: 13028   1st Qu.:2021  
##  Median :1.000   Median : 30.00   Median : 18066   Median :2024  
##  Mean   :1.195   Mean   : 41.03   Mean   : 20738   Mean   :2023  
##  3rd Qu.:1.000   3rd Qu.: 60.00   3rd Qu.: 26220   3rd Qu.:2024  
##  Max.   :2.000   Max.   :480.00   Max.   :124941   Max.   :2024  
##  NAs    :2352    NAs    :1260