1. Cargar Librerías
library(knitr)
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(gtools)
  1. Determinar o construir el conjunto de datos
# source("../funciones/construir datos y funciones caso 9.r", encoding = "UTF-8")

# o bien pueden cargar desde github

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

*Mostrar los datos

kable(personas)
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
JUAN M NO NO NO NO NO NO NO NO NO NO NO NO
JOSÉ LUIS M NO NO NO NO NO NO NO NO NO NO NO NO
JOSÉ M NO SI NO NO SI SI SI SI NO NO SI NO
MARÍA GUADALUPE F NO SI NO NO SI SI SI SI NO NO SI NO
FRANCISCO M NO NO NO NO NO NO NO NO NO NO NO NO
GUADALUPE F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA F NO NO NO NO NO NO NO NO NO NO NO NO
JUANA F NO NO NO NO NO NO NO NO NO NO NO NO
ANTONIO M NO NO NO NO NO NO NO NO NO NO NO NO
JESÚS M NO NO NO NO NO NO NO NO NO NO NO NO
MIGUEL ÁNGEL M NO NO NO NO NO NO NO NO NO NO NO NO
PEDRO M NO NO NO NO NO NO NO NO NO NO NO NO
ALEJANDRO M NO NO NO NO NO NO NO NO NO NO NO NO
MANUEL M NO NO NO NO NO NO NO NO NO NO NO NO
MARGARITA F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA DEL CARMEN F NO NO NO NO NO NO NO NO NO NO NO NO
JUAN CARLOS M SI SI SI SI SI SI SI SI SI SI SI SI
ROBERTO M NO NO NO NO NO NO NO NO NO NO NO NO
FERNANDO M NO NO NO NO NO NO NO NO NO NO NO NO
DANIEL M NO NO NO NO NO NO NO NO NO NO NO NO
CARLOS M NO NO NO NO NO NO NO NO NO NO NO NO
JORGE M SI SI SI SI SI SI SI SI SI SI SI SI
RICARDO M NO NO NO NO NO NO NO NO NO NO NO NO
MIGUEL M NO NO NO NO NO NO NO NO NO NO NO NO
EDUARDO M NO NO NO NO NO NO NO NO NO NO NO NO
JAVIER F NO NO NO NO NO NO NO NO NO NO NO NO
RAFAEL M NO NO NO NO NO NO NO NO NO NO NO NO
MARTÍN M NO NO NO NO NO NO NO NO NO NO NO NO
RAÚL M NO SI NO NO SI SI SI 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 NO NO NO NO NO NO NO
JOSÉ ANTONIO M NO NO NO NO NO NO NO NO NO NO NO NO
ARTURO F NO NO NO NO NO NO NO NO NO NO NO NO
MARCO ANTONIO M NO NO NO NO NO NO NO NO NO NO NO NO
JOSÉ MANUEL F NO NO NO NO NO NO NO NO NO NO NO NO
FRANCISCO JAVIER F SI SI SI SI SI SI SI SI SI SI SI SI
ENRIQUE F NO NO NO NO NO NO NO NO NO NO NO NO
VERÓNICA M NO NO NO NO NO NO NO NO NO NO NO NO
GERARDO F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA ELENA M NO NO NO NO NO NO NO NO NO NO NO NO
LETICIA F NO NO NO NO NO NO NO NO NO NO NO NO
ROSA F SI SI SI SI SI SI SI SI SI SI SI SI
MARIO M NO NO NO NO NO NO NO NO NO NO NO NO
FRANCISCA F NO NO NO NO NO NO NO NO NO NO NO NO
ALFREDO M NO NO NO NO NO NO NO NO NO NO NO NO
TERESA F NO NO NO NO NO NO NO NO NO NO NO NO
ALICIA F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA FERNANDA F NO SI NO NO SI SI SI SI NO NO SI NO
SERGIO M SI SI SI SI SI SI SI SI SI SI SI SI
ALBERTO M NO NO NO NO NO NO NO NO NO NO NO NO
LUIS M NO NO NO NO NO NO NO NO NO NO NO NO
ARMANDO M NO NO NO NO NO NO NO NO NO NO NO NO
ALEJANDRA F NO NO NO NO NO NO NO NO NO NO NO NO
MARTHA F NO NO NO NO NO NO NO NO NO NO NO NO
SANTIAGO M NO NO NO NO NO NO NO NO NO NO NO NO
YOLANDA F SI SI SI SI SI SI SI SI SI SI SI SI
PATRICIA F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA DE LOS ÁNGELES F NO NO NO NO NO NO NO NO NO NO NO NO
JUAN MANUEL M NO NO NO NO NO NO NO NO NO NO NO NO
ROSA MARÍA F NO NO NO NO NO NO NO NO NO NO NO NO
ELIZABETH F NO NO NO NO NO NO NO NO 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 SI SI SI SI SI SI SI SI SI SI SI
VÍCTOR MANUEL M NO SI NO NO SI SI SI SI NO NO SI NO
SILVIA F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA DE GUADALUPE F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA DE JESÚS F NO NO NO NO NO NO NO NO NO NO NO NO
GABRIEL M SI SI SI SI SI SI SI SI SI SI SI SI
ANDRÉS M NO NO NO NO NO NO NO NO NO NO NO NO
ÓSCAR M SI SI SI SI SI SI SI SI SI SI SI SI
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 NO NO
RAMÓN M NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA ISABEL F NO SI NO NO SI SI SI SI NO NO SI NO
PABLO M NO NO NO NO NO NO NO NO NO NO NO NO
RUBEN M NO SI NO NO SI SI SI SI NO NO SI NO
ANTONIA F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA LUISA F SI SI SI SI SI SI SI SI SI SI SI SI
LUIS ÁNGEL M NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA DEL ROSARIO F NO NO NO NO NO NO NO NO NO NO NO NO
FELIPE M NO SI NO NO SI SI SI SI NO NO SI NO
JORGE JESÚS M NO NO NO NO NO NO NO NO NO NO NO NO
JAIME M NO NO NO NO NO NO NO NO NO NO NO NO
JOSÉ GUADALUPE M NO NO NO NO NO NO NO NO NO NO NO NO
JULIO CESAR M SI SI SI SI SI SI SI SI SI SI SI SI
JOSÉ DE JESÚS M SI SI SI SI SI SI SI SI SI SI SI SI
DIEGO M NO NO NO NO NO NO NO NO NO NO NO NO
ARACELI M NO NO NO NO NO NO NO NO NO NO NO NO
ANDREA F NO NO NO NO NO NO NO NO NO NO NO NO
ISABEL F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA TERESA F NO NO NO NO NO NO NO NO NO NO NO NO
IRMA F SI SI SI SI SI SI SI SI SI SI SI SI
CARMEN F NO NO NO NO NO NO NO NO NO NO NO NO
LUCÍA F NO NO NO NO NO NO NO NO NO NO NO NO
ADRIANA F NO NO NO NO NO NO NO NO NO NO NO NO
AGUSTÍN M NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA DE LA LUZ F NO NO NO NO NO NO NO NO NO NO NO NO
GUSTAVO M NO NO NO NO NO NO NO NO NO NO NO NO
  1. Determinar probabilidades ¿Cuántos casos hay en todo el conjunto de datos ? Determinar la variable n igual al total de observaciones o registros de de personas
n <- nrow(personas)

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

nopractica <- filter(personas, ajedrez == 'NO' 
  &  beisbol == 'NO' & tiro.arco =='NO' & pesas == 'NO' 
  & futbol == 'NO' & softbol == 'NO' & atletismo == 'NO' 
  & folklorico == 'NO' & tahitiano == 'NO' 
  & teatro == 'NO' & rondalla == 'NO' 
  & pantomima == 'NO')
kable(nopractica)
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
JUAN M NO NO NO NO NO NO NO NO NO NO NO NO
JOSÉ LUIS M NO NO NO NO NO NO NO NO NO NO NO NO
FRANCISCO M NO NO NO NO NO NO NO NO NO NO NO NO
GUADALUPE F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA F NO NO NO NO NO NO NO NO NO NO NO NO
JUANA F NO NO NO NO NO NO NO NO NO NO NO NO
ANTONIO M NO NO NO NO NO NO NO NO NO NO NO NO
JESÚS M NO NO NO NO NO NO NO NO NO NO NO NO
MIGUEL ÁNGEL M NO NO NO NO NO NO NO NO NO NO NO NO
PEDRO M NO NO NO NO NO NO NO NO NO NO NO NO
ALEJANDRO M NO NO NO NO NO NO NO NO NO NO NO NO
MANUEL M NO NO NO NO NO NO NO NO NO NO NO NO
MARGARITA F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA DEL CARMEN F NO NO NO NO NO NO NO NO NO NO NO NO
ROBERTO M NO NO NO NO NO NO NO NO NO NO NO NO
FERNANDO M NO NO NO NO NO NO NO NO NO NO NO NO
DANIEL M NO NO NO NO NO NO NO NO NO NO NO NO
CARLOS M NO NO NO NO NO NO NO NO NO NO NO NO
RICARDO M NO NO NO NO NO NO NO NO NO NO NO NO
MIGUEL M NO NO NO NO NO NO NO NO NO NO NO NO
EDUARDO M NO NO NO NO NO NO NO NO NO NO NO NO
JAVIER F NO NO NO NO NO NO NO NO NO NO NO NO
RAFAEL M NO NO NO NO NO NO NO NO NO NO NO NO
MARTÍN M NO NO NO NO NO NO NO NO NO NO NO NO
DAVID M NO NO NO NO NO NO NO NO NO NO NO NO
JOSEFINA M NO NO NO NO NO NO NO NO NO NO NO NO
JOSÉ ANTONIO M NO NO NO NO NO NO NO NO NO NO NO NO
ARTURO F NO NO NO NO NO NO NO NO NO NO NO NO
MARCO ANTONIO M NO NO NO NO NO NO NO NO NO NO NO NO
JOSÉ MANUEL F NO NO NO NO NO NO NO NO NO NO NO NO
ENRIQUE F NO NO NO NO NO NO NO NO NO NO NO NO
VERÓNICA M NO NO NO NO NO NO NO NO NO NO NO NO
GERARDO F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA ELENA M NO NO NO NO NO NO NO NO NO NO NO NO
LETICIA F NO NO NO NO NO NO NO NO NO NO NO NO
MARIO M NO NO NO NO NO NO NO NO NO NO NO NO
FRANCISCA F NO NO NO NO NO NO NO NO NO NO NO NO
ALFREDO M NO NO NO NO NO NO NO NO NO NO NO NO
TERESA F NO NO NO NO NO NO NO NO NO NO NO NO
ALICIA F NO NO NO NO NO NO NO NO NO NO NO NO
ALBERTO M NO NO NO NO NO NO NO NO NO NO NO NO
LUIS M NO NO NO NO NO NO NO NO NO NO NO NO
ARMANDO M NO NO NO NO NO NO NO NO NO NO NO NO
ALEJANDRA F NO NO NO NO NO NO NO NO NO NO NO NO
MARTHA F NO NO NO NO NO NO NO NO NO NO NO NO
SANTIAGO M NO NO NO NO NO 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 NO NO NO NO NO NO NO NO NO
JUAN MANUEL M NO NO NO NO NO NO NO NO NO NO NO NO
ROSA MARÍA F NO NO NO NO NO NO NO NO NO NO NO NO
ELIZABETH F NO NO NO NO NO NO NO NO 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
SILVIA F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA DE GUADALUPE F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA DE JESÚS F NO NO NO NO NO NO NO NO NO NO NO NO
ANDRÉS M NO 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 NO NO
RAMÓN M NO NO NO NO NO NO NO NO NO NO NO NO
PABLO M NO NO NO NO NO NO NO NO NO NO NO NO
ANTONIA F NO NO NO NO NO NO NO NO NO NO NO NO
LUIS ÁNGEL M NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA DEL ROSARIO F NO NO NO NO NO NO NO NO NO NO NO NO
JORGE JESÚS M NO NO NO NO NO NO NO NO NO NO NO NO
JAIME M NO NO NO NO NO NO NO NO NO NO NO NO
JOSÉ GUADALUPE M NO NO NO NO NO NO NO NO NO NO NO NO
DIEGO M NO NO NO NO NO NO NO NO NO NO NO NO
ARACELI M NO NO NO NO NO NO NO NO NO NO NO NO
ANDREA F NO NO NO NO NO NO NO NO NO NO NO NO
ISABEL F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA TERESA F NO NO 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 NO NO NO NO NO NO NO NO NO NO NO
ADRIANA F NO NO NO NO NO NO NO NO NO NO NO NO
AGUSTÍN M NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA DE LA LUZ F NO NO NO NO NO NO NO NO NO NO NO NO
GUSTAVO M NO NO NO NO NO NO NO NO NO NO NO NO
cuantos <- nrow(nopractica)

prob <- cuantos / n * 100
prob
## [1] 79

*La probabilida de que una persona no practique deporte ni practique actividad cultural es del: 79 %

3.2. Probabilidad de que practiquen deporte y no practiquen actividad cultural

sideportenocultural <- filter(personas, (ajedrez == 'SI' 
  |  beisbol == 'SI' | tiro.arco =='SI' | pesas == 'SI' 
  | futbol == 'SI' | softbol == 'SI' | atletismo == 'SI') 
  & folklorico == 'NO' & tahitiano == 'NO' 
  & teatro == 'NO' & rondalla == 'NO' 
  & pantomima == 'NO')

kable(sideportenocultural)
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
cuantos <- nrow(sideportenocultural)

prob <- cuantos / n * 100
prob
## [1] 0

*Probabilidad de que practiquen deporte y no practique actividad cultural es del : 0 % 3.3. Probabilidad de que practique la actividad deportiva de solamente ajedrez y únicamente ajedrez. Buscar personas que sea absolutamente ajedrez y nada mas que ajedrez

ajedrez <- filter(personas, ajedrez == 'SI' 
  &  beisbol == 'NO' & tiro.arco =='NO' & pesas == 'NO' & futbol == 'NO' & softbol == 'NO' 
  & atletismo == 'NO'  
  & folklorico == 'NO' & tahitiano == 'NO' 
  & teatro == 'NO' & rondalla == 'NO' 
  & pantomima == 'NO')

kable(ajedrez)
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
cuantos <- nrow(ajedrez)

prob <- cuantos / n * 100
prob
## [1] 0

*La probabilidad de que una persona practique la actividad deportiva de solamente ajedrez y únicamente ajedrez es del 0 %

3.4. Probabilidad de que practique al menos dos deportes al mismo tiempo no importa si practica o no actividad cultural.

combinations(7, 2, deportivas, )
##       [,1]        [,2]           
##  [1,] "Ajedrez"   "Atletismo"    
##  [2,] "Ajedrez"   "Béisbol"      
##  [3,] "Ajedrez"   "Fútbol"       
##  [4,] "Ajedrez"   "Pesas"        
##  [5,] "Ajedrez"   "Softbol"      
##  [6,] "Ajedrez"   "Tiro con arco"
##  [7,] "Atletismo" "Béisbol"      
##  [8,] "Atletismo" "Fútbol"       
##  [9,] "Atletismo" "Pesas"        
## [10,] "Atletismo" "Softbol"      
## [11,] "Atletismo" "Tiro con arco"
## [12,] "Béisbol"   "Fútbol"       
## [13,] "Béisbol"   "Pesas"        
## [14,] "Béisbol"   "Softbol"      
## [15,] "Béisbol"   "Tiro con arco"
## [16,] "Fútbol"    "Pesas"        
## [17,] "Fútbol"    "Softbol"      
## [18,] "Fútbol"    "Tiro con arco"
## [19,] "Pesas"     "Softbol"      
## [20,] "Pesas"     "Tiro con arco"
## [21,] "Softbol"   "Tiro con arco"

Identificar cuando prctique dos actividades deportivas combinando expresiones or agrupadas en paréntesis

dosdeportes <- filter(personas, 
              (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
JOSÉ M NO SI NO NO SI SI SI SI NO NO SI NO
MARÍA GUADALUPE F NO SI NO NO SI SI SI SI NO NO SI NO
JUAN CARLOS M SI SI SI SI SI SI SI SI SI SI SI SI
JORGE M SI SI SI SI SI SI SI SI SI SI SI SI
RAÚL M NO SI NO NO SI SI SI SI NO NO SI NO
FRANCISCO JAVIER F SI SI SI SI SI SI SI SI SI SI SI SI
ROSA F SI SI SI SI SI SI SI SI SI SI SI SI
MARÍA FERNANDA F NO SI NO NO SI SI SI SI NO NO SI NO
SERGIO M SI SI SI SI SI SI SI SI SI SI SI SI
YOLANDA F SI SI SI SI SI SI SI SI SI SI SI SI
SALVADOR M SI SI SI SI SI SI SI SI SI SI SI SI
VÍCTOR MANUEL M NO SI NO NO SI SI SI SI NO NO SI NO
GABRIEL M SI SI SI SI SI SI SI SI SI SI SI SI
ÓSCAR M SI SI SI SI SI SI SI SI SI SI SI SI
MARÍA ISABEL F NO SI NO NO SI SI SI SI NO NO SI NO
RUBEN M NO SI NO NO SI SI SI SI NO NO SI NO
MARÍA LUISA F SI SI SI SI SI SI SI SI SI SI SI SI
FELIPE M NO SI NO NO SI SI SI SI NO NO SI NO
JULIO CESAR M SI SI SI SI SI SI SI SI SI SI SI SI
JOSÉ DE JESÚS M SI SI SI SI SI SI SI SI SI SI SI SI
IRMA F SI SI SI SI SI SI SI SI SI SI SI SI
cuantos <- nrow(dosdeportes)

prob <- cuantos / n * 100
prob
## [1] 21

*La probabilidad de que practique al menos dos deportes al mismo tiempo no importa si practica o no actividad cultural es del 21 %

3.5. Probabilidad de que practique al menos una actividad deportiva y al menos una actividad cultural al mismo tiempo.

head(combinations(6, 2, c(deportivas[1], culturales), ),5)
##      [,1]      [,2]        
## [1,] "Ajedrez" "Folklórico"
## [2,] "Ajedrez" "Pantomima" 
## [3,] "Ajedrez" "Rondalla"  
## [4,] "Ajedrez" "Tahitiano" 
## [5,] "Ajedrez" "Teatro"

*Identificar cuando practiquen al menos una actividad deportiva y al menos una actividad cultural combinando expresiones and y or agrupadas en paréntesis

deportiva.y.cultural <- filter(personas, 
              (ajedrez == 'SI' &  folklorico == 'SI') |
              (ajedrez == 'SI' &  tahitiano =='SI') |
              (ajedrez == 'SI' &  teatro =='SI') |
              (ajedrez == 'SI' &  rondalla =='SI') |
              (ajedrez == 'SI' &  pantomima =='SI') |
              (beisbol == 'SI' &  folklorico == 'SI') |
              (beisbol == 'SI' &  tahitiano =='SI') |
              (beisbol == 'SI' &  teatro =='SI') |
              (beisbol == 'SI' &  rondalla =='SI') |
              (beisbol == 'SI' &  pantomima =='SI') |
              (tiro.arco == 'SI' &  folklorico == 'SI') |
              (tiro.arco == 'SI' &  tahitiano =='SI') |
              (tiro.arco == 'SI' &  teatro =='SI') |
              (tiro.arco == 'SI' &  rondalla =='SI') |
              (tiro.arco == 'SI' &  pantomima =='SI') |
              (pesas == 'SI' &  folklorico == 'SI') |
              (pesas == 'SI' &  tahitiano =='SI') |
              (pesas == 'SI' &  teatro =='SI') |
              (pesas == 'SI' &  rondalla =='SI') |
              (pesas == 'SI' &  pantomima =='SI') | 
              (futbol == 'SI' &  folklorico == 'SI') |
              (futbol == 'SI' &  tahitiano =='SI') |
              (futbol == 'SI' &  teatro =='SI') |
              (futbol == 'SI' &  rondalla =='SI') |
              (futbol == 'SI' &  pantomima =='SI') |
              (softbol == 'SI' &  folklorico == 'SI') |
              (softbol == 'SI' &  tahitiano =='SI') |
              (softbol == 'SI' &  teatro =='SI') |
              (softbol == 'SI' &  rondalla =='SI') |
              (softbol == 'SI' &  pantomima =='SI') |
              (atletismo == 'SI' &  folklorico == 'SI') |
              (atletismo == 'SI' &  tahitiano =='SI') |
              (atletismo == 'SI' &  teatro =='SI') |
              (atletismo == 'SI' &  rondalla =='SI') |
              (atletismo == 'SI' &  pantomima =='SI') ) 
                

kable(deportiva.y.cultural)
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
JOSÉ M NO SI NO NO SI SI SI SI NO NO SI NO
MARÍA GUADALUPE F NO SI NO NO SI SI SI SI NO NO SI NO
JUAN CARLOS M SI SI SI SI SI SI SI SI SI SI SI SI
JORGE M SI SI SI SI SI SI SI SI SI SI SI SI
RAÚL M NO SI NO NO SI SI SI SI NO NO SI NO
FRANCISCO JAVIER F SI SI SI SI SI SI SI SI SI SI SI SI
ROSA F SI SI SI SI SI SI SI SI SI SI SI SI
MARÍA FERNANDA F NO SI NO NO SI SI SI SI NO NO SI NO
SERGIO M SI SI SI SI SI SI SI SI SI SI SI SI
YOLANDA F SI SI SI SI SI SI SI SI SI SI SI SI
SALVADOR M SI SI SI SI SI SI SI SI SI SI SI SI
VÍCTOR MANUEL M NO SI NO NO SI SI SI SI NO NO SI NO
GABRIEL M SI SI SI SI SI SI SI SI SI SI SI SI
ÓSCAR M SI SI SI SI SI SI SI SI SI SI SI SI
MARÍA ISABEL F NO SI NO NO SI SI SI SI NO NO SI NO
RUBEN M NO SI NO NO SI SI SI SI NO NO SI NO
MARÍA LUISA F SI SI SI SI SI SI SI SI SI SI SI SI
FELIPE M NO SI NO NO SI SI SI SI NO NO SI NO
JULIO CESAR M SI SI SI SI SI SI SI SI SI SI SI SI
JOSÉ DE JESÚS M SI SI SI SI SI SI SI SI SI SI SI SI
IRMA F SI SI SI SI SI SI SI SI SI SI SI SI
cuantos <- nrow(deportiva.y.cultural)

prob <- cuantos / n * 100
prob
## [1] 21

La probabilidad de que practique al menos una actividad deportiva y al menos una actividad cultural al mismo tiempo es del 21 %

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

masculino <- filter(personas, generos == 'M')
kable(masculino)
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
JUAN M NO NO NO NO NO NO NO NO NO NO NO NO
JOSÉ LUIS M NO NO NO NO NO NO NO NO NO NO NO NO
JOSÉ M NO SI NO NO SI SI SI SI NO NO SI NO
FRANCISCO M NO NO NO NO NO NO NO NO NO NO NO NO
ANTONIO M NO NO NO NO NO NO NO NO NO NO NO NO
JESÚS M NO NO NO NO NO NO NO NO NO NO NO NO
MIGUEL ÁNGEL M NO NO NO NO NO NO NO NO NO NO NO NO
PEDRO M NO NO NO NO NO NO NO NO NO NO NO NO
ALEJANDRO M NO NO NO NO NO NO NO NO NO NO NO NO
MANUEL M NO NO NO NO NO NO NO NO NO NO NO NO
JUAN CARLOS M SI SI SI SI SI SI SI SI SI SI SI SI
ROBERTO M NO NO NO NO NO NO NO NO NO NO NO NO
FERNANDO M NO NO NO NO NO NO NO NO NO NO NO NO
DANIEL M NO NO NO NO NO NO NO NO NO NO NO NO
CARLOS M NO NO NO NO NO NO NO NO NO NO NO NO
JORGE M SI SI SI SI SI SI SI SI SI SI SI SI
RICARDO M NO NO NO NO NO NO NO NO NO NO NO NO
MIGUEL M NO NO NO NO NO NO NO NO NO NO NO NO
EDUARDO M NO NO NO NO NO NO NO NO NO NO NO NO
RAFAEL M NO NO NO NO NO NO NO NO NO NO NO NO
MARTÍN M NO NO NO NO NO NO NO NO NO NO NO NO
RAÚL M NO SI NO NO SI SI SI 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 NO NO NO NO NO NO NO
JOSÉ ANTONIO M NO NO NO NO NO NO NO NO 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 NO NO NO NO NO NO NO NO NO
MARÍA ELENA M NO NO NO NO NO NO NO NO NO NO NO NO
MARIO M NO NO NO NO NO NO NO NO NO NO NO NO
ALFREDO M NO NO NO NO NO NO NO NO NO NO NO NO
SERGIO M SI SI SI SI SI SI SI SI SI SI SI SI
ALBERTO M NO NO NO NO NO NO NO NO NO NO NO NO
LUIS M NO NO NO NO NO NO NO NO NO NO NO NO
ARMANDO M NO NO NO NO NO NO NO NO NO NO NO NO
SANTIAGO M NO NO NO NO NO NO NO NO NO NO NO NO
JUAN MANUEL M 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
SALVADOR M SI SI SI SI SI SI SI SI SI SI SI SI
VÍCTOR MANUEL M NO SI NO NO SI SI SI SI NO NO SI NO
GABRIEL M SI SI SI SI SI SI SI SI SI SI SI SI
ANDRÉS M NO NO NO NO NO NO NO NO NO NO NO NO
ÓSCAR M SI SI SI SI SI SI SI SI SI SI SI SI
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 NO NO NO
PABLO M NO NO NO NO NO NO NO NO NO NO NO NO
RUBEN M NO SI NO NO SI SI SI SI NO NO SI NO
LUIS ÁNGEL M NO NO NO NO NO NO NO NO NO NO NO NO
FELIPE M NO SI NO NO SI SI SI SI NO NO SI NO
JORGE JESÚS M NO NO NO NO NO NO NO NO NO NO NO NO
JAIME M NO NO NO NO NO NO NO NO NO NO NO NO
JOSÉ GUADALUPE M NO NO NO NO NO NO NO NO NO NO NO NO
JULIO CESAR M SI SI SI SI SI SI SI SI SI SI SI SI
JOSÉ DE JESÚS M SI SI SI SI SI SI SI SI SI SI SI SI
DIEGO M NO NO NO NO NO NO NO NO NO NO NO NO
ARACELI M NO NO NO NO NO NO NO NO NO NO NO NO
AGUSTÍN M NO NO NO NO NO NO NO NO NO NO NO NO
GUSTAVO M NO NO NO NO NO NO NO NO NO NO NO NO
cuantos <- nrow(masculino)

prob <- cuantos / n * 100
prob
## [1] 57

*La probabilidad de que una persona sea del género masculino es del 57 %

3.7. Probabilidad de que una persona sea del género femenino.

femenino <- filter(personas, generos == 'F')
kable(femenino)
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
MARÍA GUADALUPE F NO SI NO NO SI SI SI SI NO NO SI NO
GUADALUPE F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA F NO NO NO NO NO NO NO NO NO NO NO NO
JUANA F NO NO NO NO NO NO NO NO NO NO NO NO
MARGARITA F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA DEL CARMEN F NO NO NO NO NO NO NO NO NO NO NO NO
JAVIER F NO NO NO NO NO NO NO NO NO NO NO NO
ARTURO F NO NO NO NO NO NO NO NO NO NO NO NO
JOSÉ MANUEL F NO NO NO NO NO NO NO NO NO NO NO NO
FRANCISCO JAVIER F SI SI SI SI SI SI SI SI SI SI SI SI
ENRIQUE F NO NO NO NO NO NO NO NO NO NO NO NO
GERARDO F NO NO NO NO NO NO NO NO NO NO NO NO
LETICIA F NO NO NO NO NO NO NO NO NO NO NO NO
ROSA F SI SI SI SI SI SI SI SI SI SI SI SI
FRANCISCA F NO NO NO NO NO NO NO NO NO NO NO NO
TERESA F NO NO NO NO NO NO NO NO NO NO NO NO
ALICIA F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA FERNANDA F NO SI NO NO SI SI SI SI NO NO SI NO
ALEJANDRA F NO NO NO NO NO NO NO NO NO NO NO NO
MARTHA F NO NO NO NO NO NO NO NO NO NO NO NO
YOLANDA F SI SI SI SI SI SI SI SI SI SI SI SI
PATRICIA F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA DE LOS ÁNGELES F NO NO NO NO NO NO NO NO NO NO NO NO
ROSA MARÍA F NO NO NO NO NO NO NO NO NO NO NO NO
ELIZABETH F NO NO NO NO NO NO NO NO 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 NO NO NO
MARÍA DE GUADALUPE F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA DE JESÚS F 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 NO NO
MARÍA ISABEL F NO SI NO NO SI SI SI SI NO NO SI NO
ANTONIA F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA LUISA F SI SI SI SI SI SI SI SI SI SI SI SI
MARÍA DEL ROSARIO F NO NO NO NO NO NO NO NO NO NO NO NO
ANDREA F NO NO NO NO NO NO NO NO NO NO NO NO
ISABEL F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA TERESA F NO NO NO NO NO NO NO NO NO NO NO NO
IRMA F SI SI SI SI SI SI SI SI SI SI SI SI
CARMEN F NO NO NO NO NO NO NO NO NO NO NO NO
LUCÍA F NO NO NO NO NO NO NO NO NO NO NO NO
ADRIANA F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA DE LA LUZ F NO NO NO NO NO NO NO NO NO NO NO NO
cuantos <- nrow(femenino)

prob <- cuantos / n * 100
prob
## [1] 43

*La probabilidad de que una persona sea del género femenino es del 43 %

3.8. Probabilidad de que una persona sea del género femenino y practique el deporte del softbol.

femenino.sofbol <- filter(femenino, softbol == 'SI')

kable(femenino.sofbol)
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
MARÍA GUADALUPE F NO SI NO NO SI SI SI SI NO NO SI NO
FRANCISCO JAVIER F SI SI SI SI SI SI SI SI SI SI SI SI
ROSA F SI SI SI SI SI SI SI SI SI SI SI SI
MARÍA FERNANDA F NO SI NO NO SI SI SI SI NO NO SI NO
YOLANDA F SI SI SI SI SI SI SI SI SI SI SI SI
MARÍA ISABEL F NO SI NO NO SI SI SI SI NO NO SI NO
MARÍA LUISA F SI SI SI SI SI SI SI SI SI SI SI SI
IRMA F SI SI SI SI SI SI SI SI SI SI SI SI
cuantos <- nrow(femenino.sofbol)

prob <- cuantos / n * 100
prob
## [1] 8

La Probabilidad de que una persona sea del género femenino y practique el deporte del softbol es del 8%

3.9. Probabilidad de que una persona sea del género masculino y practique pesas y fútbol al mismo tiempo.

masculino.pesas.futbol <- filter(masculino, pesas == 'SI' & futbol == 'SI')

kable(masculino.pesas.futbol)
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
JUAN CARLOS M SI SI SI SI SI SI SI SI SI SI SI SI
JORGE M SI SI SI SI SI SI SI SI SI SI SI SI
SERGIO M SI SI SI SI SI SI SI SI SI SI SI SI
SALVADOR M SI SI SI SI SI SI SI SI SI SI SI SI
GABRIEL M SI SI SI SI SI SI SI SI SI SI SI SI
ÓSCAR M SI SI SI SI SI SI SI SI SI SI SI SI
JULIO CESAR M SI SI SI SI SI SI SI SI SI SI SI SI
JOSÉ DE JESÚS M SI SI SI SI SI SI SI SI SI SI SI SI
cuantos <- nrow(masculino.pesas.futbol)

prob <- cuantos / n * 100
prob
## [1] 8

*La probabilidad de una persona sea del género masculino y practique pesas y fútbol al mismo tiempo es del 8%

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

femenino.rondalla.tahitiano <- filter(femenino, rondalla =='SI' & tahitiano == 'SI')

kable(femenino.rondalla.tahitiano)
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
FRANCISCO JAVIER F SI SI SI SI SI SI SI SI SI SI SI SI
ROSA F SI SI SI SI SI SI SI SI SI SI SI SI
YOLANDA F SI SI SI SI SI SI SI SI SI SI SI SI
MARÍA LUISA F SI SI SI SI SI SI SI SI SI SI SI SI
IRMA F SI SI SI SI SI SI SI SI SI SI SI SI
cuantos <- nrow(femenino.rondalla.tahitiano)

prob <- cuantos / n * 100
prob
## [1] 5

*La probabilidad de que una persona sea del género femenino y practique rondalla y tahitiano es del 5 %

Interpretación del caso de entre 180 y 200 palabras tratando de contestar las probabilidades de los puntos del 3.1 en adelante. ## Se interpretan los datos encontrados basados en las frecuencias basadas en el número de datos de personas que son 100. En el punto 3. 3 se encuentra que solo los que practican ajedrez son el 0 %, también en el punto 3. 4 se muestra que quien practica 2 deportes al mismo tiempo la probabilidad es del 21 %. También en el punto 3. 6 se da a conocer que la probabilidad de que alguien sea del género masculino es del 57 % y por lo contrario la probabilidad de que alguien sea del género femenino es del 43 %, continuando con el género femenino se interpreta que el porcentaje de que alguien practique softbol es del 8 %. También que siga siendo femenino y practique dos actividades al mismo tiempo que son rondalla y tahitiano son del 5 %. La probabilidad de que alguien practique una actividad de deporte sin practicar una cultural es del 0 %. Probabilidad de que una persona no practique deporte ni practique actividad cultural nos arroja que es del 79 % y esto por mencionar la mayoría de los porcentajes arrojados