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.

Cargar librerias

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)

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

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

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

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

PAN <- f.obten.subconjunto(personas, 'pantomima')
kable(PAN, caption = "Pantomima")

Pantomima
nombres	generos	ajedrez	beisbol	tiro.arco	pesas	futbol	softbol	atletismo	folklorico	tahitiano	teatro	rondalla	pantomima
JUAN	M	NO	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO	SI
JOSÉ	M	NO	SI	NO	SI	NO	NO	NO	NO	NO	NO	SI	SI
MARÍA GUADALUPE	F	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	SI	SI
EDUARDO	M	NO	NO	NO	SI	NO	NO	NO	NO	NO	SI	SI	SI
JOSEFINA	M	NO	NO	NO	NO	NO	SI	NO	NO	NO	SI	NO	SI
ARTURO	F	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	SI
LUIS	M	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	SI
MARÍA ISABEL	F	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI
ANTONIA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI
JOSÉ GUADALUPE	M	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	SI
ANDREA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI
LUCÍA	F	NO	SI	NO	SI	NO	NO	NO	SI	NO	NO	SI	SI

TEA <- f.obten.subconjunto(personas, 'teatro')
RON <- f.obten.subconjunto(personas, 'rondalla')
PAN <- f.obten.subconjunto(personas, 'pantomima')

Determinar probabilidades mediante operaciones de conjuntos, frecuencias realativas o mediante fórmula para determinar probabilidades.

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

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

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

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

}

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

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

La cantidad de personas que practican actividad deportiva o cultural son “86”, y la probabilidad de que no practiquen ninguna es de “14”.

Personas que practican deporte y no actividad cultural son de “27”, su probabilidad es de “0.27%”. Probabilidad de que practique la actividad deportiva ajedrez y solo esa es de “4”, su porcentaje es de “0.26%”

La probabilidad de que practique al menos 2 deportes al mismo tiempo es “26%”

Su total probabilidad de que practique al menos una actividad deportiva y cultural al mismo tiempo es de “86%”, la probabilidad de al menos actividad deportiva y actividad cultural al mismo tiempo es “86%”

La probabilidad de que una persona del género femenino es “0.43%” Probabilidad de que una persona sea del genero masculino y practique pesas y futbol al mismo tiempo “0%”

La probabilidad de que una persona sea del genero femenino y practique pesas y futbol al mismo tiempo “1%”. Probabilidad de que una persona del genero femenino practique rondalla y tahitiano es de “1%”