require("broom")
Loading required package: broomglimpse(colegios)
Observations: 46
Variables: 15
$ N <dbl> 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 1, 2, 3, 4, 5, ...
$ ESTABLECIMIENTO <chr> "COLEGIO", "COLEGIO", "COLEGIO", "COLEGIO", "C...
$ DEPENDENCIA <chr> "MUNICIPAL", "MUNICIPAL", "MUNICIPAL", "MUNICI...
$ TIPO ENSEÑANZA <chr> "HUMANISTA/CIENTIF/TECNICO", "TECNICO", "HUMAN...
$ NIVEL DE ENSEÑANZA <chr> "BASICA, MEDIA", "BASICA Y MEDIA", "BASICA Y M...
$ EDU ESPECIAL <chr> "NO", "NO", "NO", "NO", "NO", "NO", "NO", "NO"...
$ MATRICULAS <dbl> 1131, 544, 447, 447, 277, 465, 484, 200, 502, ...
$ RBD <dbl> 1504, 1516, 1517, 1518, 1519, 1520, 1521, 1522...
$ DV <dbl> 0, 4, 2, 0, 9, 2, 0, 9, 3, 0, 2, 6, 4, 2, 7, 5...
$ ESTABLECIMIENTO__1 <chr> "LICEOTECNICOFEMENINODEVALPARAISO", "LIC.POLIT...
$ DEP <dbl> 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 3, 3, 3, 3...
$ DIRECTOR <chr> "MARIORICARDODIAZVILLEGAS", "JOSELUISURBINALAZ...
$ LOCALIDAD <chr> "SECTORCENTRO", "PLAYAANCHA", "SECTORCENTRO", ...
$ DIRECCION <chr> "INDEPENDENCIANº2288", "AV.P.ANCHA400/ERRAZURI...
$ FONO <chr> "2579200", "2281231", "2251339", "2281207", "2...3 privados 10 p. subvencionados 3 municipales
table(colegios$DEPENDENCIA)
MUNICIPAL P. SUBVENCIONADO P.SUBVENCIONADO PARTICULAR
10 21 9 6 municipales_random <- colegios %>%
filter(DEPENDENCIA == "MUNICIPAL") %>%
select(DEPENDENCIA, ESTABLECIMIENTO__1, LOCALIDAD) %>%
sample_n(3)
psubvencionado_random <- colegios %>%
filter(DEPENDENCIA == "P. SUBVENCIONADO") %>%
select(DEPENDENCIA, ESTABLECIMIENTO__1, LOCALIDAD) %>%
sample_n(10)
privados_random <- colegios %>%
filter(DEPENDENCIA == "PARTICULAR") %>%
select(DEPENDENCIA, ESTABLECIMIENTO__1, LOCALIDAD) %>%
sample_n(3)