Objetivo

Determinar probabilidad de varios conjuntos de datos

Descripción

Determinar probabilidades por medio de frecuencias relativas en conjuntos de datos

1.- Cargar librerias

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("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"
deportivas.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(deportivas.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(deportivas.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

Interpretacion

Primero cragamos las librerias para despues determinamos el conjunto de datos para esto usamos la siguiente funcion source(“https://raw.githubusercontent.com/rpizarrog/probabilidad-y-estadstica/master/construir%20datos%20y%20funciones%20caso%209.r”, encoding = “UTF-8”). para llamar los datos y poder utilizarlos

Despues determinamos las probabilidades las cuales son:

Probabilidad de que una persona no practique deporte ni practique actividad cultural: 79%

Probabilidad de que practique deporte y no practique actividad cultural: no me dio resultados

Probabilidad de que practique la actividad deportiva de solamente ajedrez y únicamente ajedrez: no me dio resultados

Probabilidad de que practique al menos dos deportes al mismo tiempo no importa si practica o no actividad cultural: 21%

Probabilidad de que practique al menos una actividad deportiva y al menos una actividad cultural al mismo tiempo: 21%

Probabilidad de que una persona sea del género masculino: 57%

Probabilidad de que una persona sea del género femenino: 43%

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

Probabilidad de que una persona sea del género masculino y practique pesas y futbol al mismo tiempo: 8%

Probabilidad de que una persona sea del género femenino y practique rondalla y tahitiano: 5%

Para poder sacar estas probabilidades utilizamos la funcion filter para asi poder separar los datos y utilizar los que necesitamos para cada caso y despues interpretando dichos datos de forma de que podamos sacar las probabbilidades de cada uno de los casos aunque en algunos casos esto no nos soltara ningun dato como en en caso 3.2 y 3.3 y nos arrojara una probabilidad de 0%.