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

###2. 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")
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

###3. Determinar probabilidades

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

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

###3.3. Probabilidad de que practique la actividad deportiva de solamente ajedrez y únicamente 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

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

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

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

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

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

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

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

###4.Interpretacion del Caso 9(Descriptiva) **En este caso, estamos trabajando con el caso numero 9 con el cual trabajamos con las probabilidades de conjunto de datos de personas, de lo cual la practica nos da a conocer diferentes tipos de resultados de los cuales se ven reflejados en la practica elaborada, en el punto dos de la practica nos da a conocer el nombre de diferentes personas de las cuales nos registra el dato de los deportes que algunas de las personas si practican y otras que no, como podemos darnos cuenta la mayoría de la personas no realizan deporte esto quiere decir que es malo ya que no están realizando una actividad física, y de una manera u otra en un futuro puede afectar en su salud, 3.1 Probabilidad de que una persona no practique deporte ni practique actividad cultural, en este punto la probabilidad fue de 79, esto nos quiere decir que la probabilidad fue alta ya que la mayoría de los alumnos no se dedican a practicar ningún deporte, 3.2. Probabilidad de que practiquen deporte y no practiquen actividad cultural, aquí la respuesta es cero ya que no hay ningún dato de registro en este punto, no hay ningún valor que nos arroje, en el siguiente punto, 3.3. Probabilidad de que practique la actividad deportiva de solamente ajedrez y únicamente ajedrez, en este punto también el valor de los resultados es cero ya que en la tabla de datos no arroja ningún resultado y por lo tanto pues no se esta tomando en cuenta ningún valor, en el 3.4. Probabilidad de que practique al menos dos deportes al mismo tiempo no importa si practica o no actividad cultural, en este punto la mayoría de los alumnos si practican un deporte solamente que pocas personas son las que realizan varias actividades, eso quiere decir que están bien de salud ya que mantienen su cuerpo en constante movimiento el promedio que se obtuvo fue de 21, en el punto 3.5. Probabilidad de que practique al menos una actividad deportiva y al menos una actividad cultural al mismo tiempo, la probabilidad es mínima ya que el porcentaje o resultado que arroja es de 21, esto quiere decir ahí muy pocas personas que practican algún deporte o una actividad cultural, 3.6. Probabilidad de que una persona sea del género masculino, en esta pregunta los resultados se podrían decir que son altos ya que la probabilidad fue casi de un 60%, esto quiere decir que ahí una cantidad un poco mas alta de hombres que de mujeres en el listado generado, en el punto 3.7 nos pide que cual es la probabilidad de que una persona sea del género femenino, a lo cual nos arrojo el resultado de 43 %, es a lo que me refería a la respuesta anterior casi por un 10% son mas de hombres , pero eso quiere decir que casi se mienten en un equilibrio de 50 y 50 entre hombres y mujeres, es mínima la diferencia, en el siguiente punto dice 3.8. Probabilidad de que una persona sea del género femenino y practique el deporte del softbol, en el listado generado son 8 personas de los cuales 6 son mujeres y los 2 son hombres, el listado genero un total de 8 personas, de lo cual las 6 mujeres que aparecen todas practican el deporte de softbol, en el penúltimo punto que es el 3.9. Probabilidad de que una persona sea del género masculino y practique pesas y fútbol al mismo tiempo, en este punto se trabajo de igual manera con 8 personas de los cuales todos son hombres, y todos ellos cumplen con el máximo de probabilidad ya que todos practican los dos deportes mencionados, esto quiere decir que ellos están muy sanos ya que siempre mantienen el cuerpo activo ejercitándolo de una u otra forma, en el ultimo punto que es el 3.10 nos pide que cual es la probabilidad de que una persona sea del género femenino y practique rondalla y tahitiano, el resultado que se obtuvo al generar la practica numero 9 fue de todos si practican estos dos deportes pero de las 5 personas registradas solo uno de ellos es hombre, esto nos quiere decir que también de la misma manera que ahí hombres que soy dedicados al deporte o una actividad deportiva también lo ahí de mujeres se mantienen en un balance estable, de la misma manera que esto nos quiere decir que los alumnos que se mencionaron en cada punto la mayoría si practica un deporte y por lo tanto esas personas se mantienen en buen estado físico y sanas de salud