CASO9

1.- Cargar librerias

library(knitr)

## Warning: package 'knitr' was built under R version 3.6.3

library(dplyr)

## Warning: package 'dplyr' was built under R version 3.6.3

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

## Warning: package 'gtools' was built under R version 3.6.3

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

## Warning in `[<-.factor`(`*tmp*`, iseq, value = c("SI", "SI", "SI", "SI", :
## invalid factor level, NA generated

## Warning in `[<-.factor`(`*tmp*`, iseq, value = c("SI", "SI", "SI", "SI", :
## invalid factor level, NA generated

## Warning in `[<-.factor`(`*tmp*`, iseq, value = c("SI", "SI", "SI", "SI", :
## invalid factor level, NA generated

## Warning in `[<-.factor`(`*tmp*`, iseq, value = c("SI", "SI", "SI", "SI", :
## invalid factor level, NA generated

## Warning in `[<-.factor`(`*tmp*`, iseq, value = c("SI", "SI", "SI", "SI", :
## invalid factor level, NA generated

## Warning in `[<-.factor`(`*tmp*`, iseq, value = c("SI", "SI", "SI", "SI", :
## invalid factor level, NA generated

## Warning in `[<-.factor`(`*tmp*`, iseq, value = c("SI", "SI", "SI", "SI", :
## invalid factor level, NA generated

## Warning in `[<-.factor`(`*tmp*`, iseq, value = c("SI", "SI", "SI", "SI", :
## invalid factor level, NA generated

## Warning in `[<-.factor`(`*tmp*`, iseq, value = c("SI", "SI", "SI", "SI", :
## invalid factor level, NA generated

## Warning in `[<-.factor`(`*tmp*`, iseq, value = c("SI", "SI", "SI", "SI", :
## invalid factor level, NA generated

## Warning in `[<-.factor`(`*tmp*`, iseq, value = c("SI", "SI", "SI", "SI", :
## invalid factor level, NA generated

## Warning in `[<-.factor`(`*tmp*`, iseq, value = c("SI", "SI", "SI", "SI", :
## invalid factor level, NA generated

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	NA	NO	NO	NA	NA	NA	NA	NO	NO	NA	NO
MARÍA GUADALUPE	F	NO	NA	NO	NO	NA	NA	NA	NA	NO	NO	NA	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	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA
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	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA
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	NA	NO	NO	NA	NA	NA	NA	NO	NO	NA	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	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA
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	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA
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	NA	NO	NO	NA	NA	NA	NA	NO	NO	NA	NO
SERGIO	M	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA
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	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA
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	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA
VÍCTOR MANUEL	M	NO	NA	NO	NO	NA	NA	NA	NA	NO	NO	NA	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	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA
ANDRÉS	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ÓSCAR	M	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA
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	NA	NO	NO	NA	NA	NA	NA	NO	NO	NA	NO
PABLO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
RUBEN	M	NO	NA	NO	NO	NA	NA	NA	NA	NO	NO	NA	NO
ANTONIA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARÍA LUISA	F	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA
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	NA	NO	NO	NA	NA	NA	NA	NO	NO	NA	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	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA
JOSÉ DE JESÚS	M	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA
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	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA
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

cuantos <- nrow(dosdeportes)

prob <- cuantos / n * 100
prob

## [1] 0

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

cuantos <- nrow(deportiva.y.cultural)

prob <- cuantos / n * 100
prob

## [1] 0

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	NA	NO	NO	NA	NA	NA	NA	NO	NO	NA	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	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA
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	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA
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	NA	NO	NO	NA	NA	NA	NA	NO	NO	NA	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	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA
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	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA
VÍCTOR MANUEL	M	NO	NA	NO	NO	NA	NA	NA	NA	NO	NO	NA	NO
GABRIEL	M	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA
ANDRÉS	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ÓSCAR	M	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA
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	NA	NO	NO	NA	NA	NA	NA	NO	NO	NA	NO
LUIS ÁNGEL	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
FELIPE	M	NO	NA	NO	NO	NA	NA	NA	NA	NO	NO	NA	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	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA
JOSÉ DE JESÚS	M	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA
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	NA	NO	NO	NA	NA	NA	NA	NO	NO	NA	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	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA
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	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA
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	NA	NO	NO	NA	NA	NA	NA	NO	NO	NA	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	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA
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	NA	NO	NO	NA	NA	NA	NA	NO	NO	NA	NO
ANTONIA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARÍA LUISA	F	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA
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	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA
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

cuantos <- nrow(femenino.sofbol)

prob <- cuantos / n * 100
prob

## [1] 0

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

cuantos <- nrow(masculino.pesas.futbol)

prob <- cuantos / n * 100
prob

## [1] 0

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

cuantos <- nrow(femenino.rondalla.tahitiano)

prob <- cuantos / n * 100
prob

## [1] 0

CASO9

Adolfo Moreno Hernandez

18/10/2020

1.- Cargar librerias

2.- Determinar o construir el conjunto de datos

3.- Determinar probabilidades

3.1 Probabilidad de que una persona no practique deporte ni practique actividad cultural

3.2. Probabilidad de que practiquen deporte y no practiquen actividad cultural

3.3. Probabilidad de que practique la actividad deportiva de solamente ajedrez y únicamente ajedrez.

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

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

3.6. Probabilidad de que una persona sea del género masculino.

3.7. Probabilidad de que una persona sea del género femenino.

3.8. Probabilidad de que una persona sea del género femenino y practique el deporte del softbol.

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

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