CASO10

library(VennDiagram)

## Loading required package: grid

## Loading required package: futile.logger

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)

source("/home/brandon/Downloads/construir_datos_y_funciones_caso_9.r", encoding = "UTF-8") 
source("/home/brandon/Downloads//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	F	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. 3. Determinar conjuntos de datos.
#a partir de todos los datos con la función filter() select().
#Tablas de genero.

 #   Genero masculino.

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

#Genero femenino.

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
ENRIQUE	F	NO	NO	NO	NO	NO	NO	NO	NO	SI	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

#Tablas de actividades deportivas.

    #Ajedrez.

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

# Beisbol.

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

#*Tiro con arco.

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

# Pesas.

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

# Futbol.

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

    #Softbol.

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

#Atletismo.

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

#Tablas de actividades culturales.

   # Baile Folklórico.

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

#Baile Tahitiano.

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	F	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

# Teatro.

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

# Rondalla.

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	F	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

# Pantomima.

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

#4. Determinar probabilidades mediante operaciones de conjuntos y mediante fórmula para determinar probabilidades, así como visualizar diagramas de Venn.
#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) 

cultural <- union(FOL, TAI) %>%
    union(TEA) %>%
    union(RON) %>%
    union(PAN) 

DeportesCultural <- union(deportes, cultural)

n.DeportesCultural <- nrow(DeportesCultural)
# paste("Cantidad de personas que practican o actividad deportiva o cultural son: ", n.DeportesCultural)

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

#Diagrama de venn.

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) 

n.SiDeporte.NoCultural <- length(SiDeporte.NoCultural)
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"

SiDep.NoCul <- data.frame(filter(personas, nombres %in% SiDeporte.NoCultural))

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) 

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

cuantos <- nrow(dosdeportes)

prob <- cuantos / n 
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 %"

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

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

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

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

#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) {
  tabla.MAS.PES.FUT <- data.frame(intersect.MAS.PES.FUT)
} 

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

#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) {
  tabla.FEM.TAI.RON <- data.frame(intersect.FEM.TAI.RON)
} 

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

#Conclusión.
#Para este caso en particular se utilizaron las librerías del caso anterior (Caso 9), esto para determinar un universo con el cual trabajar, en este caso también utilizaremos la librería de VennDiagram, esto para graficar un Diagrama de Venn, con el objetivo de facilitar la información que se está manejando.
#Para determinar las probabilidades de que una persona no practique ningún deporte, a la vez que tampoco practica ninguna actividad cultural, primero es necesario saber cuántas personas practican, ya sea una actividad cultural o un deporte, con este dato revisamos el universo (100 personas) para luego sacar la probabilidad, después restamos esta probabilidad al 100% y nos resulta la probabilidad que estamos buscando, que en este caso es 14%.
#Con los conjuntos que tenemos es necesario determinar la diferencia de los participantes de un deporte y una actividad cultural, esto se logra con una exclusión, después solo resta sacar el numero total de personan que quedaron dentro de la exclusión, para luego dividirlo entre el universo y así sacar la probabilidad un 27%.
#En caso de solo requerir una actividad en concreto como es el ajedrez, será necesario determinar una exclusión de todas las demás actividades deportivas, dentro de nuestro subconjunto deportes, ya con eso dividiremos el numero total del resultado sobre el universo para así determinar la probabilidad que esta es 4%.