Objetivo

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

Descripción

#Determinar probabilidades conjuntos y subconjuntos aplicando operaciones de conjuntos e identificando cardinalidad o la cantidad de elementos de los conjuntos en relación al total de elementos.

1.- Cargar las 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)

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

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

MAS=f.obten.subconjunto(personas,"masculino")
kable(MAS, caption = "Genero Masculino")
Genero 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 = "Genero Femenino")
Genero 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 = "Futbol")
Futbol
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 = "Softbol")
Softbol
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

Folklorico

FOL=f.obten.subconjunto(personas, 'folklorico')
kable(FOL, caption = "Baile Folklórico")
Baile Folklórico
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
JOSÉ LUIS M NO NO NO NO NO NO NO SI NO NO NO NO
JUANA F NO NO NO NO SI NO NO SI NO NO NO NO
RAFAEL M NO NO NO NO NO NO NO SI NO NO NO NO
RAÚL M NO SI NO SI NO NO NO SI NO NO SI NO
JOSÉ ANTONIO M NO NO SI NO NO NO NO SI NO NO NO NO
JOSÉ MANUEL F NO NO NO SI NO NO NO SI NO NO NO NO
FRANCISCO JAVIER F SI NO NO NO NO NO NO SI NO NO SI NO
GERARDO F NO NO NO NO NO NO NO SI NO NO NO NO
MARÍA ELENA M NO NO NO NO NO NO SI SI NO NO NO NO
LETICIA F NO NO NO NO NO NO NO SI NO NO SI NO
TERESA F NO NO NO NO NO NO NO SI NO NO NO NO
MARÍA FERNANDA F NO SI SI NO NO NO SI SI NO SI NO NO
ALEJANDRA F NO NO NO NO NO NO NO SI NO NO NO NO
SANTIAGO M NO NO NO NO NO SI NO SI SI NO NO NO
JUAN MANUEL M NO NO NO NO NO NO NO SI NO SI SI NO
ROSA MARÍA F NO NO NO NO NO SI NO SI NO NO NO NO
ELIZABETH F NO NO NO NO NO NO NO SI NO NO NO NO
MARÍA DE GUADALUPE F NO NO NO NO SI NO NO SI NO SI NO NO
PABLO M NO NO SI NO NO NO SI SI NO NO NO NO
JULIO CESAR M SI NO NO NO NO NO NO SI NO NO NO NO
MARÍA TERESA F NO SI NO NO SI NO NO SI NO NO NO NO
LUCÍA F NO SI NO SI NO NO NO SI NO NO SI SI
GUSTAVO M NO NO NO NO NO NO NO SI NO NO NO NO

Tahitiano

TAI=f.obten.subconjunto(personas, 'tahitiano')
kable(TAI, caption = "Baile Tahitiano")
Baile Tahitiano
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
JESÚS M NO NO SI NO NO SI NO NO SI NO NO NO
MIGUEL ÁNGEL M NO NO NO NO NO NO NO NO SI NO NO NO
ALEJANDRO M NO NO SI NO SI NO SI NO SI NO NO NO
JUAN CARLOS M SI NO NO NO NO NO SI NO SI NO NO NO
ENRIQUE F NO NO NO NO NO NO NO NO SI NO SI NO
LUIS M NO NO NO NO NO NO NO NO SI NO NO SI
SANTIAGO M NO NO NO NO NO SI NO SI SI NO NO NO
LUIS ÁNGEL M NO NO NO NO NO NO SI NO SI NO NO NO
JAIME M NO NO SI NO SI NO NO NO SI SI NO NO
AGUSTÍN M NO SI NO NO NO NO NO NO SI NO NO NO

Teatro

TEA=f.obten.subconjunto(personas, 'teatro')
kable(TEA, caption = "Teatro")
Teatro
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
RICARDO M NO NO NO NO SI NO NO NO NO SI NO NO
EDUARDO M NO NO NO SI NO NO NO NO NO SI SI SI
JOSEFINA M NO NO NO NO NO SI NO NO NO SI NO SI
ALFREDO M NO NO NO SI NO NO NO NO NO SI NO NO
ALICIA F NO SI NO NO NO SI NO NO NO SI NO NO
MARÍA FERNANDA F NO SI SI NO NO NO SI SI NO SI NO NO
JUAN MANUEL M NO NO NO NO NO NO NO SI NO SI SI NO
SILVIA F NO NO NO NO NO NO NO NO NO SI NO NO
MARÍA DE GUADALUPE F NO NO NO NO SI NO NO SI NO SI NO NO
RAMÓN M NO NO NO NO NO NO NO NO NO SI NO NO
JAIME M NO NO SI NO SI NO NO NO SI SI NO NO

Rondalla

RON=f.obten.subconjunto(personas, 'rondalla')
kable(RON, caption = "Rondalla")
Rondalla
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
JOSÉ M NO SI NO SI NO NO NO NO NO NO SI SI
MARÍA GUADALUPE F NO SI NO NO NO NO NO NO NO NO SI SI
ROBERTO M NO SI NO NO NO NO NO NO NO NO SI NO
FERNANDO M NO NO NO NO SI NO NO NO NO NO SI NO
CARLOS M NO NO NO NO NO NO NO NO NO NO SI NO
EDUARDO M NO NO NO SI NO NO NO NO NO SI SI SI
JAVIER F NO NO NO NO NO SI NO NO NO NO SI NO
RAÚL M NO SI NO SI NO NO NO SI NO NO SI NO
FRANCISCO JAVIER F SI NO NO NO NO NO NO SI NO NO SI NO
ENRIQUE F NO NO NO NO NO NO NO NO SI NO SI NO
VERÓNICA M NO NO NO SI NO NO NO NO NO NO SI NO
LETICIA F NO NO NO NO NO NO NO SI NO NO SI NO
MARTHA F NO NO NO NO NO NO NO NO NO NO SI NO
MARÍA DE LOS ÁNGELES F NO NO NO SI NO NO NO NO NO NO SI NO
JUAN MANUEL M NO NO NO NO NO NO NO SI NO SI SI NO
SALVADOR M SI NO NO NO NO NO SI NO NO NO SI NO
ANA MARÍA F NO NO NO NO NO NO NO NO NO NO SI NO
RUBEN M NO SI NO NO NO NO NO NO NO NO SI NO
JOSÉ DE JESÚS M SI NO SI NO NO SI SI NO NO NO SI NO
ARACELI M NO NO NO NO NO NO NO NO NO NO SI NO
LUCÍA F NO SI NO SI NO NO NO SI NO NO SI SI

Pantomima

PAN=f.obten.subconjunto(personas, 'pantomima')
kable(PAN, caption = "Pantomima")
Pantomima
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
JUAN M NO NO NO SI NO SI NO NO NO NO NO SI
JOSÉ M NO SI NO SI NO NO NO NO NO NO SI SI
MARÍA GUADALUPE F NO SI NO NO NO NO NO NO NO NO SI SI
EDUARDO M NO NO NO SI NO NO NO NO NO SI SI SI
JOSEFINA M NO NO NO NO NO SI NO NO NO SI NO SI
ARTURO F NO NO NO NO SI NO NO NO NO NO NO SI
LUIS M NO NO NO NO NO NO NO NO SI NO NO SI
MARÍA ISABEL F NO SI NO NO NO NO NO NO NO NO NO SI
ANTONIA F NO NO NO NO NO NO NO NO NO NO NO SI
JOSÉ GUADALUPE M NO NO NO NO NO SI NO NO NO NO NO SI
ANDREA F NO NO NO NO NO NO NO NO NO NO NO SI
LUCÍA F NO SI NO SI NO NO NO SI NO NO SI SI

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

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

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 Practicxa"),
                 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 = "Personasque hacen alguna actividad deportiva y no practican actividad cultural")
Personasque 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 ú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=nrow(soloAJE)
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 %"

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 
prob.Cultural=nrow(cultural) / n 

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 %"
paste("La probabilidad de que practique al menos una actividad deportiva o al menos una actividad cultural al mismo ya se tenía en 4.1 es: ",prob.DeportesCultural * 100,"%")
## [1] "La probabilidad de que practique al menos una actividad deportiva o al menos una actividad cultural al mismo ya se tenía en 4.1 es:  86 %"

4.6 Probabilidad de que una persona sea del género masculino.

n.MAS=nrow(MAS)
prob.MAS= n.MAS/n
paste("La probabilidad de que una persona sea del género masculino es: ", prob.MAS, "%")
## [1] "La probabilidad de que una persona sea del género masculino es:  0.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.9 Variante

intersect.FEM.PES.FUT=intersect(FEM, PES) %>%
  intersect(FUT)

n.intersect.FEM.PES.FUT=nrow(intersect.FEM.PES.FUT)
prob.intersect.FEM.PES.FUT=n.intersect.FEM.PES.FUT / n

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

}
Personas de género femenino que practican pesas y fútbol
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
MARÍA DE JESÚS F NO NO NO SI SI NO NO NO NO NO NO NO 
paste("La probabilidad de que una persona sea del género femenino y practique pesas y futbol al mismo tiempo: ", prob.intersect.FEM.PES.FUT * 100 , "%")
## [1] "La probabilidad de que una persona sea del género femenino y practique pesas y futbol al mismo tiempo:  1 %"

4.10 Probabilidad de que una persona sea del género femenino y practique rondalla y tahitiano.

intersect.FEM.TAI.RON=intersect(FEM, TAI) %>%
  intersect(RON)

n.intersect.FEM.TAI.RON=nrow(intersect.FEM.TAI.RON)
prob.intersect.FEM.TAI.RON=n.intersect.FEM.TAI.RON / n

if (prob.intersect.FEM.TAI.RON > 0) {
  kable(intersect.FEM.TAI.RON, caption = "Personas de género femenino que practican tahitiano y rondalla", )

}
Personas de género femenino que practican tahitiano y rondalla
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
ENRIQUE F NO NO NO NO NO NO NO NO SI NO SI NO 
paste("La probabilidad de que una persona sea del género femenino y practique tahitiano y rondalla al mismo tiempo es: ", prob.intersect.FEM.TAI.RON * 100 , "%")
## [1] "La probabilidad de que una persona sea del género femenino y practique tahitiano y rondalla al mismo tiempo es:  1 %"

Descripcion

Primero cargamos las librerias para despues proceder a determinar el conjunto de datos para esto utilizamos lo siguiente source(“https://raw.githubusercontent.com/rpizarrog/probabilidad-y-estadstica/master/construir%20datos%20y%20funciones%20caso%209.r”, encoding = “UTF-8”). para mandar llamar los datos que necesitamos y determinar el conjuntos de datos que utilizaremos para determinar las probabilidades.

Ahora determinamos las probabilidades de los datos para distintas preguntas y las visualizamos con un diagrama de Venn.

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

4.2. Probabilidad de que practique deporte y no practique actividad cultural: 0.27%

4.3. Probabilidad de que practique la actividad deportiva de solamente ajedrez y únicamente ajedrez:4%

4.4. Probabilidad de que practique al menos dos deportes al mismo tiempono importa si practica o no actividad cultural: 26%

4.5. Probabilidad de que practique al menos una actividad deportiva y al menos una actividad cultural al mismo tiempo: 86%

4.6. Probabilidad de que una persona sea del género masculino:0.57%

4.7. Probabilidad de que una persona sea del género femenino:0.43%

4.8. Probabilidad de que una persona sea del género femenino y practique el deporte del softbol: 1%

4.9. 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:1%