Objetivo

Determinar probabilidad de varios conjuntos de datos

Descripcion

Determinar probabilidades por medio de frecuencias relativas en conjuntos de datos

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

Paso 2 Derminar 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

Paso 3 Determinar probabilidad

n <- nrow(personas)

3.1 Probabilidad de que una persona no practique deporte o alguna 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 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 unicamente 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 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

Probabilidad de que una persona sea del genero 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 genero 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 genero femenino y practique el deporte de 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 genero 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
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 genero 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

Punto 4 Interpretacion del caso

Se interpretaron las probabilidades de 100 datos que se sacaron del link del profesor que se compartio que son("Nombres" y "Genero") y las actividades deportivas y culturales que son ("Tiro con arco", "Beisbol", "Futbol", "Tahitiano", "Teatro", "ETC")

Se sacaron las probabilidades de que alguna persona practique algun deporte y otra actividad cultural y viceversa.

*Por ejemplo en el punto 3.1 se saco la probabilidad de que una persona no practique deporte o alguna actividad cultural? es del 79%

*Y en el punto 3.2 y 3.3 dan 0% por eso no aparece nada

En el punto 3.4 Probabilidad de que practique al menos dos deportes al mismo tiempo no importa si practica o no actividad cultural? la probabilidad es del21%

*Y la probabilidad de que se escoja al genero masculino o al genero femenino el masculino tiene una probabilidad de 57% y el genero femenino 43%

*Y tambien se saco la probabilidad de que sea masculino y practique pesas y futbol tiene una probabilidad del 8%