Objetivo:

Determinar probabilidad de varios conjuntos de datos.

Descripcion:

Determinar probabilidades por medio de frecuencias relativas en conjuntos de datos.

Proceso:

Paso 1: Cargar librerias.

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

Paso 2: Determinar conjuntos de datos.

source("../Scrips R/construir_datos_y_funciones_caso_9.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 SI SI NO NO NO NO NO NO NO NO NO NO
JOSÉ LUIS M NO SI NO NO SI SI SI NO SI NO NO NO
JOSÉ M NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA GUADALUPE F NO NO NO NO NO NO NO SI SI NO SI NO
FRANCISCO M NO NO NO NO NO NO NO NO NO SI NO NO
GUADALUPE F NO NO SI SI NO NO SI SI NO SI NO NO
MARÍA F NO NO NO NO NO NO SI NO NO NO NO NO
JUANA F NO SI SI NO NO NO NO SI NO NO SI SI
ANTONIO M NO SI NO NO SI SI NO NO NO NO NO NO
JESÚS M NO SI SI NO SI SI 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 SI NO NO NO NO NO SI NO NO NO
ALEJANDRO M NO SI NO NO NO NO NO NO SI NO NO NO
MANUEL M NO NO NO SI SI NO NO NO NO NO NO NO
MARGARITA F NO NO NO NO NO NO NO NO NO NO NO SI
MARÍA DEL CARMEN F NO NO NO NO NO NO NO NO NO NO NO NO
JUAN CARLOS M SI NO NO NO NO NO NO NO NO NO NO NO
ROBERTO M NO NO SI NO NO NO NO NO SI NO NO NO
FERNANDO M NO NO NO NO NO NO NO NO NO NO NO NO
DANIEL M SI NO NO NO NO NO NO NO NO NO NO NO
CARLOS M NO NO NO NO NO NO NO SI NO NO SI SI
JORGE M NO NO NO NO NO NO NO NO NO NO NO NO
RICARDO M NO NO NO NO NO SI SI NO NO NO NO NO
MIGUEL M NO NO NO NO NO NO NO NO NO NO NO NO
EDUARDO M NO SI SI NO NO NO NO NO SI NO NO NO
JAVIER F NO NO NO NO NO SI NO NO NO SI SI NO
RAFAEL M NO NO NO NO NO NO SI NO NO NO NO NO
MARTÍN M NO NO NO SI NO NO NO SI NO NO NO NO
RAÚL M NO NO NO NO NO SI NO NO NO NO NO NO
DAVID M NO NO NO NO NO NO NO NO NO NO NO NO
JOSEFINA M NO NO SI NO NO NO SI NO NO SI NO NO
JOSÉ ANTONIO M NO NO NO NO NO NO NO SI NO NO NO NO
ARTURO F SI SI NO NO NO NO SI SI NO NO NO NO
MARCO ANTONIO M NO NO SI NO NO NO NO NO SI NO NO NO
JOSÉ MANUEL F NO NO NO NO SI NO NO NO NO NO NO NO
FRANCISCO JAVIER F SI NO NO NO NO NO NO NO NO NO SI NO
ENRIQUE F NO SI NO NO NO NO NO NO NO NO NO NO
VERÓNICA M NO NO NO NO NO NO NO SI NO NO NO NO
GERARDO F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA ELENA M NO SI SI NO NO SI NO NO NO NO NO NO
LETICIA F SI NO NO SI NO SI SI NO NO NO NO NO
ROSA F NO NO NO SI NO SI NO NO NO NO NO NO
MARIO M NO NO NO NO NO NO NO NO NO NO SI NO
FRANCISCA F NO NO NO NO NO SI 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 SI NO NO NO SI
ALICIA F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA FERNANDA F NO SI NO NO NO NO SI NO NO NO NO NO
SERGIO M SI NO NO NO NO NO NO SI NO NO SI NO
ALBERTO M NO NO NO SI NO NO NO NO NO NO SI NO
LUIS M NO NO NO NO SI NO SI NO NO NO NO SI
ARMANDO M NO NO NO NO NO NO NO SI NO NO NO NO
ALEJANDRA F NO SI NO NO NO NO NO SI NO NO NO NO
MARTHA F NO NO SI NO NO NO NO NO NO NO NO NO
SANTIAGO M SI NO NO NO SI NO NO NO NO NO NO NO
YOLANDA F NO SI NO NO NO NO NO NO NO NO NO NO
PATRICIA F SI NO SI NO NO SI NO NO SI NO NO NO
MARÍA DE LOS ÁNGELES F SI NO NO NO NO NO NO SI NO NO NO NO
JUAN MANUEL M NO SI NO NO NO SI SI NO NO NO SI NO
ROSA MARÍA F NO NO NO SI NO NO NO NO NO NO NO NO
ELIZABETH F NO SI NO NO NO NO NO NO NO SI NO NO
GLORIA F NO NO NO NO NO NO NO NO NO NO NO NO
ÁNGEL M NO NO NO NO NO SI NO NO NO SI NO NO
GABRIELA F NO NO NO NO NO NO SI NO NO NO NO NO
SALVADOR M NO NO NO NO NO SI NO SI NO NO NO NO
VÍCTOR MANUEL M NO SI NO NO NO NO NO NO NO NO NO SI
SILVIA F NO NO NO NO NO NO NO NO NO NO SI SI
MARÍA DE GUADALUPE F NO SI NO NO NO NO NO NO NO NO NO NO
MARÍA DE JESÚS F NO NO NO NO NO SI SI NO NO NO NO NO
GABRIEL M NO NO NO NO NO NO SI NO SI NO SI NO
ANDRÉS M NO NO NO NO NO SI SI NO NO NO NO SI
ÓSCAR M NO NO SI NO NO NO NO NO SI NO SI NO
GUILLERMO M NO NO NO NO NO SI NO SI NO SI NO NO
ANA MARÍA F NO NO NO NO SI NO NO NO NO NO NO NO
RAMÓN M NO NO SI NO NO NO NO SI NO NO NO NO
MARÍA ISABEL F NO NO NO NO NO NO NO NO NO NO NO NO
PABLO M NO NO NO SI SI SI NO SI NO NO SI NO
RUBEN M NO NO NO NO NO NO NO NO NO NO NO NO
ANTONIA F NO SI NO NO NO NO NO NO NO NO NO NO
MARÍA LUISA 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 SI NO NO NO NO NO SI NO NO NO NO NO
FELIPE M NO NO NO NO NO NO SI NO NO NO NO NO
JORGE JESÚS M NO NO SI SI NO SI 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 NO NO NO SI SI SI NO SI NO NO NO SI
JOSÉ DE JESÚS M NO NO NO NO NO SI SI SI NO NO NO NO
DIEGO M NO NO NO SI NO SI SI NO NO NO NO NO
ARACELI M NO NO NO NO NO NO NO NO NO NO SI SI
ANDREA F NO NO NO NO SI NO NO SI SI NO NO NO
ISABEL F NO SI NO NO NO NO NO NO NO SI SI NO
MARÍA TERESA F NO NO NO NO SI NO NO NO SI NO NO SI
IRMA F NO NO NO NO NO SI NO NO NO NO NO NO
CARMEN F NO SI NO NO SI NO NO NO NO SI NO NO
LUCÍA F NO NO SI NO NO NO NO NO SI NO NO NO
ADRIANA F NO NO NO NO NO NO SI SI SI NO NO NO
AGUSTÍN M NO SI NO SI NO NO NO SI NO NO SI 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 SI SI NO SI

Paso 3 Determinmar probabilidades:

n <- nrow(personas)
3.1 Probabilidad de que una persona no practique deporte ni practique actividad cultural.
nopractican <- 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(nopractican)
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
JOSÉ 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
MARÍA DEL CARMEN F 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
JORGE 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
DAVID 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
ALFREDO M 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
GLORIA F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA ISABEL F NO NO NO NO NO NO NO NO NO NO NO NO
RUBEN M NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA LUISA 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
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
MARÍA DE LA LUZ F NO NO NO NO NO NO NO NO NO NO NO NO
cuantos <- nrow(nopractican)

prob <- cuantos / n * 100
prob
## [1] 18
3.2 Probabilidad de que practique deporte y no practique 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
JUAN M SI SI NO NO NO NO NO NO NO NO NO NO
MARÍA F NO NO NO NO NO NO SI NO NO NO NO NO
ANTONIO M NO SI NO NO SI SI NO NO NO NO NO NO
JESÚS M NO SI SI NO SI SI NO NO NO NO NO NO
MANUEL M NO NO NO SI SI NO NO NO NO NO NO NO
JUAN CARLOS M SI NO NO NO NO NO NO NO NO NO NO NO
DANIEL M SI NO NO NO NO NO NO NO NO NO NO NO
RICARDO M NO NO NO NO NO SI SI NO NO NO NO NO
RAFAEL M NO NO NO NO NO NO SI NO NO NO NO NO
RAÚL M NO NO NO NO NO SI NO NO NO NO NO NO
JOSÉ MANUEL F NO NO NO NO SI NO NO NO NO NO NO NO
ENRIQUE F NO SI NO NO NO NO NO NO NO NO NO NO
MARÍA ELENA M NO SI SI NO NO SI NO NO NO NO NO NO
LETICIA F SI NO NO SI NO SI SI NO NO NO NO NO
ROSA F NO NO NO SI NO SI NO NO NO NO NO NO
FRANCISCA F NO NO NO NO NO SI NO NO NO NO NO NO
MARÍA FERNANDA F NO SI NO NO NO NO SI NO NO NO NO NO
MARTHA F NO NO SI NO NO NO NO NO NO NO NO NO
SANTIAGO M SI NO NO NO SI NO NO NO NO NO NO NO
YOLANDA F NO SI NO NO NO NO NO NO NO NO NO NO
ROSA MARÍA F NO NO NO SI NO NO NO NO NO NO NO NO
GABRIELA F NO NO NO NO NO NO SI NO NO NO NO NO
MARÍA DE GUADALUPE F NO SI NO NO NO NO NO NO NO NO NO NO
MARÍA DE JESÚS F NO NO NO NO NO SI SI NO NO NO NO NO
ANA MARÍA F NO NO NO NO SI NO NO NO NO NO NO NO
ANTONIA F NO SI NO NO NO NO NO NO NO NO NO NO
MARÍA DEL ROSARIO F SI NO NO NO NO NO SI NO NO NO NO NO
FELIPE M NO NO NO NO NO NO SI NO NO NO NO NO
JORGE JESÚS M NO NO SI SI NO SI NO NO NO NO NO NO
DIEGO M NO NO NO SI NO SI SI NO NO NO NO NO
IRMA F NO NO NO NO NO SI NO NO NO NO NO NO
cuantos1 <- nrow(sideportenocultural)

prob1 <- cuantos1 / n * 100
prob1
## [1] 31
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
JUAN CARLOS M SI NO NO NO NO NO NO NO NO NO NO NO
DANIEL M SI NO NO NO NO NO NO NO NO NO NO NO
cuantos2 <- nrow(ajedrez)

prob2 <- cuantos2 / n * 100
prob2
## [1] 2
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 practique dos actividades deportivas.
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 SI SI NO NO NO NO NO NO NO NO NO NO
JOSÉ LUIS M NO SI NO NO SI SI SI NO SI NO NO NO
GUADALUPE F NO NO SI SI NO NO SI SI NO SI NO NO
JUANA F NO SI SI NO NO NO NO SI NO NO SI SI
ANTONIO M NO SI NO NO SI SI NO NO NO NO NO NO
JESÚS M NO SI SI NO SI SI NO NO NO NO NO NO
MANUEL M NO NO NO SI SI NO NO NO NO NO NO NO
RICARDO M NO NO NO NO NO SI SI NO NO NO NO NO
EDUARDO M NO SI SI NO NO NO NO NO SI NO NO NO
JOSEFINA M NO NO SI NO NO NO SI NO NO SI NO NO
ARTURO F SI SI NO NO NO NO SI SI NO NO NO NO
MARÍA ELENA M NO SI SI NO NO SI NO NO NO NO NO NO
LETICIA F SI NO NO SI NO SI SI NO NO NO NO NO
ROSA F NO NO NO SI NO SI NO NO NO NO NO NO
MARÍA FERNANDA F NO SI NO NO NO NO SI NO NO NO NO NO
LUIS M NO NO NO NO SI NO SI NO NO NO NO SI
SANTIAGO M SI NO NO NO SI NO NO NO NO NO NO NO
PATRICIA F SI NO SI NO NO SI NO NO SI NO NO NO
JUAN MANUEL M NO SI NO NO NO SI SI NO NO NO SI NO
MARÍA DE JESÚS F NO NO NO NO NO SI SI NO NO NO NO NO
ANDRÉS M NO NO NO NO NO SI SI NO NO NO NO SI
PABLO M NO NO NO SI SI SI NO SI NO NO SI NO
MARÍA DEL ROSARIO F SI NO NO NO NO NO SI NO NO NO NO NO
JORGE JESÚS M NO NO SI SI NO SI NO NO NO NO NO NO
JULIO CESAR M NO NO NO SI SI SI NO SI NO NO NO SI
JOSÉ DE JESÚS M NO NO NO NO NO SI SI SI NO NO NO NO
DIEGO M NO NO NO SI NO SI SI NO NO NO NO NO
CARMEN F NO SI NO NO SI NO NO NO NO SI NO NO
AGUSTÍN M NO SI NO SI NO NO NO SI NO NO SI NO
cuantos3 <- nrow(dosdeportes)

prob3 <- cuantos3 / n * 100
prob3
## [1] 29
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.

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É LUIS M NO SI NO NO SI SI SI NO SI NO NO NO
GUADALUPE F NO NO SI SI NO NO SI SI NO SI NO NO
JUANA F NO SI SI NO NO NO NO SI NO NO SI SI
PEDRO M NO NO SI NO NO NO NO NO SI NO NO NO
ALEJANDRO M NO SI NO NO NO NO NO NO SI NO NO NO
ROBERTO M NO NO SI NO NO NO NO NO SI NO NO NO
EDUARDO M NO SI SI NO NO NO NO NO SI NO NO NO
JAVIER F NO NO NO NO NO SI NO NO NO SI SI NO
MARTÍN M NO NO NO SI NO NO NO SI NO NO NO NO
JOSEFINA M NO NO SI NO NO NO SI NO NO SI NO NO
ARTURO F SI SI NO NO NO NO SI SI NO NO NO NO
MARCO ANTONIO M NO NO SI NO NO NO NO NO SI NO NO NO
FRANCISCO JAVIER F SI NO NO NO NO NO NO NO NO NO SI NO
SERGIO M SI NO NO NO NO NO NO SI NO NO SI NO
ALBERTO M NO NO NO SI NO NO NO NO NO NO SI NO
LUIS M NO NO NO NO SI NO SI NO NO NO NO SI
ALEJANDRA F NO SI NO NO NO NO NO SI NO NO NO NO
PATRICIA F SI NO SI NO NO SI NO NO SI NO NO NO
MARÍA DE LOS ÁNGELES F SI NO NO NO NO NO NO SI NO NO NO NO
JUAN MANUEL M NO SI NO NO NO SI SI NO NO NO SI NO
ELIZABETH F NO SI NO NO NO NO NO NO NO SI NO NO
ÁNGEL M NO NO NO NO NO SI NO NO NO SI NO NO
SALVADOR M NO NO NO NO NO SI NO SI NO NO NO NO
VÍCTOR MANUEL M NO SI NO NO NO NO NO NO NO NO NO SI
GABRIEL M NO NO NO NO NO NO SI NO SI NO SI NO
ANDRÉS M NO NO NO NO NO SI SI NO NO NO NO SI
ÓSCAR M NO NO SI NO NO NO NO NO SI NO SI NO
GUILLERMO M NO NO NO NO NO SI NO SI NO SI NO NO
RAMÓN M NO NO SI NO NO NO NO SI NO NO NO NO
PABLO M NO NO NO SI SI SI NO SI NO NO SI NO
JULIO CESAR M NO NO NO SI SI SI NO SI NO NO NO SI
JOSÉ DE JESÚS M NO NO NO NO NO SI SI SI NO NO NO NO
ANDREA F NO NO NO NO SI NO NO SI SI NO NO NO
ISABEL F NO SI NO NO NO NO NO NO NO SI SI NO
MARÍA TERESA F NO NO NO NO SI NO NO NO SI NO NO SI
CARMEN F NO SI NO NO SI NO NO NO NO SI NO NO
LUCÍA F NO NO SI NO NO NO NO NO SI NO NO NO
ADRIANA F NO NO NO NO NO NO SI SI SI NO NO NO
AGUSTÍN M NO SI NO SI NO NO NO SI NO NO SI NO
cuantos4 <- nrow(deportiva.y.cultural)

prob4 <- cuantos4 / n * 100
prob4
## [1] 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 SI SI NO NO NO NO NO NO NO NO NO NO
JOSÉ LUIS M NO SI NO NO SI SI SI NO SI NO NO NO
JOSÉ M NO NO NO NO NO NO NO NO NO NO NO NO
FRANCISCO M NO NO NO NO NO NO NO NO NO SI NO NO
ANTONIO M NO SI NO NO SI SI NO NO NO NO NO NO
JESÚS M NO SI SI NO SI SI 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 SI NO NO NO NO NO SI NO NO NO
ALEJANDRO M NO SI NO NO NO NO NO NO SI NO NO NO
MANUEL M NO NO NO SI SI NO NO NO NO NO NO NO
JUAN CARLOS M SI NO NO NO NO NO NO NO NO NO NO NO
ROBERTO M NO NO SI NO NO NO NO NO SI NO NO NO
FERNANDO M NO NO NO NO NO NO NO NO NO NO NO NO
DANIEL M SI NO NO NO NO NO NO NO NO NO NO NO
CARLOS M NO NO NO NO NO NO NO SI NO NO SI SI
JORGE M NO NO NO NO NO NO NO NO NO NO NO NO
RICARDO M NO NO NO NO NO SI SI NO NO NO NO NO
MIGUEL M NO NO NO NO NO NO NO NO NO NO NO NO
EDUARDO M NO SI SI NO NO NO NO NO SI NO NO NO
RAFAEL M NO NO NO NO NO NO SI NO NO NO NO NO
MARTÍN M NO NO NO SI NO NO NO SI NO NO NO NO
RAÚL M NO NO NO NO NO SI NO NO NO NO NO NO
DAVID M NO NO NO NO NO NO NO NO NO NO NO NO
JOSEFINA M NO NO SI NO NO NO SI NO NO SI NO NO
JOSÉ ANTONIO M NO NO NO NO NO NO NO SI NO NO NO NO
MARCO ANTONIO M NO NO SI NO NO NO NO NO SI NO NO NO
VERÓNICA M NO NO NO NO NO NO NO SI NO NO NO NO
MARÍA ELENA M NO SI SI NO NO SI NO NO NO NO NO NO
MARIO M NO NO NO NO NO NO NO NO NO NO SI NO
ALFREDO M NO NO NO NO NO NO NO NO NO NO NO NO
SERGIO M SI NO NO NO NO NO NO SI NO NO SI NO
ALBERTO M NO NO NO SI NO NO NO NO NO NO SI NO
LUIS M NO NO NO NO SI NO SI NO NO NO NO SI
ARMANDO M NO NO NO NO NO NO NO SI NO NO NO NO
SANTIAGO M SI NO NO NO SI NO NO NO NO NO NO NO
JUAN MANUEL M NO SI NO NO NO SI SI NO NO NO SI NO
ÁNGEL M NO NO NO NO NO SI NO NO NO SI NO NO
SALVADOR M NO NO NO NO NO SI NO SI NO NO NO NO
VÍCTOR MANUEL M NO SI NO NO NO NO NO NO NO NO NO SI
GABRIEL M NO NO NO NO NO NO SI NO SI NO SI NO
ANDRÉS M NO NO NO NO NO SI SI NO NO NO NO SI
ÓSCAR M NO NO SI NO NO NO NO NO SI NO SI NO
GUILLERMO M NO NO NO NO NO SI NO SI NO SI NO NO
RAMÓN M NO NO SI NO NO NO NO SI NO NO NO NO
PABLO M NO NO NO SI SI SI NO SI NO NO SI NO
RUBEN M 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
FELIPE M NO NO NO NO NO NO SI NO NO NO NO NO
JORGE JESÚS M NO NO SI SI NO SI 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 NO NO NO SI SI SI NO SI NO NO NO SI
JOSÉ DE JESÚS M NO NO NO NO NO SI SI SI NO NO NO NO
DIEGO M NO NO NO SI NO SI SI NO NO NO NO NO
ARACELI M NO NO NO NO NO NO NO NO NO NO SI SI
AGUSTÍN M NO SI NO SI NO NO NO SI NO NO SI NO
GUSTAVO M NO NO NO NO NO NO NO NO SI SI NO SI
cuantos5 <- nrow(masculino)

prob5 <- cuantos5 / n * 100
prob5
## [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 NO NO NO NO NO NO SI SI NO SI NO
GUADALUPE F NO NO SI SI NO NO SI SI NO SI NO NO
MARÍA F NO NO NO NO NO NO SI NO NO NO NO NO
JUANA F NO SI SI NO NO NO NO SI NO NO SI SI
MARGARITA F NO NO NO NO NO NO NO NO NO NO NO SI
MARÍA DEL CARMEN F NO NO NO NO NO NO NO NO NO NO NO NO
JAVIER F NO NO NO NO NO SI NO NO NO SI SI NO
ARTURO F SI SI NO NO NO NO SI SI NO NO NO NO
JOSÉ MANUEL F NO NO NO NO SI NO NO NO NO NO NO NO
FRANCISCO JAVIER F SI NO NO NO NO NO NO NO NO NO SI NO
ENRIQUE F NO SI 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 SI NO NO SI NO SI SI NO NO NO NO NO
ROSA F NO NO NO SI NO SI NO NO NO NO NO NO
FRANCISCA F NO NO NO NO NO SI NO NO NO NO NO NO
TERESA F NO NO NO NO NO NO NO SI NO NO NO SI
ALICIA F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA FERNANDA F NO SI NO NO NO NO SI NO NO NO NO NO
ALEJANDRA F NO SI NO NO NO NO NO SI NO NO NO NO
MARTHA F NO NO SI NO NO NO NO NO NO NO NO NO
YOLANDA F NO SI NO NO NO NO NO NO NO NO NO NO
PATRICIA F SI NO SI NO NO SI NO NO SI NO NO NO
MARÍA DE LOS ÁNGELES F SI NO NO NO NO NO NO SI NO NO NO NO
ROSA MARÍA F NO NO NO SI NO NO NO NO NO NO NO NO
ELIZABETH F NO SI NO NO NO NO NO NO NO SI NO NO
GLORIA F NO NO NO NO NO NO NO NO NO NO NO NO
GABRIELA F NO NO NO NO NO NO SI NO NO NO NO NO
SILVIA F NO NO NO NO NO NO NO NO NO NO SI SI
MARÍA DE GUADALUPE F NO SI NO NO NO NO NO NO NO NO NO NO
MARÍA DE JESÚS F NO NO NO NO NO SI SI NO NO NO NO NO
ANA MARÍA F NO NO NO NO SI NO NO NO NO NO NO NO
MARÍA ISABEL F NO NO NO NO NO NO NO NO NO NO NO NO
ANTONIA F NO SI NO NO NO NO NO NO NO NO NO NO
MARÍA LUISA F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA DEL ROSARIO F SI NO NO NO NO NO SI NO NO NO NO NO
ANDREA F NO NO NO NO SI NO NO SI SI NO NO NO
ISABEL F NO SI NO NO NO NO NO NO NO SI SI NO
MARÍA TERESA F NO NO NO NO SI NO NO NO SI NO NO SI
IRMA F NO NO NO NO NO SI NO NO NO NO NO NO
CARMEN F NO SI NO NO SI NO NO NO NO SI NO NO
LUCÍA F NO NO SI NO NO NO NO NO SI NO NO NO
ADRIANA F NO NO NO NO NO NO SI SI SI NO NO NO
MARÍA DE LA LUZ F NO NO NO NO NO NO NO NO NO NO NO NO
cuantos6 <- nrow(femenino)

prob6 <- cuantos6 / n * 100
prob6
## [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
JAVIER F NO NO NO NO NO SI NO NO NO SI SI NO
LETICIA F SI NO NO SI NO SI SI NO NO NO NO NO
ROSA F NO NO NO SI NO SI NO NO NO NO NO NO
FRANCISCA F NO NO NO NO NO SI NO NO NO NO NO NO
PATRICIA F SI NO SI NO NO SI NO NO SI NO NO NO
MARÍA DE JESÚS F NO NO NO NO NO SI SI NO NO NO NO NO
IRMA F NO NO NO NO NO SI NO NO NO NO NO NO
cuantos7 <- nrow(femenino.sofbol)


prob7 <- cuantos7 / n * 100
prob7
## [1] 7
3.9 Probabilidad de que una persona sea del género masculino y practique pesas y futbol 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
MANUEL M NO NO NO SI SI NO NO NO NO NO NO NO
PABLO M NO NO NO SI SI SI NO SI NO NO SI NO
JULIO CESAR M NO NO NO SI SI SI NO SI NO NO NO SI
cuantos8 <- nrow(masculino.pesas.futbol)

prob8 <- cuantos8 / n * 100
prob8
## [1] 3
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
MARÍA GUADALUPE F NO NO NO NO NO NO NO SI SI NO SI NO
cuantos9 <- nrow(femenino.rondalla.tahitiano)

prob9 <- cuantos9 / n * 100
prob9
## [1] 1

Paso 4: Interpretación del caso 9

En este caso se vio las probabilidades de que una persona femenina o masculina practicara algun deporte o una actividad culturar, o de cuantas personas solo practican deporte o actividad cultular, tambien que no practicaran ninguno de los dos.

En la parte 3.1 del caso,se saco la probabilidad de que una persona no practique deporte ni practique actividad cultural, esto dio que solo el 15% de las personas no practican deportes y actividades culturales.

En la parte 3.2, se saco la probabilidad de que practique deporte y no practique actividad cultura, y dio como resultado que el 33% de las personas practican deporte, pero no una actividad cultural.

En la parte 3.3, se caso la probabilidad de que practique la actividad deportiva de solamente ajedrez y únicamente ajedrez, dio como resultado que solo 3 personas femeninas juegan ajedrez.

En la parte 3.4, se saco la probabilidad de que practique al menos dos deportes al mismo tiempo no importa si practica o no actividad cultural, dio como resultado que el 28% de las personas si practican dos deportes al mismo tiempo.

En la parte 3.5, se saco la probabilidad de que practique al menos una actividad deportiva y al menos una actividad cultural al mismo tiempo, dio como resultado que el 31% de las personas si practican un deporte y una actividad cultural al mismo tiempo.

En la parte 3.6, se saco la probabilidad de que una persona sea del género masculino, dio como resultado que el 57% de las personas son del genero masculino.

En la parte 3.7, se saco la probabilidad de que una persona sea del género femenino, dio como resultado que el 43% son personas del genero femenino.

En la parte 3.8, se saco la probabilidad de que una persona sea del género femenino y practique el deporte del softbol, dio como resultado que solo 12 personas del genero femenino juegan softbol.

En la parte 3.9, se saco la probabilidad de que una persona sea del género masculino y practique pesas y futbol al mismo tiempo, dio como resultado que solo una persona masculina juega futbol y practique pesas.

En la parte 3.10, se saco la probabilidad de que una persona sea del género femenino y practique rondalla y tahitiano,dio como resultado que solo tres personas femeninas practican rondalla y tahitanio.