library(VennDiagram)
## Warning: package 'VennDiagram' was built under R version 4.0.3
## Loading required package: grid
## Loading required package: futile.logger
## Warning: package 'futile.logger' was built under R version 4.0.3
library(dplyr)
## Warning: package 'dplyr' was built under R version 4.0.3
## 
## 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(knitr)
## Warning: package 'knitr' was built under R version 4.0.3
source("https://raw.githubusercontent.com/rpizarrog/probabilidad-y-estad-stica/master/construir%20datos%20y%20funciones%20caso%209.r", encoding = "UTF-8")

c

kable(personas, caption = "Lista de personas y actividaes que practican")
Lista de personas y actividaes que practican
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
JUAN M NO NO NO SI NO SI NO NO NO NO NO SI
JOSÉ LUIS M NO NO NO NO NO NO NO SI NO NO NO NO
JOSÉ M NO SI NO SI NO NO NO NO NO NO SI SI
MARÍA GUADALUPE F NO SI NO NO NO NO NO NO NO NO SI SI
FRANCISCO M NO NO NO NO NO NO SI NO NO NO NO NO
GUADALUPE F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA F NO SI NO NO SI NO NO NO NO NO NO NO
JUANA F NO NO NO NO SI NO NO SI NO NO NO NO
ANTONIO M NO NO NO NO NO NO NO NO NO NO NO NO
JESÚS M NO NO SI NO NO SI NO NO SI NO NO NO
MIGUEL ÁNGEL M NO NO NO NO NO NO NO NO SI NO NO NO
PEDRO M NO NO NO NO NO NO NO NO NO NO NO NO
ALEJANDRO M NO NO SI NO SI NO SI NO SI NO NO NO
MANUEL M NO NO NO NO NO NO SI NO NO NO NO NO
MARGARITA F NO NO NO NO NO NO SI NO NO NO NO NO
MARÍA DEL CARMEN F NO NO NO NO NO SI NO NO NO NO NO NO
JUAN CARLOS M SI NO NO NO NO NO SI NO SI NO NO NO
ROBERTO M NO SI NO NO NO NO NO NO NO NO SI NO
FERNANDO M NO NO NO NO SI NO NO NO NO NO SI NO
DANIEL M NO NO NO NO NO NO SI NO NO NO NO NO
CARLOS M NO NO NO NO NO NO NO NO NO NO SI NO
JORGE M SI NO NO NO NO NO NO NO NO NO NO NO
RICARDO M NO NO NO NO SI NO NO NO NO SI NO NO
MIGUEL M NO NO NO SI NO NO NO NO NO NO NO NO
EDUARDO M NO NO NO SI NO NO NO NO NO SI SI SI
JAVIER F NO NO NO NO NO SI NO NO NO NO SI NO
RAFAEL M NO NO NO NO NO NO NO SI NO NO NO NO
MARTÍN M NO NO NO NO NO NO SI NO NO NO NO NO
RAÚL M NO SI NO SI NO NO NO SI NO NO SI NO
DAVID M NO NO NO NO NO NO NO NO NO NO NO NO
JOSEFINA M NO NO NO NO NO SI NO NO NO SI NO SI
JOSÉ ANTONIO M NO NO SI NO NO NO NO SI NO NO NO NO
ARTURO F NO NO NO NO SI NO NO NO NO NO NO SI
MARCO ANTONIO M NO NO NO NO NO NO NO NO NO NO NO NO
JOSÉ MANUEL F NO NO NO SI NO NO NO SI NO NO NO NO
FRANCISCO JAVIER F SI NO NO NO NO NO NO SI NO NO SI NO
ENRIQUE M NO NO NO NO NO NO NO NO SI NO SI NO
VERÓNICA M NO NO NO SI NO NO NO NO NO NO SI NO
GERARDO F NO NO NO NO NO NO NO SI NO NO NO NO
MARÍA ELENA M NO NO NO NO NO NO SI SI NO NO NO NO
LETICIA F NO NO NO NO NO NO NO SI NO NO SI NO
ROSA F SI NO NO NO NO SI NO NO NO NO NO NO
MARIO M NO NO SI SI NO NO NO NO NO NO NO NO
FRANCISCA F NO NO SI NO NO NO SI NO NO NO NO NO
ALFREDO M NO NO NO SI NO NO NO NO NO SI NO NO
TERESA F NO NO NO NO NO NO NO SI NO NO NO NO
ALICIA F NO SI NO NO NO SI NO NO NO SI NO NO
MARÍA FERNANDA F NO SI SI NO NO NO SI SI NO SI NO NO
SERGIO M SI NO NO NO NO NO NO NO NO NO NO NO
ALBERTO M NO NO NO NO NO NO SI NO NO NO NO NO
LUIS M NO NO NO NO NO NO NO NO SI NO NO SI
ARMANDO M NO NO SI NO NO NO SI NO NO NO NO NO
ALEJANDRA F NO NO NO NO NO NO NO SI NO NO NO NO
MARTHA F NO NO NO NO NO NO NO NO NO NO SI NO
SANTIAGO M NO NO NO NO NO SI NO SI SI NO NO NO
YOLANDA F SI NO NO NO SI NO NO NO NO NO NO NO
PATRICIA F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA DE LOS ÁNGELES F NO NO NO SI NO NO NO NO NO NO SI NO
JUAN MANUEL M NO NO NO NO NO NO NO SI NO SI SI NO
ROSA MARÍA F NO NO NO NO NO SI NO SI NO NO NO NO
ELIZABETH F NO NO NO NO NO NO NO SI NO NO NO NO
GLORIA F NO NO NO NO NO NO NO NO NO NO NO NO
ÁNGEL M NO NO NO NO NO NO NO NO NO NO NO NO
GABRIELA F NO NO NO NO NO NO NO NO NO NO NO NO
SALVADOR M SI NO NO NO NO NO SI NO NO NO SI NO
VÍCTOR MANUEL M NO SI SI SI NO NO NO NO NO NO NO NO
SILVIA F NO NO NO NO NO NO NO NO NO SI NO NO
MARÍA DE GUADALUPE F NO NO NO NO SI NO NO SI NO SI NO NO
MARÍA DE JESÚS F NO NO NO SI SI NO NO NO NO NO NO NO
GABRIEL M SI NO SI NO NO SI NO NO NO NO NO NO
ANDRÉS M NO NO NO NO NO NO NO NO NO NO NO NO
ÓSCAR M SI NO NO NO NO NO NO NO NO NO NO NO
GUILLERMO M NO NO NO NO NO NO NO NO NO NO NO NO
ANA MARÍA F NO NO NO NO NO NO NO NO NO NO SI NO
RAMÓN M NO NO NO NO NO NO NO NO NO SI NO NO
MARÍA ISABEL F NO SI NO NO NO NO NO NO NO NO NO SI
PABLO M NO NO SI NO NO NO SI SI NO NO NO NO
RUBEN M NO SI NO NO NO NO NO NO NO NO SI NO
ANTONIA F NO NO NO NO NO NO NO NO NO NO NO SI
MARÍA LUISA F SI NO NO NO NO NO NO NO NO NO NO NO
LUIS ÁNGEL M NO NO NO NO NO NO SI NO SI NO NO NO
MARÍA DEL ROSARIO F NO NO SI NO NO SI NO NO NO NO NO NO
FELIPE M NO NO NO NO NO NO NO NO NO NO NO NO
JORGE JESÚS M NO SI NO NO NO NO SI NO NO NO NO NO
JAIME M NO NO SI NO SI NO NO NO SI SI NO NO
JOSÉ GUADALUPE M NO NO NO NO NO SI NO NO NO NO NO SI
JULIO CESAR M SI NO NO NO NO NO NO SI NO NO NO NO
JOSÉ DE JESÚS M SI NO SI NO NO SI SI NO NO NO SI NO
DIEGO M NO NO NO SI NO NO NO NO NO NO NO NO
ARACELI M NO NO NO NO NO NO NO NO NO NO SI NO
ANDREA F NO NO NO NO NO NO NO NO NO NO NO SI
ISABEL F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA TERESA F NO SI NO NO SI NO NO SI NO NO NO NO
IRMA F SI SI NO NO NO NO NO NO NO NO NO NO
CARMEN F NO NO NO NO NO NO NO NO NO NO NO NO
LUCÍA F NO SI NO SI NO NO NO SI NO NO SI SI
ADRIANA F NO NO NO NO NO NO SI NO NO NO NO NO
AGUSTÍN M NO SI NO NO NO NO NO NO SI NO NO NO
MARÍA DE LA LUZ F NO NO NO NO NO NO SI NO NO NO NO NO
GUSTAVO M NO NO NO NO NO NO NO SI NO NO NO NO
n <- nrow(personas) # personas es todo el Universo
n
## [1] 100
# source("../funciones/funcion para caso10.r")
MAS <- f.obten.subconjunto(personas, 'masculino')
kable(MAS, caption = "Género Masculino")
Género Masculino
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
JUAN M NO NO NO SI NO SI NO NO NO NO NO SI
JOSÉ LUIS M NO NO NO NO NO NO NO SI NO NO NO NO
JOSÉ M NO SI NO SI NO NO NO NO NO NO SI SI
FRANCISCO M NO NO NO NO NO NO SI NO NO NO NO NO
ANTONIO M NO NO NO NO NO NO NO NO NO NO NO NO
JESÚS M NO NO SI NO NO SI NO NO SI NO NO NO
MIGUEL ÁNGEL M NO NO NO NO NO NO NO NO SI NO NO NO
PEDRO M NO NO NO NO NO NO NO NO NO NO NO NO
ALEJANDRO M NO NO SI NO SI NO SI NO SI NO NO NO
MANUEL M NO NO NO NO NO NO SI NO NO NO NO NO
JUAN CARLOS M SI NO NO NO NO NO SI NO SI NO NO NO
ROBERTO M NO SI NO NO NO NO NO NO NO NO SI NO
FERNANDO M NO NO NO NO SI NO NO NO NO NO SI NO
DANIEL M NO NO NO NO NO NO SI NO NO NO NO NO
CARLOS M NO NO NO NO NO NO NO NO NO NO SI NO
JORGE M SI NO NO NO NO NO NO NO NO NO NO NO
RICARDO M NO NO NO NO SI NO NO NO NO SI NO NO
MIGUEL M NO NO NO SI NO NO NO NO NO NO NO NO
EDUARDO M NO NO NO SI NO NO NO NO NO SI SI SI
RAFAEL M NO NO NO NO NO NO NO SI NO NO NO NO
MARTÍN M NO NO NO NO NO NO SI NO NO NO NO NO
RAÚL M NO SI NO SI NO NO NO SI NO NO SI NO
DAVID M NO NO NO NO NO NO NO NO NO NO NO NO
JOSEFINA M NO NO NO NO NO SI NO NO NO SI NO SI
JOSÉ ANTONIO M NO NO SI NO NO NO NO SI NO NO NO NO
MARCO ANTONIO M NO NO NO NO NO NO NO NO NO NO NO NO
ENRIQUE M NO NO NO NO NO NO NO NO SI NO SI NO
VERÓNICA M NO NO NO SI NO NO NO NO NO NO SI NO
MARÍA ELENA M NO NO NO NO NO NO SI SI NO NO NO NO
MARIO M NO NO SI SI NO NO NO NO NO NO NO NO
ALFREDO M NO NO NO SI NO NO NO NO NO SI NO NO
SERGIO M SI NO NO NO NO NO NO NO NO NO NO NO
ALBERTO M NO NO NO NO NO NO SI NO NO NO NO NO
LUIS M NO NO NO NO NO NO NO NO SI NO NO SI
ARMANDO M NO NO SI NO NO NO SI NO NO NO NO NO
SANTIAGO M NO NO NO NO NO SI NO SI SI NO NO NO
JUAN MANUEL M NO NO NO NO NO NO NO SI NO SI SI NO
ÁNGEL M NO NO NO NO NO NO NO NO NO NO NO NO
SALVADOR M SI NO NO NO NO NO SI NO NO NO SI NO
VÍCTOR MANUEL M NO SI SI SI NO NO NO NO NO NO NO NO
GABRIEL M SI NO SI NO NO SI NO NO NO NO NO NO
ANDRÉS M NO NO NO NO NO NO NO NO NO NO NO NO
ÓSCAR M SI NO NO NO NO NO NO NO NO NO NO NO
GUILLERMO M NO NO NO NO NO NO NO NO NO NO NO NO
RAMÓN M NO NO NO NO NO NO NO NO NO SI NO NO
PABLO M NO NO SI NO NO NO SI SI NO NO NO NO
RUBEN M NO SI NO NO NO NO NO NO NO NO SI NO
LUIS ÁNGEL M NO NO NO NO NO NO SI NO SI NO NO NO
FELIPE M NO NO NO NO NO NO NO NO NO NO NO NO
JORGE JESÚS M NO SI NO NO NO NO SI NO NO NO NO NO
JAIME M NO NO SI NO SI NO NO NO SI SI NO NO
JOSÉ GUADALUPE M NO NO NO NO NO SI NO NO NO NO NO SI
JULIO CESAR M SI NO NO NO NO NO NO SI NO NO NO NO
JOSÉ DE JESÚS M SI NO SI NO NO SI SI NO NO NO SI NO
DIEGO M NO NO NO SI NO NO NO NO NO NO NO NO
ARACELI M NO NO NO NO NO NO NO NO NO NO SI NO
AGUSTÍN M NO SI NO NO NO NO NO NO SI NO NO NO
GUSTAVO M NO NO NO NO NO NO NO SI NO NO NO NO
FEM <- f.obten.subconjunto(personas, 'femenino')
kable(FEM, caption = "Género Femenino")
Género Femenino
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
MARÍA GUADALUPE F NO SI NO NO NO NO NO NO NO NO SI SI
GUADALUPE F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA F NO SI NO NO SI NO NO NO NO NO NO NO
JUANA F NO NO NO NO SI NO NO SI NO NO NO NO
MARGARITA F NO NO NO NO NO NO SI NO NO NO NO NO
MARÍA DEL CARMEN F NO NO NO NO NO SI NO NO NO NO NO NO
JAVIER F NO NO NO NO NO SI NO NO NO NO SI NO
ARTURO F NO NO NO NO SI NO NO NO NO NO NO SI
JOSÉ MANUEL F NO NO NO SI NO NO NO SI NO NO NO NO
FRANCISCO JAVIER F SI NO NO NO NO NO NO SI NO NO SI NO
GERARDO F NO NO NO NO NO NO NO SI NO NO NO NO
LETICIA F NO NO NO NO NO NO NO SI NO NO SI NO
ROSA F SI NO NO NO NO SI NO NO NO NO NO NO
FRANCISCA F NO NO SI NO NO NO SI NO NO NO NO NO
TERESA F NO NO NO NO NO NO NO SI NO NO NO NO
ALICIA F NO SI NO NO NO SI NO NO NO SI NO NO
MARÍA FERNANDA F NO SI SI NO NO NO SI SI NO SI NO NO
ALEJANDRA F NO NO NO NO NO NO NO SI NO NO NO NO
MARTHA F NO NO NO NO NO NO NO NO NO NO SI NO
YOLANDA F SI NO NO NO SI NO NO NO NO NO NO NO
PATRICIA F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA DE LOS ÁNGELES F NO NO NO SI NO NO NO NO NO NO SI NO
ROSA MARÍA F NO NO NO NO NO SI NO SI NO NO NO NO
ELIZABETH F NO NO NO NO NO NO NO SI NO NO NO NO
GLORIA F NO NO NO NO NO NO NO NO NO NO NO NO
GABRIELA F NO NO NO NO NO NO NO NO NO NO NO NO
SILVIA F NO NO NO NO NO NO NO NO NO SI NO NO
MARÍA DE GUADALUPE F NO NO NO NO SI NO NO SI NO SI NO NO
MARÍA DE JESÚS F NO NO NO SI SI NO NO NO NO NO NO NO
ANA MARÍA F NO NO NO NO NO NO NO NO NO NO SI NO
MARÍA ISABEL F NO SI NO NO NO NO NO NO NO NO NO SI
ANTONIA F NO NO NO NO NO NO NO NO NO NO NO SI
MARÍA LUISA F SI NO NO NO NO NO NO NO NO NO NO NO
MARÍA DEL ROSARIO F NO NO SI NO NO SI NO NO NO NO NO NO
ANDREA F NO NO NO NO NO NO NO NO NO NO NO SI
ISABEL F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA TERESA F NO SI NO NO SI NO NO SI NO NO NO NO
IRMA F SI SI NO NO NO NO NO NO NO NO NO NO
CARMEN F NO NO NO NO NO NO NO NO NO NO NO NO
LUCÍA F NO SI NO SI NO NO NO SI NO NO SI SI
ADRIANA F NO NO NO NO NO NO SI NO NO NO NO NO
MARÍA DE LA LUZ F NO NO NO NO NO NO SI NO NO NO NO NO
AJE <- f.obten.subconjunto(personas, 'ajedrez')
kable(AJE, caption = "Ajedrez")
Ajedrez
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
JUAN CARLOS M SI NO NO NO NO NO SI NO SI NO NO NO
JORGE M SI NO NO NO NO NO NO NO NO NO NO NO
FRANCISCO JAVIER F SI NO NO NO NO NO NO SI NO NO SI NO
ROSA F SI NO NO NO NO SI NO NO NO NO NO NO
SERGIO M SI NO NO NO NO NO NO NO NO NO NO NO
YOLANDA F SI NO NO NO SI NO NO NO NO NO NO NO
SALVADOR M SI NO NO NO NO NO SI NO NO NO SI NO
GABRIEL M SI NO SI NO NO SI NO NO NO NO NO NO
ÓSCAR M SI NO NO NO NO NO NO NO NO NO NO NO
MARÍA LUISA F SI NO NO NO NO NO NO NO NO NO NO NO
JULIO CESAR M SI NO NO NO NO NO NO SI NO NO NO NO
JOSÉ DE JESÚS M SI NO SI NO NO SI SI NO NO NO SI NO
IRMA F SI SI NO NO NO NO NO NO NO NO NO NO
BEI <- f.obten.subconjunto(personas, 'beisbol')
kable(BEI, caption = "Beisbol")
Beisbol
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
JOSÉ M NO SI NO SI NO NO NO NO NO NO SI SI
MARÍA GUADALUPE F NO SI NO NO NO NO NO NO NO NO SI SI
MARÍA F NO SI NO NO SI NO NO NO NO NO NO NO
ROBERTO M NO SI NO NO NO NO NO NO NO NO SI NO
RAÚL M NO SI NO SI NO NO NO SI NO NO SI NO
ALICIA F NO SI NO NO NO SI NO NO NO SI NO NO
MARÍA FERNANDA F NO SI SI NO NO NO SI SI NO SI NO NO
VÍCTOR MANUEL M NO SI SI SI NO NO NO NO NO NO NO NO
MARÍA ISABEL F NO SI NO NO NO NO NO NO NO NO NO SI
RUBEN M NO SI NO NO NO NO NO NO NO NO SI NO
JORGE JESÚS M NO SI NO NO NO NO SI NO NO NO NO NO
MARÍA TERESA F NO SI NO NO SI NO NO SI NO NO NO NO
IRMA F SI SI NO NO NO NO NO NO NO NO NO NO
LUCÍA F NO SI NO SI NO NO NO SI NO NO SI SI
AGUSTÍN M NO SI NO NO NO NO NO NO SI NO NO NO
TAR <- f.obten.subconjunto(personas, 'tiro.arco')
kable(TAR, caption = "Tiro con Arco")
Tiro con Arco
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
JESÚS M NO NO SI NO NO SI NO NO SI NO NO NO
ALEJANDRO M NO NO SI NO SI NO SI NO SI NO NO NO
JOSÉ ANTONIO M NO NO SI NO NO NO NO SI NO NO NO NO
MARIO M NO NO SI SI NO NO NO NO NO NO NO NO
FRANCISCA F NO NO SI NO NO NO SI NO NO NO NO NO
MARÍA FERNANDA F NO SI SI NO NO NO SI SI NO SI NO NO
ARMANDO M NO NO SI NO NO NO SI NO NO NO NO NO
VÍCTOR MANUEL M NO SI SI SI NO NO NO NO NO NO NO NO
GABRIEL M SI NO SI NO NO SI NO NO NO NO NO NO
PABLO M NO NO SI NO NO NO SI SI NO NO NO NO
MARÍA DEL ROSARIO F NO NO SI NO NO SI NO NO NO NO NO NO
JAIME M NO NO SI NO SI NO NO NO SI SI NO NO
JOSÉ DE JESÚS M SI NO SI NO NO SI SI NO NO NO SI NO
PES <- f.obten.subconjunto(personas, 'pesas')
kable(PES, caption = "Pesas")
Pesas
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
JUAN M NO NO NO SI NO SI NO NO NO NO NO SI
JOSÉ M NO SI NO SI NO NO NO NO NO NO SI SI
MIGUEL M NO NO NO SI NO NO NO NO NO NO NO NO
EDUARDO M NO NO NO SI NO NO NO NO NO SI SI SI
RAÚL M NO SI NO SI NO NO NO SI NO NO SI NO
JOSÉ MANUEL F NO NO NO SI NO NO NO SI NO NO NO NO
VERÓNICA M NO NO NO SI NO NO NO NO NO NO SI NO
MARIO M NO NO SI SI NO NO NO NO NO NO NO NO
ALFREDO M NO NO NO SI NO NO NO NO NO SI NO NO
MARÍA DE LOS ÁNGELES F NO NO NO SI NO NO NO NO NO NO SI NO
VÍCTOR MANUEL M NO SI SI SI NO NO NO NO NO NO NO NO
MARÍA DE JESÚS F NO NO NO SI SI NO NO NO NO NO NO NO
DIEGO M NO NO NO SI NO NO NO NO NO NO NO NO
LUCÍA F NO SI NO SI NO NO NO SI NO NO SI SI
FUT <- f.obten.subconjunto(personas, 'futbol')
kable(FUT, caption = "Fútbol")
Fútbol
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
MARÍA F NO SI NO NO SI NO NO NO NO NO NO NO
JUANA F NO NO NO NO SI NO NO SI NO NO NO NO
ALEJANDRO M NO NO SI NO SI NO SI NO SI NO NO NO
FERNANDO M NO NO NO NO SI NO NO NO NO NO SI NO
RICARDO M NO NO NO NO SI NO NO NO NO SI NO NO
ARTURO F NO NO NO NO SI NO NO NO NO NO NO SI
YOLANDA F SI NO NO NO SI NO NO NO NO NO NO NO
MARÍA DE GUADALUPE F NO NO NO NO SI NO NO SI NO SI NO NO
MARÍA DE JESÚS F NO NO NO SI SI NO NO NO NO NO NO NO
JAIME M NO NO SI NO SI NO NO NO SI SI NO NO
MARÍA TERESA F NO SI NO NO SI NO NO SI NO NO NO NO
SOF <- f.obten.subconjunto(personas, 'softbol')
kable(SOF, caption = "Sóftbol")
Sóftbol
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
JUAN M NO NO NO SI NO SI NO NO NO NO NO SI
JESÚS M NO NO SI NO NO SI NO NO SI NO NO NO
MARÍA DEL CARMEN F NO NO NO NO NO SI NO NO NO NO NO NO
JAVIER F NO NO NO NO NO SI NO NO NO NO SI NO
JOSEFINA M NO NO NO NO NO SI NO NO NO SI NO SI
ROSA F SI NO NO NO NO SI NO NO NO NO NO NO
ALICIA F NO SI NO NO NO SI NO NO NO SI NO NO
SANTIAGO M NO NO NO NO NO SI NO SI SI NO NO NO
ROSA MARÍA F NO NO NO NO NO SI NO SI NO NO NO NO
GABRIEL M SI NO SI NO NO SI NO NO NO NO NO NO
MARÍA DEL ROSARIO F NO NO SI NO NO SI NO NO NO NO NO NO
JOSÉ GUADALUPE M NO NO NO NO NO SI NO NO NO NO NO SI
JOSÉ DE JESÚS M SI NO SI NO NO SI SI NO NO NO SI NO
ATL <- f.obten.subconjunto(personas, 'atletismo')
kable(ATL, caption = "Atletismo")
Atletismo
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
FRANCISCO M NO NO NO NO NO NO SI NO NO NO NO NO
ALEJANDRO M NO NO SI NO SI NO SI NO SI NO NO NO
MANUEL M NO NO NO NO NO NO SI NO NO NO NO NO
MARGARITA F NO NO NO NO NO NO SI NO NO NO NO NO
JUAN CARLOS M SI NO NO NO NO NO SI NO SI NO NO NO
DANIEL M NO NO NO NO NO NO SI NO NO NO NO NO
MARTÍN M NO NO NO NO NO NO SI NO NO NO NO NO
MARÍA ELENA M NO NO NO NO NO NO SI SI NO NO NO NO
FRANCISCA F NO NO SI NO NO NO SI NO NO NO NO NO
MARÍA FERNANDA F NO SI SI NO NO NO SI SI NO SI NO NO
ALBERTO M NO NO NO NO NO NO SI NO NO NO NO NO
ARMANDO M NO NO SI NO NO NO SI NO NO NO NO NO
SALVADOR M SI NO NO NO NO NO SI NO NO NO SI NO
PABLO M NO NO SI NO NO NO SI SI NO NO NO NO
LUIS ÁNGEL M NO NO NO NO NO NO SI NO SI NO NO NO
JORGE JESÚS M NO SI NO NO NO NO SI NO NO NO NO NO
JOSÉ DE JESÚS M SI NO SI NO NO SI SI NO NO NO SI NO
ADRIANA F NO NO NO NO NO NO SI NO NO NO NO NO
MARÍA DE LA LUZ F NO NO NO NO NO NO SI NO NO NO NO NO
FOL <- f.obten.subconjunto(personas, 'folklorico')
kable(FOL, caption = "Baile Folklórico")
Baile Folklórico
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
JOSÉ LUIS M NO NO NO NO NO NO NO SI NO NO NO NO
JUANA F NO NO NO NO SI NO NO SI NO NO NO NO
RAFAEL M NO NO NO NO NO NO NO SI NO NO NO NO
RAÚL M NO SI NO SI NO NO NO SI NO NO SI NO
JOSÉ ANTONIO M NO NO SI NO NO NO NO SI NO NO NO NO
JOSÉ MANUEL F NO NO NO SI NO NO NO SI NO NO NO NO
FRANCISCO JAVIER F SI NO NO NO NO NO NO SI NO NO SI NO
GERARDO F NO NO NO NO NO NO NO SI NO NO NO NO
MARÍA ELENA M NO NO NO NO NO NO SI SI NO NO NO NO
LETICIA F NO NO NO NO NO NO NO SI NO NO SI NO
TERESA F NO NO NO NO NO NO NO SI NO NO NO NO
MARÍA FERNANDA F NO SI SI NO NO NO SI SI NO SI NO NO
ALEJANDRA F NO NO NO NO NO NO NO SI NO NO NO NO
SANTIAGO M NO NO NO NO NO SI NO SI SI NO NO NO
JUAN MANUEL M NO NO NO NO NO NO NO SI NO SI SI NO
ROSA MARÍA F NO NO NO NO NO SI NO SI NO NO NO NO
ELIZABETH F NO NO NO NO NO NO NO SI NO NO NO NO
MARÍA DE GUADALUPE F NO NO NO NO SI NO NO SI NO SI NO NO
PABLO M NO NO SI NO NO NO SI SI NO NO NO NO
JULIO CESAR M SI NO NO NO NO NO NO SI NO NO NO NO
MARÍA TERESA F NO SI NO NO SI NO NO SI NO NO NO NO
LUCÍA F NO SI NO SI NO NO NO SI NO NO SI SI
GUSTAVO M NO NO NO NO NO NO NO SI NO NO NO NO
TAI <- f.obten.subconjunto(personas, 'tahitiano')
kable(TAI, caption = "Baile Tahitiano")
Baile Tahitiano
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
JESÚS M NO NO SI NO NO SI NO NO SI NO NO NO
MIGUEL ÁNGEL M NO NO NO NO NO NO NO NO SI NO NO NO
ALEJANDRO M NO NO SI NO SI NO SI NO SI NO NO NO
JUAN CARLOS M SI NO NO NO NO NO SI NO SI NO NO NO
ENRIQUE M NO NO NO NO NO NO NO NO SI NO SI NO
LUIS M NO NO NO NO NO NO NO NO SI NO NO SI
SANTIAGO M NO NO NO NO NO SI NO SI SI NO NO NO
LUIS ÁNGEL M NO NO NO NO NO NO SI NO SI NO NO NO
JAIME M NO NO SI NO SI NO NO NO SI SI NO NO
AGUSTÍN M NO SI NO NO NO NO NO NO SI NO NO NO
TEA <- f.obten.subconjunto(personas, 'teatro')
kable(TEA, caption = "Teatro")
Teatro
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
RICARDO M NO NO NO NO SI NO NO NO NO SI NO NO
EDUARDO M NO NO NO SI NO NO NO NO NO SI SI SI
JOSEFINA M NO NO NO NO NO SI NO NO NO SI NO SI
ALFREDO M NO NO NO SI NO NO NO NO NO SI NO NO
ALICIA F NO SI NO NO NO SI NO NO NO SI NO NO
MARÍA FERNANDA F NO SI SI NO NO NO SI SI NO SI NO NO
JUAN MANUEL M NO NO NO NO NO NO NO SI NO SI SI NO
SILVIA F NO NO NO NO NO NO NO NO NO SI NO NO
MARÍA DE GUADALUPE F NO NO NO NO SI NO NO SI NO SI NO NO
RAMÓN M NO NO NO NO NO NO NO NO NO SI NO NO
JAIME M NO NO SI NO SI NO NO NO SI SI NO NO
RON <- f.obten.subconjunto(personas, 'rondalla')
kable(RON, caption = "Rondalla")
Rondalla
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
JOSÉ M NO SI NO SI NO NO NO NO NO NO SI SI
MARÍA GUADALUPE F NO SI NO NO NO NO NO NO NO NO SI SI
ROBERTO M NO SI NO NO NO NO NO NO NO NO SI NO
FERNANDO M NO NO NO NO SI NO NO NO NO NO SI NO
CARLOS M NO NO NO NO NO NO NO NO NO NO SI NO
EDUARDO M NO NO NO SI NO NO NO NO NO SI SI SI
JAVIER F NO NO NO NO NO SI NO NO NO NO SI NO
RAÚL M NO SI NO SI NO NO NO SI NO NO SI NO
FRANCISCO JAVIER F SI NO NO NO NO NO NO SI NO NO SI NO
ENRIQUE M NO NO NO NO NO NO NO NO SI NO SI NO
VERÓNICA M NO NO NO SI NO NO NO NO NO NO SI NO
LETICIA F NO NO NO NO NO NO NO SI NO NO SI NO
MARTHA F NO NO NO NO NO NO NO NO NO NO SI NO
MARÍA DE LOS ÁNGELES F NO NO NO SI NO NO NO NO NO NO SI NO
JUAN MANUEL M NO NO NO NO NO NO NO SI NO SI SI NO
SALVADOR M SI NO NO NO NO NO SI NO NO NO SI NO
ANA MARÍA F NO NO NO NO NO NO NO NO NO NO SI NO
RUBEN M NO SI NO NO NO NO NO NO NO NO SI NO
JOSÉ DE JESÚS M SI NO SI NO NO SI SI NO NO NO SI NO
ARACELI M NO NO NO NO NO NO NO NO NO NO SI NO
LUCÍA F NO SI NO SI NO NO NO SI NO NO SI SI
PAN <- f.obten.subconjunto(personas, 'pantomima')
kable(PAN, caption = "Pantomima")
Pantomima
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
JUAN M NO NO NO SI NO SI NO NO NO NO NO SI
JOSÉ M NO SI NO SI NO NO NO NO NO NO SI SI
MARÍA GUADALUPE F NO SI NO NO NO NO NO NO NO NO SI SI
EDUARDO M NO NO NO SI NO NO NO NO NO SI SI SI
JOSEFINA M NO NO NO NO NO SI NO NO NO SI NO SI
ARTURO F NO NO NO NO SI NO NO NO NO NO NO SI
LUIS M NO NO NO NO NO NO NO NO SI NO NO SI
MARÍA ISABEL F NO SI NO NO NO NO NO NO NO NO NO SI
ANTONIA F NO NO NO NO NO NO NO NO NO NO NO SI
JOSÉ GUADALUPE M NO NO NO NO NO SI NO NO NO NO NO SI
ANDREA F NO NO NO NO NO NO NO NO NO NO NO SI
LUCÍA F NO SI NO SI NO NO NO SI NO NO SI SI
TEA <- f.obten.subconjunto(personas, 'teatro')
RON <- f.obten.subconjunto(personas, 'rondalla')
PAN <- f.obten.subconjunto(personas, 'pantomima')

Determinar probabilidades mediante operaciones de conjuntos, frecuencias realativas o mediante fórmula para determinar probabilidades #4.1 Probabilidad de que una persona no practique deporte ni practique actividad cultural

deportes <- union(AJE, BEI) %>%
    union(TAR) %>%
    union(PES) %>%
    union(FUT) %>%
    union(SOF) %>%
    union(ATL) 
kable(deportes, caption = "Personas que practican actividad deportiva")
Personas que practican actividad deportiva
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
JUAN CARLOS M SI NO NO NO NO NO SI NO SI NO NO NO
JORGE M SI NO NO NO NO NO NO NO NO NO NO NO
FRANCISCO JAVIER F SI NO NO NO NO NO NO SI NO NO SI NO
ROSA F SI NO NO NO NO SI NO NO NO NO NO NO
SERGIO M SI NO NO NO NO NO NO NO NO NO NO NO
YOLANDA F SI NO NO NO SI NO NO NO NO NO NO NO
SALVADOR M SI NO NO NO NO NO SI NO NO NO SI NO
GABRIEL M SI NO SI NO NO SI NO NO NO NO NO NO
ÓSCAR M SI NO NO NO NO NO NO NO NO NO NO NO
MARÍA LUISA F SI NO NO NO NO NO NO NO NO NO NO NO
JULIO CESAR M SI NO NO NO NO NO NO SI NO NO NO NO
JOSÉ DE JESÚS M SI NO SI NO NO SI SI NO NO NO SI NO
IRMA F SI SI NO NO NO NO NO NO NO NO NO NO
JOSÉ M NO SI NO SI NO NO NO NO NO NO SI SI
MARÍA GUADALUPE F NO SI NO NO NO NO NO NO NO NO SI SI
MARÍA F NO SI NO NO SI NO NO NO NO NO NO NO
ROBERTO M NO SI NO NO NO NO NO NO NO NO SI NO
RAÚL M NO SI NO SI NO NO NO SI NO NO SI NO
ALICIA F NO SI NO NO NO SI NO NO NO SI NO NO
MARÍA FERNANDA F NO SI SI NO NO NO SI SI NO SI NO NO
VÍCTOR MANUEL M NO SI SI SI NO NO NO NO NO NO NO NO
MARÍA ISABEL F NO SI NO NO NO NO NO NO NO NO NO SI
RUBEN M NO SI NO NO NO NO NO NO NO NO SI NO
JORGE JESÚS M NO SI NO NO NO NO SI NO NO NO NO NO
MARÍA TERESA F NO SI NO NO SI NO NO SI NO NO NO NO
LUCÍA F NO SI NO SI NO NO NO SI NO NO SI SI
AGUSTÍN M NO SI NO NO NO NO NO NO SI NO NO NO
JESÚS M NO NO SI NO NO SI NO NO SI NO NO NO
ALEJANDRO M NO NO SI NO SI NO SI NO SI NO NO NO
JOSÉ ANTONIO M NO NO SI NO NO NO NO SI NO NO NO NO
MARIO M NO NO SI SI NO NO NO NO NO NO NO NO
FRANCISCA F NO NO SI NO NO NO SI NO NO NO NO NO
ARMANDO M NO NO SI NO NO NO SI NO NO NO NO NO
PABLO M NO NO SI NO NO NO SI SI NO NO NO NO
MARÍA DEL ROSARIO F NO NO SI NO NO SI NO NO NO NO NO NO
JAIME M NO NO SI NO SI NO NO NO SI SI NO NO
JUAN M NO NO NO SI NO SI NO NO NO NO NO SI
MIGUEL M NO NO NO SI NO NO NO NO NO NO NO NO
EDUARDO M NO NO NO SI NO NO NO NO NO SI SI SI
JOSÉ MANUEL F NO NO NO SI NO NO NO SI NO NO NO NO
VERÓNICA M NO NO NO SI NO NO NO NO NO NO SI NO
ALFREDO M NO NO NO SI NO NO NO NO NO SI NO NO
MARÍA DE LOS ÁNGELES F NO NO NO SI NO NO NO NO NO NO SI NO
MARÍA DE JESÚS F NO NO NO SI SI NO NO NO NO NO NO NO
DIEGO M NO NO NO SI NO NO NO NO NO NO NO NO
JUANA F NO NO NO NO SI NO NO SI NO NO NO NO
FERNANDO M NO NO NO NO SI NO NO NO NO NO SI NO
RICARDO M NO NO NO NO SI NO NO NO NO SI NO NO
ARTURO F NO NO NO NO SI NO NO NO NO NO NO SI
MARÍA DE GUADALUPE F NO NO NO NO SI NO NO SI NO SI NO NO
MARÍA DEL CARMEN F NO NO NO NO NO SI NO NO NO NO NO NO
JAVIER F NO NO NO NO NO SI NO NO NO NO SI NO
JOSEFINA M NO NO NO NO NO SI NO NO NO SI NO SI
SANTIAGO M NO NO NO NO NO SI NO SI SI NO NO NO
ROSA MARÍA F NO NO NO NO NO SI NO SI NO NO NO NO
JOSÉ GUADALUPE M NO NO NO NO NO SI NO NO NO NO NO SI
FRANCISCO M NO NO NO NO NO NO SI NO NO NO NO NO
MANUEL M NO NO NO NO NO NO SI NO NO NO NO NO
MARGARITA F NO NO NO NO NO NO SI NO NO NO NO NO
DANIEL M NO NO NO NO NO NO SI NO NO NO NO NO
MARTÍN M NO NO NO NO NO NO SI NO NO NO NO NO
MARÍA ELENA M NO NO NO NO NO NO SI SI NO NO NO NO
ALBERTO M NO NO NO NO NO NO SI NO NO NO NO NO
LUIS ÁNGEL M NO NO NO NO NO NO SI NO SI NO NO NO
ADRIANA F NO NO NO NO NO NO SI NO NO NO NO NO
MARÍA DE LA LUZ F NO NO NO NO NO NO SI NO NO NO NO NO
cultural <- union(FOL, TAI) %>%
    union(TEA) %>%
    union(RON) %>%
    union(PAN) 
kable(cultural, caption = "Personas que practican actividades culturales")
Personas que practican actividades culturales
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
JOSÉ LUIS M NO NO NO NO NO NO NO SI NO NO NO NO
JUANA F NO NO NO NO SI NO NO SI NO NO NO NO
RAFAEL M NO NO NO NO NO NO NO SI NO NO NO NO
RAÚL M NO SI NO SI NO NO NO SI NO NO SI NO
JOSÉ ANTONIO M NO NO SI NO NO NO NO SI NO NO NO NO
JOSÉ MANUEL F NO NO NO SI NO NO NO SI NO NO NO NO
FRANCISCO JAVIER F SI NO NO NO NO NO NO SI NO NO SI NO
GERARDO F NO NO NO NO NO NO NO SI NO NO NO NO
MARÍA ELENA M NO NO NO NO NO NO SI SI NO NO NO NO
LETICIA F NO NO NO NO NO NO NO SI NO NO SI NO
TERESA F NO NO NO NO NO NO NO SI NO NO NO NO
MARÍA FERNANDA F NO SI SI NO NO NO SI SI NO SI NO NO
ALEJANDRA F NO NO NO NO NO NO NO SI NO NO NO NO
SANTIAGO M NO NO NO NO NO SI NO SI SI NO NO NO
JUAN MANUEL M NO NO NO NO NO NO NO SI NO SI SI NO
ROSA MARÍA F NO NO NO NO NO SI NO SI NO NO NO NO
ELIZABETH F NO NO NO NO NO NO NO SI NO NO NO NO
MARÍA DE GUADALUPE F NO NO NO NO SI NO NO SI NO SI NO NO
PABLO M NO NO SI NO NO NO SI SI NO NO NO NO
JULIO CESAR M SI NO NO NO NO NO NO SI NO NO NO NO
MARÍA TERESA F NO SI NO NO SI NO NO SI NO NO NO NO
LUCÍA F NO SI NO SI NO NO NO SI NO NO SI SI
GUSTAVO M NO NO NO NO NO NO NO SI NO NO NO NO
JESÚS M NO NO SI NO NO SI NO NO SI NO NO NO
MIGUEL ÁNGEL M NO NO NO NO NO NO NO NO SI NO NO NO
ALEJANDRO M NO NO SI NO SI NO SI NO SI NO NO NO
JUAN CARLOS M SI NO NO NO NO NO SI NO SI NO NO NO
ENRIQUE M NO NO NO NO NO NO NO NO SI NO SI NO
LUIS M NO NO NO NO NO NO NO NO SI NO NO SI
LUIS ÁNGEL M NO NO NO NO NO NO SI NO SI NO NO NO
JAIME M NO NO SI NO SI NO NO NO SI SI NO NO
AGUSTÍN M NO SI NO NO NO NO NO NO SI NO NO NO
RICARDO M NO NO NO NO SI NO NO NO NO SI NO NO
EDUARDO M NO NO NO SI NO NO NO NO NO SI SI SI
JOSEFINA M NO NO NO NO NO SI NO NO NO SI NO SI
ALFREDO M NO NO NO SI NO NO NO NO NO SI NO NO
ALICIA F NO SI NO NO NO SI NO NO NO SI NO NO
SILVIA F NO NO NO NO NO NO NO NO NO SI NO NO
RAMÓN M NO NO NO NO NO NO NO NO NO SI NO NO
JOSÉ M NO SI NO SI NO NO NO NO NO NO SI SI
MARÍA GUADALUPE F NO SI NO NO NO NO NO NO NO NO SI SI
ROBERTO M NO SI NO NO NO NO NO NO NO NO SI NO
FERNANDO M NO NO NO NO SI NO NO NO NO NO SI NO
CARLOS M NO NO NO NO NO NO NO NO NO NO SI NO
JAVIER F NO NO NO NO NO SI NO NO NO NO SI NO
VERÓNICA M NO NO NO SI NO NO NO NO NO NO SI NO
MARTHA F NO NO NO NO NO NO NO NO NO NO SI NO
MARÍA DE LOS ÁNGELES F NO NO NO SI NO NO NO NO NO NO SI NO
SALVADOR M SI NO NO NO NO NO SI NO NO NO SI NO
ANA MARÍA F NO NO NO NO NO NO NO NO NO NO SI NO
RUBEN M NO SI NO NO NO NO NO NO NO NO SI NO
JOSÉ DE JESÚS M SI NO SI NO NO SI SI NO NO NO SI NO
ARACELI M NO NO NO NO NO NO NO NO NO NO SI NO
JUAN M NO NO NO SI NO SI NO NO NO NO NO SI
ARTURO F NO NO NO NO SI NO NO NO NO NO NO SI
MARÍA ISABEL F NO SI NO NO NO NO NO NO NO NO NO SI
ANTONIA F NO NO NO NO NO NO NO NO NO NO NO SI
JOSÉ GUADALUPE M NO NO NO NO NO SI NO NO NO NO NO SI
ANDREA F NO NO NO NO NO NO NO NO NO NO NO SI
DeportesCultural <- union(deportes, cultural)
kable(DeportesCultural, caption = "Personas que practican actividades deportivas o culturales")
Personas que practican actividades deportivas o culturales
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
JUAN CARLOS M SI NO NO NO NO NO SI NO SI NO NO NO
JORGE M SI NO NO NO NO NO NO NO NO NO NO NO
FRANCISCO JAVIER F SI NO NO NO NO NO NO SI NO NO SI NO
ROSA F SI NO NO NO NO SI NO NO NO NO NO NO
SERGIO M SI NO NO NO NO NO NO NO NO NO NO NO
YOLANDA F SI NO NO NO SI NO NO NO NO NO NO NO
SALVADOR M SI NO NO NO NO NO SI NO NO NO SI NO
GABRIEL M SI NO SI NO NO SI NO NO NO NO NO NO
ÓSCAR M SI NO NO NO NO NO NO NO NO NO NO NO
MARÍA LUISA F SI NO NO NO NO NO NO NO NO NO NO NO
JULIO CESAR M SI NO NO NO NO NO NO SI NO NO NO NO
JOSÉ DE JESÚS M SI NO SI NO NO SI SI NO NO NO SI NO
IRMA F SI SI NO NO NO NO NO NO NO NO NO NO
JOSÉ M NO SI NO SI NO NO NO NO NO NO SI SI
MARÍA GUADALUPE F NO SI NO NO NO NO NO NO NO NO SI SI
MARÍA F NO SI NO NO SI NO NO NO NO NO NO NO
ROBERTO M NO SI NO NO NO NO NO NO NO NO SI NO
RAÚL M NO SI NO SI NO NO NO SI NO NO SI NO
ALICIA F NO SI NO NO NO SI NO NO NO SI NO NO
MARÍA FERNANDA F NO SI SI NO NO NO SI SI NO SI NO NO
VÍCTOR MANUEL M NO SI SI SI NO NO NO NO NO NO NO NO
MARÍA ISABEL F NO SI NO NO NO NO NO NO NO NO NO SI
RUBEN M NO SI NO NO NO NO NO NO NO NO SI NO
JORGE JESÚS M NO SI NO NO NO NO SI NO NO NO NO NO
MARÍA TERESA F NO SI NO NO SI NO NO SI NO NO NO NO
LUCÍA F NO SI NO SI NO NO NO SI NO NO SI SI
AGUSTÍN M NO SI NO NO NO NO NO NO SI NO NO NO
JESÚS M NO NO SI NO NO SI NO NO SI NO NO NO
ALEJANDRO M NO NO SI NO SI NO SI NO SI NO NO NO
JOSÉ ANTONIO M NO NO SI NO NO NO NO SI NO NO NO NO
MARIO M NO NO SI SI NO NO NO NO NO NO NO NO
FRANCISCA F NO NO SI NO NO NO SI NO NO NO NO NO
ARMANDO M NO NO SI NO NO NO SI NO NO NO NO NO
PABLO M NO NO SI NO NO NO SI SI NO NO NO NO
MARÍA DEL ROSARIO F NO NO SI NO NO SI NO NO NO NO NO NO
JAIME M NO NO SI NO SI NO NO NO SI SI NO NO
JUAN M NO NO NO SI NO SI NO NO NO NO NO SI
MIGUEL M NO NO NO SI NO NO NO NO NO NO NO NO
EDUARDO M NO NO NO SI NO NO NO NO NO SI SI SI
JOSÉ MANUEL F NO NO NO SI NO NO NO SI NO NO NO NO
VERÓNICA M NO NO NO SI NO NO NO NO NO NO SI NO
ALFREDO M NO NO NO SI NO NO NO NO NO SI NO NO
MARÍA DE LOS ÁNGELES F NO NO NO SI NO NO NO NO NO NO SI NO
MARÍA DE JESÚS F NO NO NO SI SI NO NO NO NO NO NO NO
DIEGO M NO NO NO SI NO NO NO NO NO NO NO NO
JUANA F NO NO NO NO SI NO NO SI NO NO NO NO
FERNANDO M NO NO NO NO SI NO NO NO NO NO SI NO
RICARDO M NO NO NO NO SI NO NO NO NO SI NO NO
ARTURO F NO NO NO NO SI NO NO NO NO NO NO SI
MARÍA DE GUADALUPE F NO NO NO NO SI NO NO SI NO SI NO NO
MARÍA DEL CARMEN F NO NO NO NO NO SI NO NO NO NO NO NO
JAVIER F NO NO NO NO NO SI NO NO NO NO SI NO
JOSEFINA M NO NO NO NO NO SI NO NO NO SI NO SI
SANTIAGO M NO NO NO NO NO SI NO SI SI NO NO NO
ROSA MARÍA F NO NO NO NO NO SI NO SI NO NO NO NO
JOSÉ GUADALUPE M NO NO NO NO NO SI NO NO NO NO NO SI
FRANCISCO M NO NO NO NO NO NO SI NO NO NO NO NO
MANUEL M NO NO NO NO NO NO SI NO NO NO NO NO
MARGARITA F NO NO NO NO NO NO SI NO NO NO NO NO
DANIEL M NO NO NO NO NO NO SI NO NO NO NO NO
MARTÍN M NO NO NO NO NO NO SI NO NO NO NO NO
MARÍA ELENA M NO NO NO NO NO NO SI SI NO NO NO NO
ALBERTO M NO NO NO NO NO NO SI NO NO NO NO NO
LUIS ÁNGEL M NO NO NO NO NO NO SI NO SI NO NO NO
ADRIANA F NO NO NO NO NO NO SI NO NO NO NO NO
MARÍA DE LA LUZ F NO NO NO NO NO NO SI NO NO NO NO NO
JOSÉ LUIS M NO NO NO NO NO NO NO SI NO NO NO NO
RAFAEL M NO NO NO NO NO NO NO SI NO NO NO NO
GERARDO F NO NO NO NO NO NO NO SI NO NO NO NO
LETICIA F NO NO NO NO NO NO NO SI NO NO SI NO
TERESA F NO NO NO NO NO NO NO SI NO NO NO NO
ALEJANDRA F NO NO NO NO NO NO NO SI NO NO NO NO
JUAN MANUEL M NO NO NO NO NO NO NO SI NO SI SI NO
ELIZABETH F NO NO NO NO NO NO NO SI NO NO NO NO
GUSTAVO M NO NO NO NO NO NO NO SI NO NO NO NO
MIGUEL ÁNGEL M NO NO NO NO NO NO NO NO SI NO NO NO
ENRIQUE M NO NO NO NO NO NO NO NO SI NO SI NO
LUIS M NO NO NO NO NO NO NO NO SI NO NO SI
SILVIA F NO NO NO NO NO NO NO NO NO SI NO NO
RAMÓN M NO NO NO NO NO NO NO NO NO SI NO NO
CARLOS M NO NO NO NO NO NO NO NO NO NO SI NO
MARTHA F NO NO NO NO NO NO NO NO NO NO SI NO
ANA MARÍA F NO NO NO NO NO NO NO NO NO NO SI NO
ARACELI M NO NO NO NO NO NO NO NO NO NO SI NO
ANTONIA F NO NO NO NO NO NO NO NO NO NO NO SI
ANDREA F NO NO NO NO NO NO NO NO NO NO NO SI
n.DeportesCultural <- nrow(DeportesCultural)
paste("Cantidad de personas que practican o actividad deportiva o cultural son: ", n.DeportesCultural)
## [1] "Cantidad de personas que practican o actividad deportiva o cultural son:  86"
prob.DeportesCultural <- n.DeportesCultural / n
prob.Compl.DeportesCultural <- 1 - prob.DeportesCultural

paste("La probabilida de que no practique ni deportes ni cultural es :", prob.Compl.DeportesCultural * 100, "%")
## [1] "La probabilida de que no practique ni deportes ni cultural es : 14 %"
grid.newpage()
draw.triple.venn(area1 = nrow(deportes), area2 = nrow(cultural), 100 - n.DeportesCultural,
          n12 = nrow(intersect(deportes, cultural)), 
          n23 = 0, 
          n13 = 0, 
          n123 = 0, 
          category = c("Deporte", "Cultural", "No Practican"),
          lty = "blank", 
          fill = c("skyblue", "pink1", "mediumorchid"),
          )

## (polygon[GRID.polygon.1], polygon[GRID.polygon.2], polygon[GRID.polygon.3], polygon[GRID.polygon.4], polygon[GRID.polygon.5], polygon[GRID.polygon.6], text[GRID.text.7], text[GRID.text.8], text[GRID.text.9], text[GRID.text.10], text[GRID.text.11], text[GRID.text.12], text[GRID.text.13])

Probabilidad de que practique deporte y no practiquen actividad cultural

SiDeporte.NoCultural <- setdiff(deportes$nombres, cultural$nombres)  # Trae solo el nombre
SiDeporte.NoCultural
##  [1] "JORGE"             "ROSA"              "SERGIO"           
##  [4] "YOLANDA"           "GABRIEL"           "ÓSCAR"            
##  [7] "MARÍA LUISA"       "IRMA"              "MARÍA"            
## [10] "VÍCTOR MANUEL"     "JORGE JESÚS"       "MARIO"            
## [13] "FRANCISCA"         "ARMANDO"           "MARÍA DEL ROSARIO"
## [16] "MIGUEL"            "MARÍA DE JESÚS"    "DIEGO"            
## [19] "MARÍA DEL CARMEN"  "FRANCISCO"         "MANUEL"           
## [22] "MARGARITA"         "DANIEL"            "MARTÍN"           
## [25] "ALBERTO"           "ADRIANA"           "MARÍA DE LA LUZ"
kable(filter(personas, nombres %in% SiDeporte.NoCultural), caption = "Personas que hacen alguna actividad deportiva y no practican actividad cultural")
Personas que hacen alguna actividad deportiva y no practican actividad cultural
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
FRANCISCO M NO NO NO NO NO NO SI NO NO NO NO NO
MARÍA F NO SI NO NO SI NO NO NO NO NO NO NO
MANUEL M NO NO NO NO NO NO SI NO NO NO NO NO
MARGARITA F NO NO NO NO NO NO SI NO NO NO NO NO
MARÍA DEL CARMEN F NO NO NO NO NO SI NO NO NO NO NO NO
DANIEL M NO NO NO NO NO NO SI NO NO NO NO NO
JORGE M SI NO NO NO NO NO NO NO NO NO NO NO
MIGUEL M NO NO NO SI NO NO NO NO NO NO NO NO
MARTÍN M NO NO NO NO NO NO SI NO NO NO NO NO
ROSA F SI NO NO NO NO SI NO NO NO NO NO NO
MARIO M NO NO SI SI NO NO NO NO NO NO NO NO
FRANCISCA F NO NO SI NO NO NO SI NO NO NO NO NO
SERGIO M SI NO NO NO NO NO NO NO NO NO NO NO
ALBERTO M NO NO NO NO NO NO SI NO NO NO NO NO
ARMANDO M NO NO SI NO NO NO SI NO NO NO NO NO
YOLANDA F SI NO NO NO SI NO NO NO NO NO NO NO
VÍCTOR MANUEL M NO SI SI SI NO NO NO NO NO NO NO NO
MARÍA DE JESÚS F NO NO NO SI SI NO NO NO NO NO NO NO
GABRIEL M SI NO SI NO NO SI NO NO NO NO NO NO
ÓSCAR M SI NO NO NO NO NO NO NO NO NO NO NO
MARÍA LUISA F SI NO NO NO NO NO NO NO NO NO NO NO
MARÍA DEL ROSARIO F NO NO SI NO NO SI NO NO NO NO NO NO
JORGE JESÚS M NO SI NO NO NO NO SI NO NO NO NO NO
DIEGO M NO NO NO SI NO NO NO NO NO NO NO NO
IRMA F SI SI NO NO NO NO NO NO NO NO NO NO
ADRIANA F NO NO NO NO NO NO SI NO NO NO NO NO
MARÍA DE LA LUZ F NO NO NO NO NO NO SI NO NO NO NO NO
#n.SiDeporte.NoCultural <- nrow(SiDeporte.NoCultural)
n.SiDeporte.NoCultural <- length(SiDeporte.NoCultural) # es un vector
paste("La cantidad de personas que practiquen deporte y no practique actividad cultural son: ", n.SiDeporte.NoCultural)
## [1] "La cantidad de personas que practiquen deporte y no practique actividad cultural son:  27"
prob.SiDeporte.NoCultural <- n.SiDeporte.NoCultural / n

paste("La probabilidad de que practiquen deporte y no practique actividad cultural es del: ", prob.SiDeporte.NoCultural,"%")
## [1] "La probabilidad de que practiquen deporte y no practique actividad cultural es del:  0.27 %"

Probabilidad de que practique la actividad deportiva de solamente ajedrez y únicamente ajedrez

soloAJE <- setdiff(AJE, BEI) %>%
  setdiff(TAR) %>%
  setdiff(PES) %>%
  setdiff(FUT) %>%
  setdiff(SOF) %>%
  setdiff(ATL) %>%
  setdiff(FOL) %>%
  setdiff(TAI) %>%
  setdiff(TEA) %>%
  setdiff(RON) %>%
  setdiff(PAN) 

kable(soloAJE, caption = "Las personas que sólo practican Ajedrez")
Las personas que sólo practican Ajedrez
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
JORGE M SI NO NO NO NO NO NO NO NO NO NO NO
SERGIO M SI NO NO NO NO NO NO NO NO NO NO NO
ÓSCAR M SI NO NO NO NO NO NO NO NO NO NO NO
MARÍA LUISA F SI NO NO NO NO NO NO NO NO NO NO NO
# n.solo.AJE <- length(soloAJE) # Es un vector
n.solo.AJE <- nrow(soloAJE) # Es un conjunto data.frame
prob.solo.AJE <- n.solo.AJE / n 
paste("Probabilidad de que practique la actividad deportiva de solamente ajedrez y únicamente ajedrez es:", prob.solo.AJE * 100, "%")
## [1] "Probabilidad de que practique la actividad deportiva de solamente ajedrez y únicamente ajedrez es: 4 %"

Probabilidad de que practique al menos dos deportes al mismo tiempo no importa si practica o no actividad cultural

dosdeportes <- filter(deportes, 
              (ajedrez == 'SI' &  beisbol == 'SI') |
              (ajedrez == 'SI' &  tiro.arco =='SI') |
              (ajedrez == 'SI' &  pesas =='SI') |
              (ajedrez == 'SI' &  futbol =='SI') |
              (ajedrez == 'SI' &  softbol =='SI') |
              (ajedrez == 'SI' &  atletismo =='SI') |  
              (beisbol == 'SI' &  tiro.arco =='SI') |  
              (beisbol == 'SI' &  pesas =='SI') |
              (beisbol == 'SI' &  futbol =='SI') |
              (beisbol == 'SI' &  softbol =='SI') |
              (beisbol == 'SI' &  atletismo =='SI') |
              (tiro.arco == 'SI' &  pesas =='SI') |  
              (tiro.arco == 'SI' &  futbol =='SI') |
              (tiro.arco == 'SI' &  softbol =='SI') |
              (tiro.arco == 'SI' &  atletismo =='SI') |
              (pesas == 'SI' &  futbol =='SI') |
              (pesas == 'SI' &  softbol =='SI') |
              (pesas == 'SI' &  atletismo =='SI') |    
              (futbol == 'SI' &  softbol =='SI') |
              (futbol == 'SI' &  atletismo =='SI') |  
              (softbol == 'SI' &  atletismo =='SI') ) 
                

kable(dosdeportes)
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
JUAN CARLOS M SI NO NO NO NO NO SI NO SI NO NO NO
ROSA F SI NO NO NO NO SI NO NO NO NO NO NO
YOLANDA F SI NO NO NO SI NO NO NO NO NO NO NO
SALVADOR M SI NO NO NO NO NO SI NO NO NO SI NO
GABRIEL M SI NO SI NO NO SI NO NO NO NO NO NO
JOSÉ DE JESÚS M SI NO SI NO NO SI SI NO NO NO SI NO
IRMA F SI SI NO NO NO NO NO NO NO NO NO NO
JOSÉ M NO SI NO SI NO NO NO NO NO NO SI SI
MARÍA F NO SI NO NO SI NO NO NO NO NO NO NO
RAÚL M NO SI NO SI NO NO NO SI NO NO SI NO
ALICIA F NO SI NO NO NO SI NO NO NO SI NO NO
MARÍA FERNANDA F NO SI SI NO NO NO SI SI NO SI NO NO
VÍCTOR MANUEL M NO SI SI SI NO NO NO NO NO NO NO NO
JORGE JESÚS M NO SI NO NO NO NO SI NO NO NO NO NO
MARÍA TERESA F NO SI NO NO SI NO NO SI NO NO NO NO
LUCÍA F NO SI NO SI NO NO NO SI NO NO SI SI
JESÚS M NO NO SI NO NO SI NO NO SI NO NO NO
ALEJANDRO M NO NO SI NO SI NO SI NO SI NO NO NO
MARIO M NO NO SI SI NO NO NO NO NO NO NO NO
FRANCISCA F NO NO SI NO NO NO SI NO NO NO NO NO
ARMANDO M NO NO SI NO NO NO SI NO NO NO NO NO
PABLO M NO NO SI NO NO NO SI SI NO NO NO NO
MARÍA DEL ROSARIO F NO NO SI NO NO SI NO NO NO NO NO NO
JAIME M NO NO SI NO SI NO NO NO SI SI NO NO
JUAN M NO NO NO SI NO SI NO NO NO NO NO SI
MARÍA DE JESÚS F NO NO NO SI SI NO NO NO NO NO NO NO
cuantos <- nrow(dosdeportes)

prob <- cuantos / n 
prob
## [1] 0.26
paste("La probabilidad de que practique al menos dos deportes al mismo tiempo no importa si practica o no actividad cultural:", prob * 100, "%")
## [1] "La probabilidad de que practique al menos dos deportes al mismo tiempo no importa si practica o no actividad cultural: 26 %"
frecuenciasSI <- deportes %>% count(ajedrez, beisbol, tiro.arco, pesas, futbol, softbol, atletismo)
kable(frecuenciasSI, row.names = 1:nrow(frecuenciasSI))
## Warning in if (is.na(row.names)) row.names = has_rownames(x): la condición tiene
## longitud > 1 y sólo el primer elemento será usado
## Warning in if (row.names) {: la condición tiene longitud > 1 y sólo el primer
## elemento será usado
ajedrez beisbol tiro.arco pesas futbol softbol atletismo n
1 NO NO NO NO NO NO SI 10
2 NO NO NO NO NO SI NO 6
3 NO NO NO NO SI NO NO 5
4 NO NO NO SI NO NO NO 7
5 NO NO NO SI NO SI NO 1
6 NO NO NO SI SI NO NO 1
7 NO NO SI NO NO NO NO 1
8 NO NO SI NO NO NO SI 3
9 NO NO SI NO NO SI NO 2
10 NO NO SI NO SI NO NO 1
11 NO NO SI NO SI NO SI 1
12 NO NO SI SI NO NO NO 1
13 NO SI NO NO NO NO NO 5
14 NO SI NO NO NO NO SI 1
15 NO SI NO NO NO SI NO 1
16 NO SI NO NO SI NO NO 2
17 NO SI NO SI NO NO NO 3
18 NO SI SI NO NO NO SI 1
19 NO SI SI SI NO NO NO 1
20 SI NO NO NO NO NO NO 6
21 SI NO NO NO NO NO SI 2
22 SI NO NO NO NO SI NO 1
23 SI NO NO NO SI NO NO 1
24 SI NO SI NO NO SI NO 1
25 SI NO SI NO NO SI SI 1
26 SI SI NO NO NO NO NO 1

Probabilidad de que practique al menos una actividad deportiva o al menos una actividad cultural al mismo tiemp

kable(union(deportes, cultural), caption = "Pesonas que al menos practican un deporte o una actividad cultural")
Pesonas que al menos practican un deporte o una actividad cultural
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
JUAN CARLOS M SI NO NO NO NO NO SI NO SI NO NO NO
JORGE M SI NO NO NO NO NO NO NO NO NO NO NO
FRANCISCO JAVIER F SI NO NO NO NO NO NO SI NO NO SI NO
ROSA F SI NO NO NO NO SI NO NO NO NO NO NO
SERGIO M SI NO NO NO NO NO NO NO NO NO NO NO
YOLANDA F SI NO NO NO SI NO NO NO NO NO NO NO
SALVADOR M SI NO NO NO NO NO SI NO NO NO SI NO
GABRIEL M SI NO SI NO NO SI NO NO NO NO NO NO
ÓSCAR M SI NO NO NO NO NO NO NO NO NO NO NO
MARÍA LUISA F SI NO NO NO NO NO NO NO NO NO NO NO
JULIO CESAR M SI NO NO NO NO NO NO SI NO NO NO NO
JOSÉ DE JESÚS M SI NO SI NO NO SI SI NO NO NO SI NO
IRMA F SI SI NO NO NO NO NO NO NO NO NO NO
JOSÉ M NO SI NO SI NO NO NO NO NO NO SI SI
MARÍA GUADALUPE F NO SI NO NO NO NO NO NO NO NO SI SI
MARÍA F NO SI NO NO SI NO NO NO NO NO NO NO
ROBERTO M NO SI NO NO NO NO NO NO NO NO SI NO
RAÚL M NO SI NO SI NO NO NO SI NO NO SI NO
ALICIA F NO SI NO NO NO SI NO NO NO SI NO NO
MARÍA FERNANDA F NO SI SI NO NO NO SI SI NO SI NO NO
VÍCTOR MANUEL M NO SI SI SI NO NO NO NO NO NO NO NO
MARÍA ISABEL F NO SI NO NO NO NO NO NO NO NO NO SI
RUBEN M NO SI NO NO NO NO NO NO NO NO SI NO
JORGE JESÚS M NO SI NO NO NO NO SI NO NO NO NO NO
MARÍA TERESA F NO SI NO NO SI NO NO SI NO NO NO NO
LUCÍA F NO SI NO SI NO NO NO SI NO NO SI SI
AGUSTÍN M NO SI NO NO NO NO NO NO SI NO NO NO
JESÚS M NO NO SI NO NO SI NO NO SI NO NO NO
ALEJANDRO M NO NO SI NO SI NO SI NO SI NO NO NO
JOSÉ ANTONIO M NO NO SI NO NO NO NO SI NO NO NO NO
MARIO M NO NO SI SI NO NO NO NO NO NO NO NO
FRANCISCA F NO NO SI NO NO NO SI NO NO NO NO NO
ARMANDO M NO NO SI NO NO NO SI NO NO NO NO NO
PABLO M NO NO SI NO NO NO SI SI NO NO NO NO
MARÍA DEL ROSARIO F NO NO SI NO NO SI NO NO NO NO NO NO
JAIME M NO NO SI NO SI NO NO NO SI SI NO NO
JUAN M NO NO NO SI NO SI NO NO NO NO NO SI
MIGUEL M NO NO NO SI NO NO NO NO NO NO NO NO
EDUARDO M NO NO NO SI NO NO NO NO NO SI SI SI
JOSÉ MANUEL F NO NO NO SI NO NO NO SI NO NO NO NO
VERÓNICA M NO NO NO SI NO NO NO NO NO NO SI NO
ALFREDO M NO NO NO SI NO NO NO NO NO SI NO NO
MARÍA DE LOS ÁNGELES F NO NO NO SI NO NO NO NO NO NO SI NO
MARÍA DE JESÚS F NO NO NO SI SI NO NO NO NO NO NO NO
DIEGO M NO NO NO SI NO NO NO NO NO NO NO NO
JUANA F NO NO NO NO SI NO NO SI NO NO NO NO
FERNANDO M NO NO NO NO SI NO NO NO NO NO SI NO
RICARDO M NO NO NO NO SI NO NO NO NO SI NO NO
ARTURO F NO NO NO NO SI NO NO NO NO NO NO SI
MARÍA DE GUADALUPE F NO NO NO NO SI NO NO SI NO SI NO NO
MARÍA DEL CARMEN F NO NO NO NO NO SI NO NO NO NO NO NO
JAVIER F NO NO NO NO NO SI NO NO NO NO SI NO
JOSEFINA M NO NO NO NO NO SI NO NO NO SI NO SI
SANTIAGO M NO NO NO NO NO SI NO SI SI NO NO NO
ROSA MARÍA F NO NO NO NO NO SI NO SI NO NO NO NO
JOSÉ GUADALUPE M NO NO NO NO NO SI NO NO NO NO NO SI
FRANCISCO M NO NO NO NO NO NO SI NO NO NO NO NO
MANUEL M NO NO NO NO NO NO SI NO NO NO NO NO
MARGARITA F NO NO NO NO NO NO SI NO NO NO NO NO
DANIEL M NO NO NO NO NO NO SI NO NO NO NO NO
MARTÍN M NO NO NO NO NO NO SI NO NO NO NO NO
MARÍA ELENA M NO NO NO NO NO NO SI SI NO NO NO NO
ALBERTO M NO NO NO NO NO NO SI NO NO NO NO NO
LUIS ÁNGEL M NO NO NO NO NO NO SI NO SI NO NO NO
ADRIANA F NO NO NO NO NO NO SI NO NO NO NO NO
MARÍA DE LA LUZ F NO NO NO NO NO NO SI NO NO NO NO NO
JOSÉ LUIS M NO NO NO NO NO NO NO SI NO NO NO NO
RAFAEL M NO NO NO NO NO NO NO SI NO NO NO NO
GERARDO F NO NO NO NO NO NO NO SI NO NO NO NO
LETICIA F NO NO NO NO NO NO NO SI NO NO SI NO
TERESA F NO NO NO NO NO NO NO SI NO NO NO NO
ALEJANDRA F NO NO NO NO NO NO NO SI NO NO NO NO
JUAN MANUEL M NO NO NO NO NO NO NO SI NO SI SI NO
ELIZABETH F NO NO NO NO NO NO NO SI NO NO NO NO
GUSTAVO M NO NO NO NO NO NO NO SI NO NO NO NO
MIGUEL ÁNGEL M NO NO NO NO NO NO NO NO SI NO NO NO
ENRIQUE M NO NO NO NO NO NO NO NO SI NO SI NO
LUIS M NO NO NO NO NO NO NO NO SI NO NO SI
SILVIA F NO NO NO NO NO NO NO NO NO SI NO NO
RAMÓN M NO NO NO NO NO NO NO NO NO SI NO NO
CARLOS M NO NO NO NO NO NO NO NO NO NO SI NO
MARTHA F NO NO NO NO NO NO NO NO NO NO SI NO
ANA MARÍA F NO NO NO NO NO NO NO NO NO NO SI NO
ARACELI M NO NO NO NO NO NO NO NO NO NO SI NO
ANTONIA F NO NO NO NO NO NO NO NO NO NO NO SI
ANDREA F NO NO NO NO NO NO NO NO NO NO NO SI
prob.Deportes <- nrow(deportes) / n # P(A)
prob.Cultural <- nrow(cultural) / n # P(B)

# P(A ∩ B)
deporte.intersect.cultural <- intersect(deportes, cultural)
n.almenos.deporte.cultural <- nrow(deporte.intersect.cultural)

prob.deporte.intersec.cultural <- n.almenos.deporte.cultural / n

# Aplicar fórmula 
prob.almenos.deporte.cultural <- prob.Deportes + prob.Cultural - prob.deporte.intersec.cultural

paste("La probabilidad de que practique al menos una actividad deportiva o al menos una actividad cultural al mismo tiempo es:", prob.almenos.deporte.cultural * 100, "%")
## [1] "La probabilidad de que practique al menos una actividad deportiva o al menos una actividad cultural al mismo tiempo es: 86 %"
# Comprobar con union(deportes, cultural)
# Tambien se pudo haber resuelto el complemento de la probabilidad del punto 4.1

paste("La probabilidad de que practique al menos una actividad deportiva o al menos una actividad cultural al mismo ya se tenía en 4.1 es: ",prob.DeportesCultural * 100,"%")
## [1] "La probabilidad de que practique al menos una actividad deportiva o al menos una actividad cultural al mismo ya se tenía en 4.1 es:  86 %"

Probabilidad de que una persona sea del género masculino

n.MAS <- nrow(MAS)
prob.MAS <- n.MAS / n
paste("La probabilidad de que una persona sea del género masculino es: ", prob.MAS, "%")
## [1] "La probabilidad de que una persona sea del género masculino es:  0.58 %"

Probabilidad de que una persona sea del género femenino

n.FEM <- nrow(FEM)
prob.FEM <- n.FEM / n
paste("La probabilidad de que una persona sea del género femenino es: ", prob.FEM, "%")
## [1] "La probabilidad de que una persona sea del género femenino es:  0.42 %"

Probabilidad de que una persona sea del género masculino y practique pesas y futbol al mismo tiempo

intersect.MAS.PES.FUT <- intersect(MAS, PES) %>%
  intersect(FUT)

n.intersect.MAS.PES.FUT <- nrow(intersect.MAS.PES.FUT)
prob.intersect.MAS.PES.FUT <- n.intersect.MAS.PES.FUT / n

if (prob.intersect.MAS.PES.FUT > 0) {
  kable(intersect.MAS.PES.FUT, caption = "Personas de género masculino que practican pesas y fútbol", )
  paste("¿Habrá del género Femenino, en este conjunto de datos?")
} 

paste("La probabilidad de que una persona sea del género masculino y practique pesas y futbol al mismo tiempo: ", prob.intersect.MAS.PES.FUT, "%")
## [1] "La probabilidad de que una persona sea del género masculino y practique pesas y futbol al mismo tiempo:  0 %"

Probabilidad de que una persona sea del género femenino y practique pesas y futbol al mismo tiempo

intersect.FEM.PES.FUT <- intersect(FEM, PES) %>%
  intersect(FUT)

n.intersect.FEM.PES.FUT <- nrow(intersect.FEM.PES.FUT)
prob.intersect.FEM.PES.FUT <- n.intersect.FEM.PES.FUT / n

if (prob.intersect.FEM.PES.FUT > 0) {
  kable(intersect.FEM.PES.FUT, caption = "Personas de género femenino que practican pesas y fútbol", )

} 
Personas de género femenino que practican pesas y fútbol
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
MARÍA DE JESÚS F NO NO NO SI SI NO NO NO NO NO NO NO

Probabilidad de que una persona sea del género femenino y practique rondalla y tahitiano

intersect.FEM.TAI.RON <- intersect(FEM, TAI) %>%
  intersect(RON)

n.intersect.FEM.TAI.RON <- nrow(intersect.FEM.TAI.RON)
prob.intersect.FEM.TAI.RON <- n.intersect.FEM.TAI.RON / n

if (prob.intersect.FEM.TAI.RON > 0) {
  kable(intersect.FEM.TAI.RON, caption = "Personas de género femenino que practican tahitiano y rondalla", )

} 
paste("La probabilidad de que una persona sea del género femenino y practique tahitiano y rondalla al mismo tiempo es: ", prob.intersect.FEM.TAI.RON * 100 , "%")
## [1] "La probabilidad de que una persona sea del género femenino y practique tahitiano y rondalla al mismo tiempo es:  0 %"