Caso 10. Operaciones sobre conjuntos de personas y probabilidades

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.

Marco teórico

Pendiente…

Proceso

• 1. Cargar librerías
• 2. Determinar conjuntos de datos llamando a un archivo previamente construido .R
• 3. Determinar conjuntos de datos a partir de todos los datos con la función filter() y select()

Conjunto	Descripción
masculinos	Conjunto de personas género masculino
femeninos	Conjunto de personas género masculino
ajedrez	Personas que juegan ajedrez
beisbol	Personas que juegan beisbol
tiro.arco	Personas que juegan tiro con arco
pesas	Personas que practican pesas
futbol	Personas que juegan ajedrez
softbol	Personas que juegan softbol
atletismo	Personas que prctican atletis o
culturales	Todos los conjuntos de acts. culturales
NoDeporte	Personas que no hacen deporte
NoCultural	Personas que no hacen actividad cultural

• 4. Determinar probabilidades mediante operaciones de conjuntos, frecuencias realativas o mediante fórmula para determinar probabilidades. \[ P(A ∪ B) = P(A) + P(B) – P(A ∩ B)\]
  • 4.1. Probabilidad de que una persona no practique deporte ni practique actividad cultural.
  • 4.2. Probabilidad de que practique deporte y no practique actividad cultural
  • 4.3. Probabilidad de que practique la actividad deportiva de solamente ajedrez y únicamente ajedrez.
  • 4.4. Probabilidad de que practique al menos dos deportes al mismo tiempo no importa si practica o no actividad cultural.
  • 4.5. Probabilidad de que practique al menos una actividad deportiva y al menos una actividad cultural al mismo tiempo.
  • 4.6. Probabilidad de que una persona sea del género masculino.
  • 4.7. Probabilidad de que una persona sea del género femenino.
  • 4.8. Probabilidad de que una persona sea del género femenino y practique el deporte del softbol.
  • 4.9. Probabilidad de que una persona sea del género masculino y practique pesas y futbol al mismo tiempo.
  • 4.10. Probabilidad de que una persona sea del género femenino y practique rondalla y tahitiano.
• 5. Interpretación del caso de entre 180 y 200 palabras tratando de contestar las probabilidades de los puntos del 4.1 en adelante.

Elabora run archivo markdown y enviar el enlace del archivo en el servicio en la nube rpubs a plataforma schoology. Usar en enlace de guía: PENDIENTE

1. Cargar librerías

library(VennDiagram)
library(dplyr)
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") 

• Mostrar los datos

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

• ¿Cuántos casos hay en todo el conjunto de datos ?
• Determinar la variable n igual al total de observaciones o registros de de personas

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

• Utilizando la función que devuelve el conjunto de datos enviando el valor de la columna adecuada
• Se puede mandar llamar local como se indica en el códifo R o desde una dirección URL como el caso de source(“https://raw.githubusercontent.com/rpizarrog/probabilidad-y-estad-stica/master/construir%20datos%20y%20funciones%20caso%209.r”, encoding = “UTF-8”)

# source("../funciones/funcion para caso10.r")

• Los géneros masculino o femenino
• Masculinos

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

• Femeninos

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

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

• Las actividades culturales
• 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

• 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

• Va todos

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.

\[ P(A ∪ B) = P(A) + P(B) – P(A ∩ B)\]

4.1. Probabilidad de que una persona no practique deporte ni practique actividad cultural.

• Se tiene todos los conjuntos de deportes y culturales
• Determinar el conjunto de solo deportes con union
• Determinar el conjunto de solo culturales con union
• Realizar la unión de conjuntos deportes y cultural con union
• Identificar cuantos elementos (cardinalidad) hay en el subconjunto
• Determinar el complemento de la union de todos esos subconjuntos
• Se utiliza pipes %>% para conectar expresiones
• Determinar la probabilidad

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

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

• Ya se tienen conjuntos deportes y culturales
• Diferencia de conjuntos, los que están en deportes y no están en culturales

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.

• Ya se tiene Ajedrez AJE
• Se puede utilizar diferencia de conjuntos

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.

• Dia 22 Oct 2020
• Ya tenemos todas los subconjuntos de deportes

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

• Otra solución

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.

• Ya se dispone del conjunto de datos deportes
• Ya se dispone del conjunto de datos cultural
• Aplicar fórmula \[ P(A ∪ B) = P(A) + P(B) – P(A ∩ B)\]
• Determinar la probabilidad

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

• Ya es tiene MAS 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.

• Ya es tienen FEM 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.

• Ya se tiene conjunto masculino MAS
• Ya se tiene conjunto pesas PES
• Ya se tiene conjunto de FUT
• Identifiar la interseccion de los tres subconjuntos
• Con la antidad de registros de la intersección, determinar la probabilidad
• Comprobar …

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.

• Ya se tiene conjunto femenino FEM
• Ya se tiene conjunto pesas PES
• Ya se tiene conjunto de FUT
• Identifiar la interseccion de los tres subconjuntos
• Con la antidad de registros de la intersección, determinar la probabilidad
• Comprobar …

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.

• Ya se tiene FEM
• Ya se tiene TAI
• Ya se tiene RON

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", )

} 

Personas de género femenino que practican tahitiano y rondalla

nombres	generos	ajedrez	beisbol	tiro.arco	pesas	futbol	softbol	atletismo	folklorico	tahitiano	teatro	rondalla	pantomima
ENRIQUE	F	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	SI	NO

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

5. Interpretación del caso de entre 180 y 200 palabras tratando de contestar las probabilidades de los puntos del 4.1 en adelante

En el punto 4.1 se determinó que la probabilida de que no practique ni deportes ni cultural es :", 14 %

En el punto 4.2. ….

En el punto 4.10 …La probabilidad de que una persona sea del género femenino y practique tahitiano y rondalla al mismo tiempo es: ", 1 %

Es importante destacar aue en el caso además de mostrar los conjunts de datos previos y resultantes, se observan los diagramas de Venn