Probabilidades de conjuntos

Objetivo Determinar probabilidad de varios conjuntos de datos

Descripción

(Determinar probabilidades por medio de frecuencias relativas en conjuntos de datos Construir un conjunto de 100 personas que sean de un género en particular [femenino | masculino] que practiquen alguna actividad deportiva o cultural. personas tienen nombre, edad, género, y practican alguna actividad deportiva o cultura actividad deportes que puede ser {ajedrez, béisbol, tiro con arco, pesas, futbol, softbol, atletismo} y/o alguna actividad cultura que puede ser {baile folklórico, baile tahitiano, teatro, rondalla, pantomima}. Es posible que una persona practique mas de una actividad. Se utiliza la función llamada: “construir datos y funciones caso 9.r” por medio de la llamada a la función source() de la siguiente manera: source(“https://raw.githubusercontent.com/rpizarrog/probabilidad-y-estadstica/master/construir%20datos%20y%20funciones%20caso%209.r”, encoding = “UTF-8”). O se puede descargar la función que se encuentran en schoology en script de octubre 2020 y mandarla llamar de manera local en la carpeta funciones de su directorio de trabajo respectivo. source(“../funciones/construir datos y funciones caso 9.r”, encoding = “UTF-8”))

1. Cargar librerías

library(knitr)
library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(gtools)

2. Determinar conjuntos de datos

#### source("https://raw.githubusercontent.com/rpizarrog/probabilidad-y-estad-stica/master/construir%20datos%20y%20funciones%20caso%209.r", encoding = "UTF-8")

source("../Funciones/construir_datos_y_funciones_caso_9.r")
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 NO NO NO NO NO NO NO NO NO NO NO
MARÍA GUADALUPE F SI SI SI SI SI SI SI SI SI SI SI SI
FRANCISCO M SI SI SI SI SI SI SI SI SI SI SI SI
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 SI SI SI SI SI SI SI SI SI SI SI SI
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 SI SI SI SI SI SI SI SI SI SI SI SI
MARGARITA F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA DEL CARMEN F SI SI SI SI SI SI SI SI SI SI SI SI
JUAN CARLOS M 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 SI NO NO SI SI SI SI NO NO SI 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 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
FRANCISCO JAVIER 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 SI SI SI SI SI SI SI SI SI SI SI SI
GERARDO F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA ELENA M NO SI NO NO SI SI SI SI NO NO SI NO
LETICIA F NO NO NO NO NO NO NO NO NO NO NO NO
ROSA 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
MARÍA FERNANDA F NO NO NO NO NO NO NO NO NO NO NO NO
SERGIO M 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
YOLANDA F NO SI NO NO SI SI SI SI NO NO SI 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 SI NO NO SI SI SI SI NO NO SI 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 NO NO NO NO NO NO NO NO NO NO NO NO
VÍCTOR MANUEL M NO NO NO NO NO NO NO NO NO NO NO NO
SILVIA F NO SI NO NO SI SI SI SI NO NO SI 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 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
MARÍA ISABEL F 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 SI SI SI SI SI SI SI SI SI SI SI SI
ANTONIA 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
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 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 SI NO NO SI SI SI SI NO NO SI NO
JOSÉ GUADALUPE M SI SI SI SI SI SI SI SI SI SI SI SI
JULIO CESAR M NO SI NO NO SI SI SI SI NO NO SI NO
JOSÉ DE JESÚS 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 SI SI SI SI SI SI SI SI SI SI SI SI
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 NO SI NO NO SI SI SI SI NO NO SI 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

3. Determinar probabilidades

*Primero necesitamos saber cuantos casos hay en total

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
JOSÉ 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
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
MARGARITA F NO NO NO NO NO NO NO NO NO NO NO NO
JUAN CARLOS M 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
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 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
FRANCISCO JAVIER 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
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 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
MARÍA FERNANDA F NO NO NO NO NO NO NO NO NO NO NO NO
SERGIO M 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
Á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 NO NO NO NO NO NO NO NO NO NO NO NO
VÍCTOR MANUEL M 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
ÓSCAR 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
MARÍA ISABEL F 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
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 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
JOSÉ DE JESÚS 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
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
paste("la probabilidad es de:" ,prob,"%")
## [1] "la probabilidad es de: 79 %"

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 
cuantos <- nrow(sideportenocultural)
prob <- cuantos/n *100
paste("la probabilidad es de:" ,prob,"%")
## [1] "la probabilidad es de: 0 %"

3.3. Probabilidad de que practique al menos 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
paste("la probabilidad es de:" ,prob,"%")
## [1] "la probabilidad es de: 0 %"

3.4. Probabilidad de que practique dos deportes

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
MARÍA GUADALUPE F SI SI SI SI SI SI SI SI SI SI SI SI
FRANCISCO M SI SI SI SI SI SI SI SI SI SI SI SI
ANTONIO M SI SI SI SI SI SI SI SI SI SI SI SI
MANUEL M SI SI SI SI SI SI SI SI SI SI SI SI
MARÍA DEL CARMEN F SI SI SI SI SI SI SI SI SI SI SI SI
CARLOS M NO SI NO NO SI SI SI SI NO NO SI NO
JORGE M SI SI SI SI SI SI SI SI SI SI SI SI
VERÓNICA M SI SI SI SI SI SI SI SI SI SI SI SI
MARÍA ELENA M NO SI NO NO SI SI SI SI NO NO SI NO
YOLANDA F NO SI NO NO SI SI SI SI NO NO SI NO
GLORIA F NO SI NO NO SI SI SI SI NO NO SI NO
SILVIA F 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
RUBEN M SI SI SI SI SI SI SI SI SI SI SI SI
ANTONIA 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
JAIME M NO SI NO NO SI SI SI SI NO NO SI NO
JOSÉ GUADALUPE M SI SI SI SI SI SI SI SI SI SI SI SI
JULIO CESAR M NO SI NO NO SI SI SI SI NO NO SI NO
ARACELI M SI SI SI SI SI SI SI SI SI SI SI SI
IRMA F NO SI NO NO SI SI SI SI NO NO SI NO 
cuantos <- nrow(dosdeportes)
prob <- cuantos/n *100
paste("la probabilidad es de:" ,prob,"%")
## [1] "la probabilidad es de: 21 %"

3.5. Probabilidad de que practique al menos una actividad deportiva y al menos una actividad cultural al mismo tiempo

*Identificamos quienes practican al menos una actividad deportiva y cultural

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
MARÍA GUADALUPE F SI SI SI SI SI SI SI SI SI SI SI SI
FRANCISCO M SI SI SI SI SI SI SI SI SI SI SI SI
ANTONIO M SI SI SI SI SI SI SI SI SI SI SI SI
MANUEL M SI SI SI SI SI SI SI SI SI SI SI SI
MARÍA DEL CARMEN F SI SI SI SI SI SI SI SI SI SI SI SI
CARLOS M NO SI NO NO SI SI SI SI NO NO SI NO
JORGE M SI SI SI SI SI SI SI SI SI SI SI SI
VERÓNICA M SI SI SI SI SI SI SI SI SI SI SI SI
MARÍA ELENA M NO SI NO NO SI SI SI SI NO NO SI NO
YOLANDA F NO SI NO NO SI SI SI SI NO NO SI NO
GLORIA F NO SI NO NO SI SI SI SI NO NO SI NO
SILVIA F 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
RUBEN M SI SI SI SI SI SI SI SI SI SI SI SI
ANTONIA 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
JAIME M NO SI NO NO SI SI SI SI NO NO SI NO
JOSÉ GUADALUPE M SI SI SI SI SI SI SI SI SI SI SI SI
JULIO CESAR M NO SI NO NO SI SI SI SI NO NO SI NO
ARACELI M SI SI SI SI SI SI SI SI SI SI SI SI
IRMA F NO SI NO NO SI SI SI SI NO NO SI NO 
cuantos <- nrow(deportiva.y.cultural)
prob <- cuantos/n *100
paste("la probabilidad es de:" ,prob,"%")
## [1] "la probabilidad es de: 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 NO NO NO NO NO NO NO NO NO NO NO
FRANCISCO M SI SI SI SI SI SI SI SI SI SI SI SI
ANTONIO M SI SI SI SI SI SI SI SI SI SI SI SI
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 SI SI SI SI SI SI SI SI SI SI SI SI
JUAN CARLOS M 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 SI NO NO SI SI SI SI NO NO SI 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 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
MARCO ANTONIO M NO NO NO NO NO NO NO NO NO NO NO NO
VERÓNICA M SI SI SI SI SI SI SI SI SI SI SI SI
MARÍA ELENA M NO SI NO NO SI SI SI SI NO NO SI 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 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
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 NO NO NO NO NO NO NO NO NO NO NO NO
VÍCTOR MANUEL M 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 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
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 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
FELIPE M 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 SI NO NO SI SI SI SI NO NO SI NO
JOSÉ GUADALUPE M SI SI SI SI SI SI SI SI SI SI SI SI
JULIO CESAR M NO SI NO NO SI SI SI SI NO NO SI NO
JOSÉ DE JESÚS 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 SI SI SI SI SI SI SI SI SI SI SI SI
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
paste("la probabilidad es de:" ,prob,"%")
## [1] "la probabilidad es de: 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 SI SI SI SI SI SI SI SI SI SI SI SI
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 SI SI SI SI SI SI SI SI SI SI SI SI
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 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
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 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
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 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
YOLANDA F NO SI NO NO SI SI SI SI NO NO SI 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
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 SI NO NO SI SI SI SI NO NO SI NO
GABRIELA F NO NO NO NO NO NO NO NO NO NO NO NO
SILVIA F NO SI NO NO SI SI SI SI NO NO SI 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 NO NO NO NO NO NO NO NO NO NO NO
ANTONIA 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
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 NO SI NO NO SI SI SI SI NO NO SI 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
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
paste("la probabilidad es de:" ,prob,"%")
## [1] "la probabilidad es de: 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 SI SI SI SI SI SI SI SI SI SI SI SI
MARÍA DEL CARMEN F SI SI SI SI SI SI SI SI SI SI SI SI
YOLANDA F NO SI NO NO SI SI SI SI NO NO SI NO
GLORIA F NO SI NO NO SI SI SI SI NO NO SI NO
SILVIA F NO SI NO NO SI SI SI SI NO NO SI NO
ANTONIA 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 NO SI NO NO SI SI SI SI NO NO SI NO 
cuantos <- nrow(femenino.sofbol)
prob <- cuantos/n *100
paste("la probabilidad es de:" ,prob,"%")
## [1] "la probabilidad es de: 8 %"

3.9. Probabilidad de que una persona sea del g enero 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
FRANCISCO M SI SI SI SI SI SI SI SI SI SI SI SI
ANTONIO M SI SI SI SI SI SI SI SI SI SI SI SI
MANUEL 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
VERÓNICA 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
RUBEN M SI SI SI SI SI SI SI SI SI SI SI SI
JOSÉ GUADALUPE M SI SI SI SI SI SI SI SI SI SI SI SI
ARACELI M SI SI SI SI SI SI SI SI SI SI SI SI 
cuantos <- nrow(masculino.pesas.futbol)
prob <- cuantos/n *100
paste("la probabilidad es de:" ,prob,"%")
## [1] "la probabilidad es de: 9 %"

3.10. Probabilidad de que una persona sea del género femenino y practique rondalla y thaitiano.

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 SI SI SI SI SI SI SI SI SI SI SI SI
MARÍA DEL CARMEN F SI SI SI SI SI SI SI SI SI SI SI SI
ANTONIA 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 
cuantos <- nrow(femenino.rondalla.tahitiano)
prob <- cuantos/n *100
paste("la probabilidad es de:" ,prob,"%")
## [1] "la probabilidad es de: 4 %"

4. INTERPRETACION DEL CASO 9

En el Caso numero 9 sacaremos las probabilidades, pero ahora de un conjunto de 100 personas de sexo tanto Masculino como Femenino por medio de frecuencias relativas y también sacaremos probabilidades de las 100 personas cuantas practican actividades culturales o deportivas y así, bueno empecemos Determinaremos las Probabilidades:

1.- Probabilidad de que una persona no practique deporte ni actividad cultural, en mi caso la gran mayoría no practica ninguno son 79 personas en porcentaje son 79%.

2.- La Probabilidad de que practique deporte y no practique actividad cultural, salió 0% de probabilidad ya que no hay ninguna persona que practique deporte, pero no practique actividad cultural.

3.- La Probabilidad de que practique únicamente el ajedrez, igual salió 0% ya que no hay nadie que practique el ajedrez (Lo más triste ya que el ajedrez es muy importante para la mente).

4.- Probabilidad de que practique 2 deportes es de 21%, eso nos menciona que a 21 personas practican a la vez 2 deportes.

5.- La Probabilidad de que practique al menos una actividad deportiva y al menos una actividad cultural al mismo tiempo es, igual el 21%.

6.- La Probabilidad de que una persona sea del genero Masculino es del 57%, eso nos dice que como son 57 hombres y el resto es de mujeres hay más hombres que mujeres.

7.- Probabilidad de que una persona sea del genero femenino es del 43%, en efecto son mas hombres que mujeres en este conjunto de datos.

8.- La Probabilidad de que una Persona sea del genero femenino y practique el deporte del softbol es de 8%, nunca eh jugado softbol, pero se escucha como un deporte no tan agresivo.

9.- Probabilidad de que una persona sea del genero masculino y practique pesas y futbol al mismo tiempo es de 9%.

10.- y por último queda, la probabilidad de que una persona sea del genero femenino y practique rondalla y tahitiano es del 4%, 4 personas menos que en el de softbol. Y bueno aquí finalizamos lo que es el caso Numero 9.