Caso 10

Objetivo

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

Descripción

Determinar probabilidades de conjuntos y subconjuntos aplicando operaciones de conjuntos.

1. Cargar librerías.

library(VennDiagram)

## Warning: package 'VennDiagram' was built under R version 4.0.3

## Loading required package: grid

## Loading required package: futile.logger

## Warning: package 'futile.logger' was built under R version 4.0.3

library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(knitr)

2. Cargar los datos.

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

• Tabla de 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

n <- nrow(personas) 
n

## [1] 100

Paso 3 Determinar conjuntos de datos a partir de datos con la funcion filter y select

• Masculinos

MAS <- f.obten.subconjunto(personas, 'masculino')
kable(MAS, caption = "G攼㸹nero Masculino")

G<U+653C><U+3E39>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

• Femenino

FEM <- f.obten.subconjunto(personas, 'femenino')
kable(FEM, caption = "G攼㸹nero Femenino")

G<U+653C><U+3E39>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

• 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<U+663C><U+3E61>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<U+663C><U+3E33>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

• Actividades culturales Folklorico

FOL <- f.obten.subconjunto(personas, 'folklorico')
kable(FOL, caption = "Baile Folkl昼㸳rico")

Baile Folkl<U+663C><U+3E33>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

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

Paso 4 Determinar probabilidades mediante operaciones de conjuntos, Frecuencias relativas o mediante formula para determinar probabilidades

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

deportes <- union(AJE, BEI) %>%
    union(TAR) %>%
    union(PES) %>%
    union(FUT) %>%
    union(SOF) %>%
    union(ATL) 
kable(deportes, caption = "Personas que practican actividad deportiva")

Personas que practican actividad deportiva

nombres	generos	ajedrez	beisbol	tiro.arco	pesas	futbol	softbol	atletismo	folklorico	tahitiano	teatro	rondalla	pantomima
JUAN CARLOS	M	SI	NO	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO
JORGE	M	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
FRANCISCO JAVIER	F	SI	NO	NO	NO	NO	NO	NO	SI	NO	NO	SI	NO
ROSA	F	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO
SERGIO	M	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
YOLANDA	F	SI	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
SALVADOR	M	SI	NO	NO	NO	NO	NO	SI	NO	NO	NO	SI	NO
GABRIEL	M	SI	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO
ÓSCAR	M	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARÍA LUISA	F	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JULIO CESAR	M	SI	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
JOSÉ DE JESÚS	M	SI	NO	SI	NO	NO	SI	SI	NO	NO	NO	SI	NO
IRMA	F	SI	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JOSÉ	M	NO	SI	NO	SI	NO	NO	NO	NO	NO	NO	SI	SI
MARÍA GUADALUPE	F	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	SI	SI
MARÍA	F	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
ROBERTO	M	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO
RAÚL	M	NO	SI	NO	SI	NO	NO	NO	SI	NO	NO	SI	NO
ALICIA	F	NO	SI	NO	NO	NO	SI	NO	NO	NO	SI	NO	NO
MARÍA FERNANDA	F	NO	SI	SI	NO	NO	NO	SI	SI	NO	SI	NO	NO
VÍCTOR MANUEL	M	NO	SI	SI	SI	NO	NO	NO	NO	NO	NO	NO	NO
MARÍA ISABEL	F	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI
RUBEN	M	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO
JORGE JESÚS	M	NO	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
MARÍA TERESA	F	NO	SI	NO	NO	SI	NO	NO	SI	NO	NO	NO	NO
LUCÍA	F	NO	SI	NO	SI	NO	NO	NO	SI	NO	NO	SI	SI
AGUSTÍN	M	NO	SI	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO
JESÚS	M	NO	NO	SI	NO	NO	SI	NO	NO	SI	NO	NO	NO
ALEJANDRO	M	NO	NO	SI	NO	SI	NO	SI	NO	SI	NO	NO	NO
JOSÉ ANTONIO	M	NO	NO	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO
MARIO	M	NO	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO	NO
FRANCISCA	F	NO	NO	SI	NO	NO	NO	SI	NO	NO	NO	NO	NO
ARMANDO	M	NO	NO	SI	NO	NO	NO	SI	NO	NO	NO	NO	NO
PABLO	M	NO	NO	SI	NO	NO	NO	SI	SI	NO	NO	NO	NO
MARÍA DEL ROSARIO	F	NO	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO
JAIME	M	NO	NO	SI	NO	SI	NO	NO	NO	SI	SI	NO	NO
JUAN	M	NO	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO	SI
MIGUEL	M	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO
EDUARDO	M	NO	NO	NO	SI	NO	NO	NO	NO	NO	SI	SI	SI
JOSÉ MANUEL	F	NO	NO	NO	SI	NO	NO	NO	SI	NO	NO	NO	NO
VERÓNICA	M	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	SI	NO
ALFREDO	M	NO	NO	NO	SI	NO	NO	NO	NO	NO	SI	NO	NO
MARÍA DE LOS ÁNGELES	F	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	SI	NO
MARÍA DE JESÚS	F	NO	NO	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO
DIEGO	M	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO
JUANA	F	NO	NO	NO	NO	SI	NO	NO	SI	NO	NO	NO	NO
FERNANDO	M	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	SI	NO
RICARDO	M	NO	NO	NO	NO	SI	NO	NO	NO	NO	SI	NO	NO
ARTURO	F	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	SI
MARÍA DE GUADALUPE	F	NO	NO	NO	NO	SI	NO	NO	SI	NO	SI	NO	NO
MARÍA DEL CARMEN	F	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO
JAVIER	F	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	SI	NO
JOSEFINA	M	NO	NO	NO	NO	NO	SI	NO	NO	NO	SI	NO	SI
SANTIAGO	M	NO	NO	NO	NO	NO	SI	NO	SI	SI	NO	NO	NO
ROSA MARÍA	F	NO	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO	NO
JOSÉ GUADALUPE	M	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	SI
FRANCISCO	M	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
MANUEL	M	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
MARGARITA	F	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
DANIEL	M	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
MARTÍN	M	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
MARÍA ELENA	M	NO	NO	NO	NO	NO	NO	SI	SI	NO	NO	NO	NO
ALBERTO	M	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
LUIS ÁNGEL	M	NO	NO	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO
ADRIANA	F	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
MARÍA DE LA LUZ	F	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO

cultural <- union(FOL, TAI) %>%
    union(TEA) %>%
    union(RON) %>%
    union(PAN) 
kable(cultural, caption = "Personas que practican actividades culturales")

Personas que practican actividades culturales

nombres	generos	ajedrez	beisbol	tiro.arco	pesas	futbol	softbol	atletismo	folklorico	tahitiano	teatro	rondalla	pantomima
JOSÉ LUIS	M	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
JUANA	F	NO	NO	NO	NO	SI	NO	NO	SI	NO	NO	NO	NO
RAFAEL	M	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
RAÚL	M	NO	SI	NO	SI	NO	NO	NO	SI	NO	NO	SI	NO
JOSÉ ANTONIO	M	NO	NO	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO
JOSÉ MANUEL	F	NO	NO	NO	SI	NO	NO	NO	SI	NO	NO	NO	NO
FRANCISCO JAVIER	F	SI	NO	NO	NO	NO	NO	NO	SI	NO	NO	SI	NO
GERARDO	F	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
MARÍA ELENA	M	NO	NO	NO	NO	NO	NO	SI	SI	NO	NO	NO	NO
LETICIA	F	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	SI	NO
TERESA	F	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
MARÍA FERNANDA	F	NO	SI	SI	NO	NO	NO	SI	SI	NO	SI	NO	NO
ALEJANDRA	F	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
SANTIAGO	M	NO	NO	NO	NO	NO	SI	NO	SI	SI	NO	NO	NO
JUAN MANUEL	M	NO	NO	NO	NO	NO	NO	NO	SI	NO	SI	SI	NO
ROSA MARÍA	F	NO	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO	NO
ELIZABETH	F	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
MARÍA DE GUADALUPE	F	NO	NO	NO	NO	SI	NO	NO	SI	NO	SI	NO	NO
PABLO	M	NO	NO	SI	NO	NO	NO	SI	SI	NO	NO	NO	NO
JULIO CESAR	M	SI	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
MARÍA TERESA	F	NO	SI	NO	NO	SI	NO	NO	SI	NO	NO	NO	NO
LUCÍA	F	NO	SI	NO	SI	NO	NO	NO	SI	NO	NO	SI	SI
GUSTAVO	M	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
JESÚS	M	NO	NO	SI	NO	NO	SI	NO	NO	SI	NO	NO	NO
MIGUEL ÁNGEL	M	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO
ALEJANDRO	M	NO	NO	SI	NO	SI	NO	SI	NO	SI	NO	NO	NO
JUAN CARLOS	M	SI	NO	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO
ENRIQUE	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 %"

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)  
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 <- 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 unicamente 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<U+663C><U+3E33>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 <- 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 <U+663C><U+3E61>nicamente ajedrez es: 4 %"

4.4 Probabilidad de que practique al menos 2 deportes al mismo tiempo no importa si practiqua 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

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


deporte.intersect.cultural <- intersect(deportes, cultural)
n.almenos.deporte.cultural <- nrow(deporte.intersect.cultural)

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


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

MAS <- f.obten.subconjunto(personas, 'masculino')
kable(MAS, caption = "G攼㸹nero Masculino")

G<U+653C><U+3E39>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

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<U+653C><U+3E39>nero masculino es:  0.57 %"

4.7 Probabilidad de que una persona sea del genero femenino

FEM <- f.obten.subconjunto(personas, 'femenino')
kable(FEM, caption = "G攼㸹nero Femenino")

G<U+653C><U+3E39>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

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<U+653C><U+3E39>nero femenino es:  0.43 %"

4.9 Probabilidad de que una persona sea del genero femenino y practique pesas y futbol al mismo tiempo

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

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

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

} 

Personas de g<U+653C><U+3E39>nero femenino que practican pesas y f<U+663C><U+3E61>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

4.10 Probabilidad de que una persona sea del genero 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<U+653C><U+3E39>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

Paso 5 Interpretación del caso

En este caso número 10, se utilizaron librerías que ya se habían utilizado anteriormente (Caso 9) y otras que nos permitirá utilizar el diagrama de Venn que esta librería es: “Library (VennDiagram)” y de esta forma podremos ver la probabilidad de manera gráfica y más comprensible. En el primer punto se sacó la probabilidad de cuantas personas practican deporte y las que no practican ningún tipo de deporte. Los que practican algún deporte o Actividad Cultural tiene una probabilidad de 86% Y los que no practican ninguno son el 14% De todas las personas hay una mínima probabilidad de que algunas personas no practique ni alguna actividad deportiva ni cultural. Con los conjuntos que tenemos es necesario determinar la diferencia de los participantes de un deporte y una actividad cultural, esto se logra con una exclusión, después solo resta sacar el número total de personan que quedaron dentro de la exclusión, para luego dividirlo entre el universo y así sacar la probabilidad un 27%. Y en cuestión más general, los otros puntos trabajan de la misma, sacando la probabilidad de cuantas personas hacen algún deporte y que otras no.