###Objetivo.Determinar probabilidades de varios conjuntos de datos realizando uniones,intersecciones, diferencias, complementos y mostrar diagramas de Venn.

###Descripción.Determinar probabilidades de conjuntos y subconjuntos aplicando operaciones de conjuntos.

###1. Cargar librerías

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)
## 
## 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)

###2. Cargar los datos

source("https://raw.githubusercontent.com/rpizarrog/probabilidad-y-estad-stica/master/construir%20datos%20y%20funciones%20caso%209.r", encoding = "UTF-8")

# Mandar llamar de manera local
# source("../funciones/funcion para caso10.r") 
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

###3. Determinar conjuntos de datos a partir de todos los datos con la función filter() y select()

# 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')

###4. 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])

###4.2. 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 %"

###4.3. 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 %"

###4.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

###4.5. Probabilidad de que practique al menos una actividad deportiva o al menos una actividad cultural al mismo tiempo.

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 %"

###4.6. 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 %"

###4.7. 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 %"

###4.8. Probabilidad de que una persona sea del genero femenino y no practique el deporte sofbol.

intersect.FEM.SOF <- intersect(FEM,SOF) %>%
  intersect(SOF)

n.intersect.FEM.SOF <-nrow(intersect.FEM.SOF)
prob.intersect.FEM.SOF <-n.intersect.FEM.SOF / n

kable(intersect.FEM.SOF,caption = "Personas de genero femenino que practican SOTBOL", )
Personas de genero femenino que practican SOTBOL
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
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
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
ROSA MARÍA F NO NO NO NO NO SI NO SI NO NO NO NO
MARÍA DEL ROSARIO F NO NO SI NO NO SI NO NO NO NO NO NO

###4.9. 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 %"

###Variante del punto 4.9. 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 
paste("La probabilidad de que una persona sea del género femenino y practique pesas y futbol al mismo tiempo: ", prob.intersect.FEM.PES.FUT * 100 , "%")
## [1] "La probabilidad de que una persona sea del género femenino y practique pesas y futbol al mismo tiempo:  1 %"

###4.10. 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 %"

###5. Interpretación del caso de entre 180 y 200 palabras de manera descriptiva **en este caso numero 10 se trabajo con diferentes variables estas variables trabajan con los nombres de diferentes personas de los cuales unos practican ciertos deportes otras no practican nada, como podemos observar en el punto 4.1 nos dice que Probabilidad ahi de que una persona no practique deporte ni practique actividad cultural esto nos arrojo el resultado de 14%, esto nos quiere decir que es buena ya que el otro 86% de las personas si practican estos desportes o cultura, a los que nos da a indicar que esas personas se mantienen activas, llenas de energia, en el siguiente punto en el 4.2 nos dice que Probabilidad de que practique deporte y no practiquen actividad cultural , esto nos dio el resultado de 0.27, este resultado nos quiere decir que la mayoria de las personas les gusta practicar mas los diferentes tipos de deportes , esto se puede dar a conocer ya por los gustos de cada uno de ellos de que les guste futbol basquet, etc, de la misma manera ahi otros puntos impostantes como lo son e 4.3 que nos pide cual es la Probabilidad de que practique la actividad deportiva de solamente ajedrez y únicamente ajedrez, a lo que nos dio como resultado,4%, este cantidad nos quiere decir que del 100% de las personas solo el 4 realiza esta actividad de jugar ajedrez esto quiere decir que a las personas no les llama mucho la atencion de jugar ajedrez, el punto 4.4 dice que cual es la Probabilidad de que practique al menos dos deportes al mismo tiempo no importa si practica o no actividad cultural a lo cual nos dio como resultado 26%, esto quiere decir que del 100% son muy pocos los que estan realizando dos actividades esto quiere decir que todos si son activos pero aun unos que solamnete realizan el doble de trabajo por el simple echo de que practican dos deportes, en el punto 4.5 nos dice que Probabilidad de que practique al menos una actividad deportiva o al menos una actividad cultural al mismo tiempo, a lo que nos dio el resultado de 86%,esto quiere decir que el porcentaje dado fue alto y bueno ya que la mayoria si realiza deportes y la otra parte realiza actividades culturales, esto nos dio el resultado de 86 %, en el punto 4.6 nos dice que Probabilidad de que una persona sea del género masculino, esto nos dio el resultado de 0.57%, en el punto 4.8 Probabilidad de que una persona sea del genero femenino y no practique el deporte sofbol, a lo que nos da el resultado de que la mayoria de ellos no practica el softbol, en el punto 4.9 se deribo de dos formas los resultados que nos dio fueron los siguientes,Probabilidad de que una persona sea del género masculino y practique pesas y futbol al mismo tiempo., a lo que nos dio como resultado 0%, en la otra extencion que fue, Variante del punto 4.9. Probabilidad de que una persona sea del género femenino y practique pesas y futbol al mismo tiempo, y esto nos dio el porcentaje de 1%, en el ultimo punto que es el 4.10 dice que Probabilidad de que una persona sea del género femenino y practique rondalla y tahitiano, esto nos dio el resultado de 1%.