CASO9

#Objetivo.
#Determinar probabilidad de varios conjuntos de datos.
#Descripción.
#Determinar probabilidades por medio de frecuencias relativas en conjuntos de datos.
#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("/home/brandon/Downloads/construir_datos_y_funciones_caso_9.r", encoding = "UTF-8") 
kable(personas)

nombres	generos	ajedrez	beisbol	tiro.arco	pesas	futbol	softbol	atletismo	folklorico	tahitiano	teatro	rondalla	pantomima
JUAN	M	SI	SI	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO
JOSÉ LUIS	M	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
JOSÉ	M	SI	NO	SI	NO	SI	NO	NO	NO	NO	NO	SI	NO
MARÍA GUADALUPE	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO
FRANCISCO	M	SI	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO
GUADALUPE	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARÍA	F	NO	SI	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO
JUANA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ANTONIO	M	NO	SI	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO
JESÚS	M	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO
MIGUEL ÁNGEL	M	SI	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO
PEDRO	M	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO
ALEJANDRO	M	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
MANUEL	M	NO	NO	NO	NO	SI	NO	SI	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	SI	NO	NO	NO	NO	NO
JUAN CARLOS	M	NO	NO	NO	NO	NO	NO	NO	NO	SI	SI	NO	NO
ROBERTO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	SI
FERNANDO	M	NO	NO	NO	SI	NO	NO	NO	NO	NO	SI	NO	NO
DANIEL	M	NO	NO	NO	NO	NO	SI	SI	NO	NO	NO	NO	SI
CARLOS	M	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	SI	SI
JORGE	M	SI	NO	NO	NO	SI	NO	NO	NO	SI	NO	NO	NO
RICARDO	M	NO	NO	SI	NO	NO	NO	NO	SI	NO	NO	SI	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	SI	SI	NO	NO	NO	NO	NO	NO	NO	NO
MARTÍN	M	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	SI	NO
RAÚL	M	NO	NO	SI	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	SI	NO	NO	NO	NO	NO	NO	NO
JOSÉ ANTONIO	M	NO	SI	NO	SI	NO	NO	NO	NO	SI	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	SI	NO	NO	NO	NO	NO
JOSÉ MANUEL	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
FRANCISCO JAVIER	F	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ENRIQUE	F	NO	SI	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO
VERÓNICA	M	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
GERARDO	F	NO	NO	NO	NO	SI	NO	SI	NO	NO	SI	SI	NO
MARÍA ELENA	M	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	SI
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	SI	NO	NO
MARIO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO
FRANCISCA	F	NO	NO	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO
ALFREDO	M	NO	NO	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO
TERESA	F	NO	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
ALICIA	F	NO	NO	NO	SI	NO	NO	SI	SI	NO	NO	NO	NO
MARÍA FERNANDA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
SERGIO	M	NO	SI	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO
ALBERTO	M	NO	SI	NO	NO	NO	SI	SI	NO	NO	NO	SI	NO
LUIS	M	NO	NO	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO
ARMANDO	M	NO	SI	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO
ALEJANDRA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARTHA	F	NO	NO	NO	NO	SI	SI	SI	NO	NO	NO	NO	NO
SANTIAGO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO
YOLANDA	F	NO	SI	NO	NO	SI	NO	NO	SI	NO	NO	NO	NO
PATRICIA	F	SI	NO	NO	SI	SI	SI	SI	NO	NO	NO	SI	NO
MARÍA DE LOS ÁNGELES	F	NO	SI	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
JUAN MANUEL	M	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	SI
ROSA MARÍA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ELIZABETH	F	SI	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	SI
GLORIA	F	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	SI
ÁNGEL	M	NO	NO	NO	NO	NO	NO	NO	SI	SI	NO	NO	NO
GABRIELA	F	NO	SI	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
SALVADOR	M	NO	NO	SI	NO	SI	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	NO	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO
MARÍA DE GUADALUPE	F	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO	NO	NO
MARÍA DE JESÚS	F	NO	NO	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO
GABRIEL	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ANDRÉS	M	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO
ÓSCAR	M	NO	SI	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO
GUILLERMO	M	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI
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	SI	SI	NO	NO	NO
PABLO	M	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
RUBEN	M	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO
ANTONIA	F	SI	NO	NO	NO	NO	NO	SI	NO	NO	NO	SI	NO
MARÍA LUISA	F	SI	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
LUIS ÁNGEL	M	NO	NO	NO	NO	SI	NO	NO	NO	SI	NO	NO	NO
MARÍA DEL ROSARIO	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI
FELIPE	M	NO	NO	NO	NO	SI	NO	NO	SI	SI	SI	SI	SI
JORGE JESÚS	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JAIME	M	SI	NO	SI	SI	NO	NO	NO	SI	NO	NO	NO	SI
JOSÉ GUADALUPE	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JULIO CESAR	M	NO	SI	SI	NO	NO	NO	NO	SI	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
ARACELI	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ANDREA	F	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	SI	NO
ISABEL	F	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO
MARÍA TERESA	F	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
IRMA	F	NO	NO	NO	NO	SI	SI	NO	NO	NO	SI	NO	NO
CARMEN	F	NO	SI	NO	NO	NO	SI	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	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARÍA DE LA LUZ	F	NO	NO	NO	NO	NO	SI	NO	NO	NO	SI	SI	NO
GUSTAVO	M	SI	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
GUADALUPE	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
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
DAVID	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
JOSÉ MANUEL	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
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
ROSA MARÍA	F	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	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
JORGE JESÚS	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
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	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

cuantos <- nrow(nopractica)

prob <- cuantos / n * 100
prob

## [1] 23

#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
JUAN	M	SI	SI	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO
JOSÉ LUIS	M	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
MARÍA	F	NO	SI	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO
ANTONIO	M	NO	SI	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO
JESÚS	M	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO
PEDRO	M	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO
ALEJANDRO	M	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
MANUEL	M	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO
MARÍA DEL CARMEN	F	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
RAFAEL	M	NO	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO	NO
RAÚL	M	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO
JOSEFINA	M	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
MARCO ANTONIO	M	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
FRANCISCO JAVIER	F	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
VERÓNICA	M	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
FRANCISCA	F	NO	NO	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO
ALFREDO	M	NO	NO	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO
TERESA	F	NO	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
SERGIO	M	NO	SI	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO
MARTHA	F	NO	NO	NO	NO	SI	SI	SI	NO	NO	NO	NO	NO
SALVADOR	M	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO	NO	NO
MARÍA DE GUADALUPE	F	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO	NO	NO
ANDRÉS	M	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO
ÓSCAR	M	NO	SI	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO
PABLO	M	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
RUBEN	M	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO
MARÍA LUISA	F	SI	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
ISABEL	F	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO
MARÍA TERESA	F	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
CARMEN	F	NO	SI	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO
AGUSTÍN	M	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
GUSTAVO	M	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO

cuantos <- nrow(sideportenocultural)

prob <- cuantos / n * 100
prob

## [1] 32

#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
FRANCISCO JAVIER	F	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
PABLO	M	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
GUSTAVO	M	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO

cuantos <- nrow(ajedrez)

prob <- cuantos / n * 100
prob

## [1] 3

#3.4. Probabilidad de que practique al menos dos deportes al mismo tiempo no importa si practica o no actividad cultural.

combinations(7, 2, deportivas, )

##       [,1]        [,2]           
##  [1,] "Ajedrez"   "Atletismo"    
##  [2,] "Ajedrez"   "Béisbol"      
##  [3,] "Ajedrez"   "Fútbol"       
##  [4,] "Ajedrez"   "Pesas"        
##  [5,] "Ajedrez"   "Softbol"      
##  [6,] "Ajedrez"   "Tiro con arco"
##  [7,] "Atletismo" "Béisbol"      
##  [8,] "Atletismo" "Fútbol"       
##  [9,] "Atletismo" "Pesas"        
## [10,] "Atletismo" "Softbol"      
## [11,] "Atletismo" "Tiro con arco"
## [12,] "Béisbol"   "Fútbol"       
## [13,] "Béisbol"   "Pesas"        
## [14,] "Béisbol"   "Softbol"      
## [15,] "Béisbol"   "Tiro con arco"
## [16,] "Fútbol"    "Pesas"        
## [17,] "Fútbol"    "Softbol"      
## [18,] "Fútbol"    "Tiro con arco"
## [19,] "Pesas"     "Softbol"      
## [20,] "Pesas"     "Tiro con arco"
## [21,] "Softbol"   "Tiro con arco"

dosdeportes <- filter(personas, 
              (ajedrez == 'SI' &  beisbol == 'SI') |
              (ajedrez == 'SI' &  tiro.arco =='SI') |
              (ajedrez == 'SI' &  pesas =='SI') |
              (ajedrez == 'SI' &  futbol =='SI') |
              (ajedrez == 'SI' &  softbol =='SI') |
              (ajedrez == 'SI' &  atletismo =='SI') |  
              (beisbol == 'SI' &  tiro.arco =='SI') |  
              (beisbol == 'SI' &  pesas =='SI') |
              (beisbol == 'SI' &  futbol =='SI') |
              (beisbol == 'SI' &  softbol =='SI') |
              (beisbol == 'SI' &  atletismo =='SI') |
              (tiro.arco == 'SI' &  pesas =='SI') |  
              (tiro.arco == 'SI' &  futbol =='SI') |
              (tiro.arco == 'SI' &  softbol =='SI') |
              (tiro.arco == 'SI' &  atletismo =='SI') |
              (pesas == 'SI' &  futbol =='SI') |
              (pesas == 'SI' &  softbol =='SI') |
              (pesas == 'SI' &  atletismo =='SI') |    
              (futbol == 'SI' &  softbol =='SI') |
              (futbol == 'SI' &  atletismo =='SI') |  
              (softbol == 'SI' &  atletismo =='SI') ) 
                

kable(dosdeportes)

nombres	generos	ajedrez	beisbol	tiro.arco	pesas	futbol	softbol	atletismo	folklorico	tahitiano	teatro	rondalla	pantomima
JUAN	M	SI	SI	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO
JOSÉ	M	SI	NO	SI	NO	SI	NO	NO	NO	NO	NO	SI	NO
MARÍA	F	NO	SI	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO
ANTONIO	M	NO	SI	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO
MANUEL	M	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO
DANIEL	M	NO	NO	NO	NO	NO	SI	SI	NO	NO	NO	NO	SI
JORGE	M	SI	NO	NO	NO	SI	NO	NO	NO	SI	NO	NO	NO
RAFAEL	M	NO	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO	NO
JOSÉ ANTONIO	M	NO	SI	NO	SI	NO	NO	NO	NO	SI	NO	NO	NO
ENRIQUE	F	NO	SI	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO
GERARDO	F	NO	NO	NO	NO	SI	NO	SI	NO	NO	SI	SI	NO
FRANCISCA	F	NO	NO	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO
ALFREDO	M	NO	NO	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO
TERESA	F	NO	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
ALICIA	F	NO	NO	NO	SI	NO	NO	SI	SI	NO	NO	NO	NO
SERGIO	M	NO	SI	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO
ALBERTO	M	NO	SI	NO	NO	NO	SI	SI	NO	NO	NO	SI	NO
MARTHA	F	NO	NO	NO	NO	SI	SI	SI	NO	NO	NO	NO	NO
YOLANDA	F	NO	SI	NO	NO	SI	NO	NO	SI	NO	NO	NO	NO
PATRICIA	F	SI	NO	NO	SI	SI	SI	SI	NO	NO	NO	SI	NO
ELIZABETH	F	SI	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	SI
SALVADOR	M	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO	NO	NO
MARÍA DE GUADALUPE	F	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO	NO	NO
ANDRÉS	M	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO
ÓSCAR	M	NO	SI	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO
RUBEN	M	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO
ANTONIA	F	SI	NO	NO	NO	NO	NO	SI	NO	NO	NO	SI	NO
MARÍA LUISA	F	SI	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
JAIME	M	SI	NO	SI	SI	NO	NO	NO	SI	NO	NO	NO	SI
JULIO CESAR	M	NO	SI	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO
IRMA	F	NO	NO	NO	NO	SI	SI	NO	NO	NO	SI	NO	NO
CARMEN	F	NO	SI	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO

cuantos <- nrow(dosdeportes)

prob <- cuantos / n * 100
prob

## [1] 32

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

head(combinations(6, 2, c(deportivas[1], culturales), ),5)

##      [,1]      [,2]        
## [1,] "Ajedrez" "Folklórico"
## [2,] "Ajedrez" "Pantomima" 
## [3,] "Ajedrez" "Rondalla"  
## [4,] "Ajedrez" "Tahitiano" 
## [5,] "Ajedrez" "Teatro"

deportiva.y.cultural <- filter(personas, 
              (ajedrez == 'SI' &  folklorico == 'SI') |
              (ajedrez == 'SI' &  tahitiano =='SI') |
              (ajedrez == 'SI' &  teatro =='SI') |
              (ajedrez == 'SI' &  rondalla =='SI') |
              (ajedrez == 'SI' &  pantomima =='SI') |
              (beisbol == 'SI' &  folklorico == 'SI') |
              (beisbol == 'SI' &  tahitiano =='SI') |
              (beisbol == 'SI' &  teatro =='SI') |
              (beisbol == 'SI' &  rondalla =='SI') |
              (beisbol == 'SI' &  pantomima =='SI') |
              (tiro.arco == 'SI' &  folklorico == 'SI') |
              (tiro.arco == 'SI' &  tahitiano =='SI') |
              (tiro.arco == 'SI' &  teatro =='SI') |
              (tiro.arco == 'SI' &  rondalla =='SI') |
              (tiro.arco == 'SI' &  pantomima =='SI') |
              (pesas == 'SI' &  folklorico == 'SI') |
              (pesas == 'SI' &  tahitiano =='SI') |
              (pesas == 'SI' &  teatro =='SI') |
              (pesas == 'SI' &  rondalla =='SI') |
              (pesas == 'SI' &  pantomima =='SI') | 
              (futbol == 'SI' &  folklorico == 'SI') |
              (futbol == 'SI' &  tahitiano =='SI') |
              (futbol == 'SI' &  teatro =='SI') |
              (futbol == 'SI' &  rondalla =='SI') |
              (futbol == 'SI' &  pantomima =='SI') |
              (softbol == 'SI' &  folklorico == 'SI') |
              (softbol == 'SI' &  tahitiano =='SI') |
              (softbol == 'SI' &  teatro =='SI') |
              (softbol == 'SI' &  rondalla =='SI') |
              (softbol == 'SI' &  pantomima =='SI') |
              (atletismo == 'SI' &  folklorico == 'SI') |
              (atletismo == 'SI' &  tahitiano =='SI') |
              (atletismo == 'SI' &  teatro =='SI') |
              (atletismo == 'SI' &  rondalla =='SI') |
              (atletismo == 'SI' &  pantomima =='SI') ) 
                

kable(deportiva.y.cultural)

nombres	generos	ajedrez	beisbol	tiro.arco	pesas	futbol	softbol	atletismo	folklorico	tahitiano	teatro	rondalla	pantomima
JOSÉ	M	SI	NO	SI	NO	SI	NO	NO	NO	NO	NO	SI	NO
FRANCISCO	M	SI	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO
MIGUEL ÁNGEL	M	SI	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO
FERNANDO	M	NO	NO	NO	SI	NO	NO	NO	NO	NO	SI	NO	NO
DANIEL	M	NO	NO	NO	NO	NO	SI	SI	NO	NO	NO	NO	SI
CARLOS	M	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	SI	SI
JORGE	M	SI	NO	NO	NO	SI	NO	NO	NO	SI	NO	NO	NO
RICARDO	M	NO	NO	SI	NO	NO	NO	NO	SI	NO	NO	SI	NO
MARTÍN	M	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	SI	NO
JOSÉ ANTONIO	M	NO	SI	NO	SI	NO	NO	NO	NO	SI	NO	NO	NO
ENRIQUE	F	NO	SI	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO
GERARDO	F	NO	NO	NO	NO	SI	NO	SI	NO	NO	SI	SI	NO
MARÍA ELENA	M	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	SI
ALICIA	F	NO	NO	NO	SI	NO	NO	SI	SI	NO	NO	NO	NO
ALBERTO	M	NO	SI	NO	NO	NO	SI	SI	NO	NO	NO	SI	NO
LUIS	M	NO	NO	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO
ARMANDO	M	NO	SI	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO
YOLANDA	F	NO	SI	NO	NO	SI	NO	NO	SI	NO	NO	NO	NO
PATRICIA	F	SI	NO	NO	SI	SI	SI	SI	NO	NO	NO	SI	NO
MARÍA DE LOS ÁNGELES	F	NO	SI	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
JUAN MANUEL	M	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	SI
ELIZABETH	F	SI	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	SI
GLORIA	F	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	SI
GABRIELA	F	NO	SI	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
SILVIA	F	NO	NO	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO
MARÍA DE JESÚS	F	NO	NO	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO
GUILLERMO	M	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI
ANTONIA	F	SI	NO	NO	NO	NO	NO	SI	NO	NO	NO	SI	NO
LUIS ÁNGEL	M	NO	NO	NO	NO	SI	NO	NO	NO	SI	NO	NO	NO
FELIPE	M	NO	NO	NO	NO	SI	NO	NO	SI	SI	SI	SI	SI
JAIME	M	SI	NO	SI	SI	NO	NO	NO	SI	NO	NO	NO	SI
JULIO CESAR	M	NO	SI	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO
ANDREA	F	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	SI	NO
IRMA	F	NO	NO	NO	NO	SI	SI	NO	NO	NO	SI	NO	NO
MARÍA DE LA LUZ	F	NO	NO	NO	NO	NO	SI	NO	NO	NO	SI	SI	NO

cuantos <- nrow(deportiva.y.cultural)

prob <- cuantos / n * 100
prob

## [1] 35

#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	SI	NO	NO	NO	NO	NO	NO	NO	NO
JOSÉ LUIS	M	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
JOSÉ	M	SI	NO	SI	NO	SI	NO	NO	NO	NO	NO	SI	NO
FRANCISCO	M	SI	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO
ANTONIO	M	NO	SI	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO
JESÚS	M	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO
MIGUEL ÁNGEL	M	SI	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO
PEDRO	M	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO
ALEJANDRO	M	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
MANUEL	M	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO
JUAN CARLOS	M	NO	NO	NO	NO	NO	NO	NO	NO	SI	SI	NO	NO
ROBERTO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	SI
FERNANDO	M	NO	NO	NO	SI	NO	NO	NO	NO	NO	SI	NO	NO
DANIEL	M	NO	NO	NO	NO	NO	SI	SI	NO	NO	NO	NO	SI
CARLOS	M	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	SI	SI
JORGE	M	SI	NO	NO	NO	SI	NO	NO	NO	SI	NO	NO	NO
RICARDO	M	NO	NO	SI	NO	NO	NO	NO	SI	NO	NO	SI	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	SI	SI	NO	NO	NO	NO	NO	NO	NO	NO
MARTÍN	M	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	SI	NO
RAÚL	M	NO	NO	SI	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	SI	NO	NO	NO	NO	NO	NO	NO
JOSÉ ANTONIO	M	NO	SI	NO	SI	NO	NO	NO	NO	SI	NO	NO	NO
MARCO ANTONIO	M	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
VERÓNICA	M	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
MARÍA ELENA	M	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	SI
MARIO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO
ALFREDO	M	NO	NO	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO
SERGIO	M	NO	SI	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO
ALBERTO	M	NO	SI	NO	NO	NO	SI	SI	NO	NO	NO	SI	NO
LUIS	M	NO	NO	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO
ARMANDO	M	NO	SI	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO
SANTIAGO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO
JUAN MANUEL	M	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	SI
ÁNGEL	M	NO	NO	NO	NO	NO	NO	NO	SI	SI	NO	NO	NO
SALVADOR	M	NO	NO	SI	NO	SI	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	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ANDRÉS	M	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO
ÓSCAR	M	NO	SI	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO
GUILLERMO	M	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI
RAMÓN	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
PABLO	M	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
RUBEN	M	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO
LUIS ÁNGEL	M	NO	NO	NO	NO	SI	NO	NO	NO	SI	NO	NO	NO
FELIPE	M	NO	NO	NO	NO	SI	NO	NO	SI	SI	SI	SI	SI
JORGE JESÚS	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JAIME	M	SI	NO	SI	SI	NO	NO	NO	SI	NO	NO	NO	SI
JOSÉ GUADALUPE	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JULIO CESAR	M	NO	SI	SI	NO	NO	NO	NO	SI	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
ARACELI	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
AGUSTÍN	M	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
GUSTAVO	M	SI	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	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO
GUADALUPE	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARÍA	F	NO	SI	NO	NO	NO	SI	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	SI
MARÍA DEL CARMEN	F	NO	NO	NO	NO	NO	NO	SI	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	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ENRIQUE	F	NO	SI	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO
GERARDO	F	NO	NO	NO	NO	SI	NO	SI	NO	NO	SI	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	SI	NO	NO
FRANCISCA	F	NO	NO	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO
TERESA	F	NO	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
ALICIA	F	NO	NO	NO	SI	NO	NO	SI	SI	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	SI	SI	SI	NO	NO	NO	NO	NO
YOLANDA	F	NO	SI	NO	NO	SI	NO	NO	SI	NO	NO	NO	NO
PATRICIA	F	SI	NO	NO	SI	SI	SI	SI	NO	NO	NO	SI	NO
MARÍA DE LOS ÁNGELES	F	NO	SI	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
ROSA MARÍA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ELIZABETH	F	SI	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	SI
GLORIA	F	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	SI
GABRIELA	F	NO	SI	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
SILVIA	F	NO	NO	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO
MARÍA DE GUADALUPE	F	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO	NO	NO
MARÍA DE JESÚS	F	NO	NO	NO	NO	NO	NO	SI	NO	SI	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	SI	SI	NO	NO	NO
ANTONIA	F	SI	NO	NO	NO	NO	NO	SI	NO	NO	NO	SI	NO
MARÍA LUISA	F	SI	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
MARÍA DEL ROSARIO	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI
ANDREA	F	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	SI	NO
ISABEL	F	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO
MARÍA TERESA	F	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
IRMA	F	NO	NO	NO	NO	SI	SI	NO	NO	NO	SI	NO	NO
CARMEN	F	NO	SI	NO	NO	NO	SI	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	SI	NO	NO	NO	SI	SI	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	F	NO	SI	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO
MARTHA	F	NO	NO	NO	NO	SI	SI	SI	NO	NO	NO	NO	NO
PATRICIA	F	SI	NO	NO	SI	SI	SI	SI	NO	NO	NO	SI	NO
IRMA	F	NO	NO	NO	NO	SI	SI	NO	NO	NO	SI	NO	NO
CARMEN	F	NO	SI	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO
MARÍA DE LA LUZ	F	NO	NO	NO	NO	NO	SI	NO	NO	NO	SI	SI	NO

cuantos <- nrow(femenino.sofbol)

prob <- cuantos / n * 100
prob

## [1] 6

#3.9. Probabilidad de que una persona sea del género masculino y practique pesas y fútbol al mismo tiempo.

masculino.pesas.futbol <- filter(masculino, pesas == 'SI' & futbol == 'SI')

kable(masculino.pesas.futbol)

nombres	generos	ajedrez	beisbol	tiro.arco	pesas	futbol	softbol	atletismo	folklorico	tahitiano	teatro	rondalla	pantomima
ALFREDO	M	NO	NO	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO
SERGIO	M	NO	SI	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO

cuantos <- nrow(masculino.pesas.futbol)

prob <- cuantos / n * 100
prob

## [1] 2

#4.Interpretacion

#En este caso se trabajó las probabilidades de conjunto de datos de personas, en algunos casos algunas de las personas si practican y otras que no, esto quiere decir que no todas las personas practican algun deporte, ya sea físico o mental. La probabilidad de que una persona no practique deporte ni practique actividad cultural, en este caso fueron 14 personas, en la probabilidad de que practiquen un deporte y no practiquen una actividad cultural es de 27, ya que a la mayoria les gusta más la actividad física,

CASO9

Brandon dz

1/13/2021