#### Estructura de la base de datos
df <- structure(list(Sexo = c(2, 1, 1, 2, 1, 2, 2, 1, 1, 2, 1, 1, 2,
2, 1, 2, 1, 2, 2, 2, 1, 2, 1, 2, 2, 2, 1, 1, 1, 1, 2, 1, 1, 1,
1, 2, 2, 2, 2, 2, 2, 1, 2, 2, 1, 2, 1, 1, 2, 2), Escolaridad = c(1,
3, 1, 1, 2, 2, 3, 7, 3, 3, 1, 4, 2, 2, 7, 1, 2, 7, 2, 2, 2, 4,
2, 3, 1, 3, 2, 1, 1, 1, 1, 4, 3, 2, 2, 3, 4, 2, 2, 1, 1, 1, 1,
2, 3, 3, 2, 2, 3, 3), edad_intervalo = c(4, 1, 6, 6, 4, 4, 2,
2, 4, 1, 1, 3, 3, 4, 6, 4, 4, 6, 2, 4, 5, 3, 5, 6, 6, 2, 6, 6,
5, 5, 4, 6, 3, 6, 4, 3, 2, 5, 5, 3, 2, 2, 5, 6, 2, 2, 3, 3, 1,
1), seguro_votar = c(1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 1, 1, 2,
2, 2, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2,
2, 1, 1, 1, 2, 2, 2, 1, 1, 1, 1, 2, 3, 2, 2), principal_eleme = c(1,
1, 3, 1, 5, 1, 1, 2, 1, 4, 1, 1, 1, 1, 88, 3, 1, 3, 1, 1, 1,
1, 1, 1, 1, 3, 1, 1, 1, 2, 4, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1,
2, 2, 1, 1, 1, 1, 1, 1), partido_votaste = c(88, 5, 2, 88, 7,
1, 66, 5, 7, 7, 6, 3, 2, 66, 1, 1, 7, 4, 88, 2, 7, 2, 7, 88,
1, 5, 88, 2, 7, 2, 5, 8, 7, 7, 88, 66, 7, 7, 5, 1, 66, 2, 66,
7, 5, 5, 88, 2, 66, 66), votarias_mismo = c(2, 2, 2, 88, 1, 88,
2, 88, 1, 1, 2, 2, 1, 2, 1, 2, 2, 1, 88, 1, 1, 1, 1, 1, 1, 1,
88, 2, 1, 2, 2, 2, 1, 1, 88, 88, 88, 1, 2, 2, 2, 1, 2, 2, 2,
1, 88, 2, 88, 88), arrepientes = c(1, 2, 1, 2, 2, 2, 88, 88,
2, 2, 2, 1, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 88, 1,
2, 2, 1, 2, 2, 2, 2, 88, 1, 2, 1, 2, 1, 2, 2, 1, 1, 2, 2, 1,
88, 88), dispuesto_cambiar = c(1, 2, 1, 4, 4, 3, 2, 3, 4, 3,
1, 1, 4, 3, 2, 1, 1, 2, 2, 3, 4, 4, 3, 88, 2, 4, 1, 1, 4, 1,
1, 2, 3, 4, 88, 3, 2, 4, 2, 1, 1, 2, 4, 1, 1, 2, 3, 1, 4, 88),
voto_partido = c(5, 8, 7, 77, 77, 77, 77, 77, 7, 7, 6, 4,
2, 2, 2, 5, 1, 4, 7, 2, 7, 2, 7, 77, 88, 5, 77, 7, 5, 5,
7, 7, 7, 7, 99, 5, 77, 7, 13, 5, 12, 2, 2, 9, 7, 77, 88,
11, 5, 7), voto_partido_segundo = c(1, 4, 7, 88, 7, 88, 88,
77, 7, 7, 4, 99, 7, 3, 4, 5, 2, 4, 5, 2, 7, 2, 7, 77, 88,
99, 77, 7, 1, 5, 5, 13, 99, 99, 88, 7, 77, 99, 11, 5, 2,
7, 99, 9, 8, 7, 99, 5, 4, 1), voto_partido_nunca = c(99,
2, 2, 88, 2, 88, 99, 99, 7, 3, 1, 11, 1, 1, 2, 2, 7, 1, 88,
4, 7, 5, 1, 2, 88, 5, 88, 2, 2, 2, 12, 1, 2, 99, 99, 1, 2,
#### Estructura de la base de datos
df <- structure(list(Sexo = c(2, 1, 1, 2, 1, 2, 2, 1, 1, 2, 1, 1, 2,
2, 1, 2, 1, 2, 2, 2, 1, 2, 1, 2, 2, 2, 1, 1, 1, 1, 2, 1, 1, 1,
1, 2, 2, 2, 2, 2, 2, 1, 2, 2, 1, 2, 1, 1, 2, 2), Escolaridad = c(1,
3, 1, 1, 2, 2, 3, 7, 3, 3, 1, 4, 2, 2, 7, 1, 2, 7, 2, 2, 2, 4,
2, 3, 1, 3, 2, 1, 1, 1, 1, 4, 3, 2, 2, 3, 4, 2, 2, 1, 1, 1, 1,
2, 3, 3, 2, 2, 3, 3), edad_intervalo = c(4, 1, 6, 6, 4, 4, 2,
2, 4, 1, 1, 3, 3, 4, 6, 4, 4, 6, 2, 4, 5, 3, 5, 6, 6, 2, 6, 6,
5, 5, 4, 6, 3, 6, 4, 3, 2, 5, 5, 3, 2, 2, 5, 6, 2, 2, 3, 3, 1,
1), seguro_votar = c(1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 1, 1, 2,
2, 2, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2,
2, 1, 1, 1, 2, 2, 2, 1, 1, 1, 1, 2, 3, 2, 2), principal_eleme = c(1,
1, 3, 1, 5, 1, 1, 2, 1, 4, 1, 1, 1, 1, 88, 3, 1, 3, 1, 1, 1,
1, 1, 1, 1, 3, 1, 1, 1, 2, 4, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1,
2, 2, 1, 1, 1, 1, 1, 1), partido_votaste = c(88, 5, 2, 88, 7,
1, 66, 5, 7, 7, 6, 3, 2, 66, 1, 1, 7, 4, 88, 2, 7, 2, 7, 88,
1, 5, 88, 2, 7, 2, 5, 8, 7, 7, 88, 66, 7, 7, 5, 1, 66, 2, 66,
7, 5, 5, 88, 2, 66, 66), votarias_mismo = c(2, 2, 2, 88, 1, 88,
2, 88, 1, 1, 2, 2, 1, 2, 1, 2, 2, 1, 88, 1, 1, 1, 1, 1, 1, 1,
88, 2, 1, 2, 2, 2, 1, 1, 88, 88, 88, 1, 2, 2, 2, 1, 2, 2, 2,
1, 88, 2, 88, 88), arrepientes = c(1, 2, 1, 2, 2, 2, 88, 88,
2, 2, 2, 1, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 88, 1,
2, 2, 1, 2, 2, 2, 2, 88, 1, 2, 1, 2, 1, 2, 2, 1, 1, 2, 2, 1,
88, 88), dispuesto_cambiar = c(1, 2, 1, 4, 4, 3, 2, 3, 4, 3,
1, 1, 4, 3, 2, 1, 1, 2, 2, 3, 4, 4, 3, 88, 2, 4, 1, 1, 4, 1,
1, 2, 3, 4, 88, 3, 2, 4, 2, 1, 1, 2, 4, 1, 1, 2, 3, 1, 4, 88),
voto_partido = c(5, 8, 7, 77, 77, 77, 77, 77, 7, 7, 6, 4,
2, 2, 2, 5, 1, 4, 7, 2, 7, 2, 7, 77, 88, 5, 77, 7, 5, 5,
7, 7, 7, 7, 99, 5, 77, 7, 13, 5, 12, 2, 2, 9, 7, 77, 88,
11, 5, 7), voto_partido_segundo = c(1, 4, 7, 88, 7, 88, 88,
77, 7, 7, 4, 99, 7, 3, 4, 5, 2, 4, 5, 2, 7, 2, 7, 77, 88,
99, 77, 7, 1, 5, 5, 13, 99, 99, 88, 7, 77, 99, 11, 5, 2,
7, 99, 9, 8, 7, 99, 5, 4, 1), voto_partido_nunca = c(99,
2, 2, 88, 2, 88, 99, 99, 7, 3, 1, 11, 1, 1, 2, 2, 7, 1, 88,
4, 7, 5, 1, 2, 88, 5, 88, 2, 2, 2, 12, 1, 2, 99, 99, 1, 2,