1. Cargar liberías

library(tidyverse)
library(dplyr)   
library(gtools)  
library(knitr)

2. Determinar o construir el conjunto de datos

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

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
GUADALUPE 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
PEDRO 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
MARCO ANTONIO 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
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
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
FELIPE M 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
CARMEN F NO NO NO NO NO NO NO NO NO NO NO NO 
cuantos <- nrow(nopractica)

prob <- cuantos / n * 100
paste("La probabilidad de que una persona no práctique deporte o actividad cultural es del", prob, "%")
## [1] "La probabilidad de que una persona no práctique deporte o actividad cultural es del 14 %"

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
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 
cuantos <- nrow(sideportenocultural)

prob <- cuantos / n * 100
paste("La probabilidad de que una persona práctique deporte y no practiquen actividades culturales es del", prob, "%")
## [1] "La probabilidad de que una persona práctique deporte y no practiquen actividades culturales es del 27 %"

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
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 
cuantos <- nrow(ajedrez)

prob <- cuantos / n * 100
paste("La probabilidad de que una persona práctique ajedez es del", prob, "%")
## [1] "La probabilidad de que una persona práctique ajedez es del 4 %"

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
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 F NO SI NO NO SI NO NO NO NO 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
JUAN CARLOS M SI NO NO NO NO NO SI NO SI NO NO NO
RAÚL M NO SI NO SI 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
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
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
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
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
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
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É DE JESÚS M SI NO SI NO NO SI SI NO NO NO SI 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 
cuantos <- nrow(dosdeportes)

prob <- cuantos / n * 100
paste("La probabilidad de que una persona práctique dos deportes es del", prob, "%")
## [1] "La probabilidad de que una persona práctique dos deportes es del 26 %"

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
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
JUANA F NO NO NO NO SI NO NO SI NO 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
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
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
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
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
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
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
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
SANTIAGO M NO NO NO NO NO SI NO SI SI 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
SALVADOR M SI NO NO NO NO NO SI NO NO NO SI NO
MARÍA DE GUADALUPE F NO NO NO NO SI NO NO SI 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
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
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
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 
cuantos <- nrow(deportiva.y.cultural)

prob <- cuantos / n * 100
paste("La probabilidad de que una persona practique al menos una actividad deportiva y al menos una actividad cultural al mismo tiempo es del", prob, "%")
## [1] "La probabilidad de que una persona practique al menos una actividad deportiva y al menos una actividad cultural al mismo tiempo es del 39 %"

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 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
ENRIQUE M 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
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 
cuantos <- nrow(masculino)

prob <- cuantos / n * 100
paste("La probabilidad de que una persona sea del género masculino es del", prob, "%")
## [1] "La probabilidad de que una persona sea del género masculino es del 58 %"

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 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
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 
cuantos <- nrow(femenino)

prob <- cuantos / n * 100
paste("La probabilidad de que una persona sea del género femenino es del", prob, "%")
## [1] "La probabilidad de que una persona sea del género femenino es del 42 %"

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 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
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
ROSA MARÍA F NO NO NO NO NO SI NO SI NO NO NO NO
MARÍA DEL ROSARIO F NO NO SI NO NO SI NO NO NO NO NO NO 
cuantos <- nrow(femenino.sofbol)

prob <- cuantos / n * 100
paste("La probabilidad de que una persona sea del género femenino y practique sofbol es del", prob, "%")
## [1] "La probabilidad de que una persona sea del género femenino y practique sofbol es del 6 %"

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 
cuantos <- nrow(masculino.pesas.futbol)

prob <- cuantos / n * 100
paste("La probabilidad de que una persona sea del género masculino y practique pesas y futbol es del", prob, "%")
## [1] "La probabilidad de que una persona sea del género masculino y practique pesas y futbol es del 0 %"

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 
cuantos <- nrow(femenino.rondalla.tahitiano)

prob <- cuantos / n * 100
paste("La probabilidad de que una persona sea del género femenino y practique tahitiano es del", prob, "%")
## [1] "La probabilidad de que una persona sea del género femenino y practique tahitiano es del 0 %"

4. Interpretación del caso

En este caso de estudio se hace uso de las frecuencias y frecuencias relativas para poderlo resolver de una manera sino la más simple sí de manera entendible y concreta, se hace uso de n = 100 personas y de allí partimos para poder empezar a resolver cada uno de los pasos.

En lo personal la manera que utilice para resolver el caso fue con el uso de un paste(“…”, prob, “%”) de está forma me era mucho más sencillo responder cada una de las interrogantes de forma directa en el código y no esperarme hasta la interpretación para hacer respuesta de cada una de estas.

El uso de lectores de cadenas fue básico para poder resolver de manera práctica el caso número 10, pues gracias al nrow pudimos agilizar un tanto el proceso de lectura de cada personaje. Y así mismo no tener que leer nombre por nombre e interrogante por interrogante.

Como reflexión final vuelvo a observar la importancia y sencillez que nos brinda el uso de la Probabilidad y estadística usando un programa como RStudio, si bien quizá no sea el mejor definitivamente lo hace más entretenido y eficaz que hacerlo de forma manual. El uso manual definitivamente ya es pasado.