Caso 9. Probabilidad en conjunto de datos personas

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.
1. Determinar o construír el conjunto 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. Las personas tienen nombre, edad, género, y practican alguna actividad deportiva o cultural; 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. El conjunto de datos se construye con una función previamente cargada y desarrollada. *3. Determinar probabilidades. 3.1. Probabilidad de que una persona no practique deporte ni practique actividad cultural 3.2. Probabilidad de que practique deporte y no practique actividad cultural 3.3. Probabilidad de que practique la actividad deportiva de solamente ajedrez y únicamente ajedrez 3.4. Probabilidad de que practique dos deportes 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 enero masculino y practique pesas y futbol al mismo tiempo 3.10. Probabilidad de que una persona sea del género femenino y practique rondalla y thaitiano.

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)

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

Mostrar los datos.

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

Determinar probabilidades.

¿Cuántos casos hay en todo el conjunto de datos?
Determinar la variable n igual al total de observaciones o registros de personas.

n  <- nrow(personas)

3.1 Probabilidad de que una persona no practique deporte ni practique actividad cultural. *Se utiliza el operador lógico de andy y su símbolo en r es: &

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

*La probabilidad de que una persona no practique deporte ni practique actividad cultural es del 79%.

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

Hay que buscar personas que al menos practiquen alguna actividad deportiva y no practiquen ninguna actividad cultural.
Se utiliza el operador lógico or y su símbolo es |.

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

kable(sideportenocultural)

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
RAÚL	M	NO	SI	NO	NO	SI	SI	SI	SI	NO	NO	SI	NO
MARÍA FERNANDA	F	NO	SI	NO	NO	SI	SI	SI	SI	NO	NO	SI	NO
VÍCTOR MANUEL	M	NO	SI	NO	NO	SI	SI	SI	SI	NO	NO	SI	NO
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
FELIPE	M	NO	SI	NO	NO	SI	SI	SI	SI	NO	NO	SI	NO

cuantos <- nrow(sideportenocultural)

prob <- cuantos / n * 100
prob

## [1] 8

Probabilidad de que practiquen deporte y no practique actividad cultural es del : 8%.

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

Buscar personas que sea absolutamente ajedrez y nada mas que 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

La probabilidad de que una persona practique la actividad deportiva de solamente ajedrez y únicamente ajedrez es del: 0%.

3.4. Probabilidad de que practique al menos dos deportes al mismo tiempo no importa si practica o no actividad cultural. * Se debe encontrar combinaciones de las actividades deportivas en grupos de dos para formular las expresiones de que practiquen al menos dos actividaes deportivas.

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"

Identificar cuando prctique dos actividades deportivas combinando expresiones or agrupadas en paréntesis.

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

La probabilidad de que practique al menos dos deportes al mismo tiempo no importa si practica o no actividad cultural es del: 21%.

3.5. Probabilidad de que practique al menos una actividad deportiva y al menos una actividad cultural al mismo tiempo. * Encontrar combinciones de cada actividad deportiva con todas las actividades culturales para determinar las expresiones de comparación. * Sólo se muestra ajedrez con las actividades culturales para como guia sobre las expresiones de comparación.

head(combinations(6, 2, c(deportivas, culturales),),5)

##      [,1]      [,2]        
## [1,] "Ajedrez" "Atletismo" 
## [2,] "Ajedrez" "Béisbol"   
## [3,] "Ajedrez" "Folklórico"
## [4,] "Ajedrez" "Fútbol"    
## [5,] "Ajedrez" "Pantomima"

Identificar cuando practiquen al menos una actividad deportiva y al menos una actividad cultural combinando expresiones and y or agrupadas en paréntesis.

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

La probabilidad de que practique al menos una actividad deportiva y al menos una actividad cultural al mismo tiempo es del: 21%.

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

masculino <- filter(personas, generos == "M")
kable(masculino)

nombres	generos	ajedrez	beisbol	tiro.arco	pesas	futbol	softbol	atletismo	folklorico	tahitiano	teatro	rondalla	pantomima
JUAN	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JOSÉ LUIS	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JOSÉ	M	NO	SI	NO	NO	SI	SI	SI	SI	NO	NO	SI	NO
FRANCISCO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ANTONIO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JESÚS	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MIGUEL ÁNGEL	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
PEDRO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ALEJANDRO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MANUEL	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JUAN CARLOS	M	SI	SI	SI	SI	SI	SI	SI	SI	SI	SI	SI	SI
ROBERTO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
FERNANDO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
DANIEL	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
CARLOS	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JORGE	M	SI	SI	SI	SI	SI	SI	SI	SI	SI	SI	SI	SI
RICARDO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MIGUEL	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
EDUARDO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
RAFAEL	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARTÍN	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
RAÚL	M	NO	SI	NO	NO	SI	SI	SI	SI	NO	NO	SI	NO
DAVID	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JOSEFINA	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JOSÉ ANTONIO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARCO ANTONIO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
VERÓNICA	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARÍA ELENA	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARIO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ALFREDO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
SERGIO	M	SI	SI	SI	SI	SI	SI	SI	SI	SI	SI	SI	SI
ALBERTO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
LUIS	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ARMANDO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
SANTIAGO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JUAN MANUEL	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ÁNGEL	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
SALVADOR	M	SI	SI	SI	SI	SI	SI	SI	SI	SI	SI	SI	SI
VÍCTOR MANUEL	M	NO	SI	NO	NO	SI	SI	SI	SI	NO	NO	SI	NO
GABRIEL	M	SI	SI	SI	SI	SI	SI	SI	SI	SI	SI	SI	SI
ANDRÉS	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ÓSCAR	M	SI	SI	SI	SI	SI	SI	SI	SI	SI	SI	SI	SI
GUILLERMO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
RAMÓN	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
PABLO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
RUBEN	M	NO	SI	NO	NO	SI	SI	SI	SI	NO	NO	SI	NO
LUIS ÁNGEL	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
FELIPE	M	NO	SI	NO	NO	SI	SI	SI	SI	NO	NO	SI	NO
JORGE JESÚS	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JAIME	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JOSÉ GUADALUPE	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JULIO CESAR	M	SI	SI	SI	SI	SI	SI	SI	SI	SI	SI	SI	SI
JOSÉ DE JESÚS	M	SI	SI	SI	SI	SI	SI	SI	SI	SI	SI	SI	SI
DIEGO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ARACELI	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
AGUSTÍN	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
GUSTAVO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO

cuantos <- nrow(masculino)

prob <- cuantos / n * 100
prob

## [1] 57

La probabilidad de que una persona sea del genero masculino es del: 57%.

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

femenino <- filter(personas, generos == "F")
kable(femenino)

nombres	generos	ajedrez	beisbol	tiro.arco	pesas	futbol	softbol	atletismo	folklorico	tahitiano	teatro	rondalla	pantomima
MARÍA GUADALUPE	F	NO	SI	NO	NO	SI	SI	SI	SI	NO	NO	SI	NO
GUADALUPE	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARÍA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JUANA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARGARITA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARÍA DEL CARMEN	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JAVIER	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ARTURO	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JOSÉ MANUEL	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
FRANCISCO JAVIER	F	SI	SI	SI	SI	SI	SI	SI	SI	SI	SI	SI	SI
ENRIQUE	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
GERARDO	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
LETICIA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ROSA	F	SI	SI	SI	SI	SI	SI	SI	SI	SI	SI	SI	SI
FRANCISCA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
TERESA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ALICIA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARÍA FERNANDA	F	NO	SI	NO	NO	SI	SI	SI	SI	NO	NO	SI	NO
ALEJANDRA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARTHA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
YOLANDA	F	SI	SI	SI	SI	SI	SI	SI	SI	SI	SI	SI	SI
PATRICIA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARÍA DE LOS ÁNGELES	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ROSA MARÍA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ELIZABETH	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
GLORIA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
GABRIELA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
SILVIA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARÍA DE GUADALUPE	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARÍA DE JESÚS	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ANA MARÍA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARÍA ISABEL	F	NO	SI	NO	NO	SI	SI	SI	SI	NO	NO	SI	NO
ANTONIA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARÍA LUISA	F	SI	SI	SI	SI	SI	SI	SI	SI	SI	SI	SI	SI
MARÍA DEL ROSARIO	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ANDREA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ISABEL	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARÍA TERESA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
IRMA	F	SI	SI	SI	SI	SI	SI	SI	SI	SI	SI	SI	SI
CARMEN	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
LUCÍA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ADRIANA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARÍA DE LA LUZ	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO

cuantos <- nrow(femenino)

prob <- cuantos / n * 100
prob

## [1] 43

La probabilidad de que una persona sea del genero femenino es del: 43%.

3.8 Probabilidad de que una persona sea del genero femenino y pratique el deporte softbol. * Buscar que generos sea “F” y softbol sea “si”. * Ya se tiene un conjunto llamado femenino, sobre ese realizar el filtro.

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

La probabilidad de que una persona sea del genero femenino y practique el deporte de softbol es del: 8%.

3.9. Probabilidad de que una persona sea del género masculino y practique pesas y fútbol al mismo tiempo. * Ya se tienen un conjunto llamada masculino, se reutilza para encontrar esta probabilidad sólo preguntando que pesas sea igual a ‘SI’ y fultbol sea también igual a ‘SI’.

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

La probabilidad de que una persona del genero masculino practique pesas y futbol al mismo tiempo es del: 8%.

3.10. Probabilidad de que una persona sea del género femenino y practique rondalla y tahitiano. * Ya se tiene un conjunto llamado femenino, reutilizar ese conjunto para formular la expresión de comparación.

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

La probabilidad de que una persona del genero femenino practique rondalla y tahitiano al mismo tiempo es del: 5%.

INTERPRETACION DEL CASO.

En este caso numero 9 se han interpretado las probabilidades basadas en la frecuencia y frecuencia relativa en numero de casos de la cual la razon del toal de observaciones de personas que son n=100.

Lo primero que hice fue cargar las librerias a usar, despues a construir los datos cosa que hice con un link en github con los datos ya realizados que me proporciono mi profesor con la informacion de nombres y actividades que se plantean en el caso, empezando con el punto 3.1 se llego al resultado de que la probabilidad de que una persona no practique deporte ni practique actividad cultural es del 79% de las 100 personas, en el 3.2 la probabilidad de que practiquen deporte y no practique actividad cultural es del 8% en dicho caso, asi sucesivamente con los siguientes puntos hasta llegar al punto 3.10 en el que se determino que la probabilidad de que una persona del genero femenino practique rondalla y thitiano al mismo tiempo es del 5%, concluyendo asi con el caso establecido.

Caso 9. Probabilidad en conjunto de datos personas

Yarib Rodríguez Carrasco

10/16/2020