Caso 9. Probabilidad en conjunto de datos personas

Descripción

Determinar probabilidades por medio de frecuencias relativas en conjuntos de datos.

1. Cargar librerías
1. Determinar o construir 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.

1. 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.

1. Cargar Librerías

library(knitr)
library(dplyr)
library(gtools)

Se busca determinar probabilidades al seleccionar una persona con ciertas carcaterísticas de acuerdo a los atributos del conjunto de datos

include_graphics("../imagenes/seleccionar.persona.jpg")

include_graphics("../imagenes/seleccionar.persona.2.jpg")

2. Determinar o construir el conjunto de datos

encoding significa que acepte acentos en los datos

# source("../funciones/construir datos y funciones caso 9.r", encoding = "UTF-8")

# o bien pueden cargar desde github

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	SI	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	SI	SI	NO	SI	NO	NO	NO	NO
MARÍA GUADALUPE	F	NO	NO	NO	NO	NO	SI	NO	SI	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	SI	NO	NO
MARÍA	F	NO	NO	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	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	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO
ALEJANDRO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MANUEL	M	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO	SI	NO
MARGARITA	F	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	SI	NO
MARÍA DEL CARMEN	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JUAN CARLOS	M	NO	NO	SI	NO	NO	NO	SI	NO	NO	SI	SI	NO
ROBERTO	M	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO
FERNANDO	M	NO	NO	NO	NO	NO	NO	SI	SI	NO	NO	NO	NO
DANIEL	M	NO	NO	SI	NO	SI	SI	NO	NO	NO	NO	SI	NO
CARLOS	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	SI	NO
JORGE	M	SI	NO	NO	NO	NO	NO	NO	SI	NO	NO	SI	NO
RICARDO	M	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	SI	NO
MIGUEL	M	NO	SI	NO	NO	SI	NO	NO	NO	NO	SI	NO	NO
EDUARDO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO
JAVIER	F	NO	SI	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
RAFAEL	M	NO	NO	NO	SI	NO	NO	NO	SI	NO	NO	NO	NO
MARTÍN	M	NO	SI	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
RAÚL	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
DAVID	M	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO	SI
JOSEFINA	M	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO	SI	SI
JOSÉ ANTONIO	M	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ARTURO	F	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
MARCO ANTONIO	M	NO	NO	SI	NO	NO	NO	SI	SI	NO	NO	SI	NO
JOSÉ MANUEL	F	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
FRANCISCO JAVIER	F	NO	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO	NO
ENRIQUE	F	NO	NO	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO
VERÓNICA	M	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO
GERARDO	F	SI	SI	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO
MARÍA ELENA	M	NO	NO	NO	NO	NO	SI	NO	NO	SI	NO	NO	NO
LETICIA	F	NO	SI	NO	NO	NO	SI	NO	NO	NO	NO	SI	SI
ROSA	F	NO	NO	NO	NO	NO	SI	SI	NO	NO	NO	SI	SI
MARIO	M	SI	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	SI
FRANCISCA	F	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	SI	NO
ALFREDO	M	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
TERESA	F	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO
ALICIA	F	NO	NO	NO	NO	NO	NO	NO	SI	NO	SI	SI	NO
MARÍA FERNANDA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
SERGIO	M	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO
ALBERTO	M	NO	NO	SI	NO	NO	NO	NO	NO	SI	SI	NO	NO
LUIS	M	SI	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ARMANDO	M	NO	NO	NO	NO	NO	NO	SI	SI	NO	NO	NO	NO
ALEJANDRA	F	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO
MARTHA	F	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	SI	NO
SANTIAGO	M	NO	SI	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO
YOLANDA	F	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
PATRICIA	F	NO	NO	SI	NO	NO	NO	SI	NO	SI	NO	NO	NO
MARÍA DE LOS ÁNGELES	F	NO	NO	NO	NO	SI	SI	NO	NO	NO	NO	NO	NO
JUAN MANUEL	M	NO	NO	NO	NO	NO	SI	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	SI	NO	SI	NO	NO	SI	NO
GLORIA	F	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO
ÁNGEL	M	NO	SI	NO	NO	NO	NO	SI	NO	NO	NO	SI	NO
GABRIELA	F	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
SALVADOR	M	NO	NO	NO	NO	NO	NO	SI	NO	NO	SI	NO	NO
VÍCTOR MANUEL	M	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	SI
SILVIA	F	NO	SI	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO
MARÍA DE GUADALUPE	F	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO	SI	NO
MARÍA DE JESÚS	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	SI
GABRIEL	M	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
ANDRÉS	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	SI
ÓSCAR	M	NO	NO	SI	NO	NO	NO	SI	NO	NO	NO	NO	NO
GUILLERMO	M	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
ANA MARÍA	F	NO	NO	NO	NO	NO	SI	SI	NO	SI	NO	SI	SI
RAMÓN	M	NO	NO	NO	NO	SI	NO	NO	SI	NO	NO	NO	NO
MARÍA ISABEL	F	NO	SI	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO
PABLO	M	NO	SI	NO	NO	NO	NO	NO	NO	NO	SI	SI	NO
RUBEN	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
MARÍA LUISA	F	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
LUIS ÁNGEL	M	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	SI	NO
MARÍA DEL ROSARIO	F	NO	SI	NO	NO	NO	SI	SI	NO	NO	NO	NO	NO
FELIPE	M	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO	NO	NO
JORGE JESÚS	M	NO	NO	NO	SI	NO	NO	NO	SI	SI	NO	NO	NO
JAIME	M	SI	SI	NO	SI	NO	NO	SI	SI	NO	NO	SI	NO
JOSÉ GUADALUPE	M	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
JULIO CESAR	M	NO	SI	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO
JOSÉ DE JESÚS	M	SI	NO	NO	NO	NO	SI	SI	SI	NO	NO	NO	NO
DIEGO	M	NO	NO	NO	SI	NO	NO	NO	NO	NO	SI	NO	NO
ARACELI	M	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO
ANDREA	F	NO	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO
ISABEL	F	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
MARÍA TERESA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI
IRMA	F	NO	SI	NO	NO	NO	NO	SI	SI	NO	NO	SI	NO
CARMEN	F	NO	NO	NO	NO	NO	NO	SI	SI	NO	NO	NO	NO
LUCÍA	F	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ADRIANA	F	NO	SI	NO	NO	SI	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	SI	NO
GUSTAVO	M	SI	NO	SI	NO	NO	NO	NO	SI	SI	NO	NO	NO

3. Determinar probabilidades

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

n <- nrow(personas)

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

Se utilzia el operador lógico de andy 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
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
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
ALEJANDRO	M	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
RAÚL	M	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
ROSA MARÍA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
RUBEN	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
AGUSTÍN	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO

cuantos <- nrow(nopractica)

prob <- cuantos / n * 100
prob

## [1] 14

La probabilida de que una persona no practique deporte ni practique actividad cultural es del: 14 %

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

Hay que busar 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 == '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	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARÍA	F	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO
PEDRO	M	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO
ROBERTO	M	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO
JOSÉ ANTONIO	M	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
VERÓNICA	M	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO
GERARDO	F	SI	SI	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO
ALFREDO	M	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
TERESA	F	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO
SERGIO	M	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO
LUIS	M	SI	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ALEJANDRA	F	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO
SANTIAGO	M	NO	SI	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO
YOLANDA	F	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
MARÍA DE LOS ÁNGELES	F	NO	NO	NO	NO	SI	SI	NO	NO	NO	NO	NO	NO
JUAN MANUEL	M	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO
GLORIA	F	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO
GABRIELA	F	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
GABRIEL	M	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
ÓSCAR	M	NO	NO	SI	NO	NO	NO	SI	NO	NO	NO	NO	NO
MARÍA ISABEL	F	NO	SI	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO
MARÍA LUISA	F	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
MARÍA DEL ROSARIO	F	NO	SI	NO	NO	NO	SI	SI	NO	NO	NO	NO	NO
FELIPE	M	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO	NO	NO
JOSÉ GUADALUPE	M	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
JULIO CESAR	M	NO	SI	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO
ANDREA	F	NO	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO
ISABEL	F	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
LUCÍA	F	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ADRIANA	F	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO

cuantos <- nrow(sideportenocultural)

prob <- cuantos / n * 100
prob

## [1] 30

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

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
JOSÉ ANTONIO	M	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO

cuantos <- nrow(ajedrez)

prob <- cuantos / n * 100
prob

## [1] 1

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

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	NO	NO	NO	SI	SI	NO	SI	NO	NO	NO	NO
PEDRO	M	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO
MANUEL	M	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO	SI	NO
JUAN CARLOS	M	NO	NO	SI	NO	NO	NO	SI	NO	NO	SI	SI	NO
DANIEL	M	NO	NO	SI	NO	SI	SI	NO	NO	NO	NO	SI	NO
MIGUEL	M	NO	SI	NO	NO	SI	NO	NO	NO	NO	SI	NO	NO
DAVID	M	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO	SI
JOSEFINA	M	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO	SI	SI
MARCO ANTONIO	M	NO	NO	SI	NO	NO	NO	SI	SI	NO	NO	SI	NO
GERARDO	F	SI	SI	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO
LETICIA	F	NO	SI	NO	NO	NO	SI	NO	NO	NO	NO	SI	SI
ROSA	F	NO	NO	NO	NO	NO	SI	SI	NO	NO	NO	SI	SI
FRANCISCA	F	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	SI	NO
LUIS	M	SI	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
SANTIAGO	M	NO	SI	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO
PATRICIA	F	NO	NO	SI	NO	NO	NO	SI	NO	SI	NO	NO	NO
MARÍA DE LOS ÁNGELES	F	NO	NO	NO	NO	SI	SI	NO	NO	NO	NO	NO	NO
ÁNGEL	M	NO	SI	NO	NO	NO	NO	SI	NO	NO	NO	SI	NO
MARÍA DE GUADALUPE	F	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO	SI	NO
GABRIEL	M	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
ÓSCAR	M	NO	NO	SI	NO	NO	NO	SI	NO	NO	NO	NO	NO
ANA MARÍA	F	NO	NO	NO	NO	NO	SI	SI	NO	SI	NO	SI	SI
MARÍA ISABEL	F	NO	SI	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO
MARÍA DEL ROSARIO	F	NO	SI	NO	NO	NO	SI	SI	NO	NO	NO	NO	NO
FELIPE	M	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO	NO	NO
JAIME	M	SI	SI	NO	SI	NO	NO	SI	SI	NO	NO	SI	NO
JULIO CESAR	M	NO	SI	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO
JOSÉ DE JESÚS	M	SI	NO	NO	NO	NO	SI	SI	SI	NO	NO	NO	NO
ANDREA	F	NO	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO
IRMA	F	NO	SI	NO	NO	NO	NO	SI	SI	NO	NO	SI	NO
ADRIANA	F	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
GUSTAVO	M	SI	NO	SI	NO	NO	NO	NO	SI	SI	NO	NO	NO

cuantos <- nrow(dosdeportes)

prob <- cuantos / n * 100
prob

## [1] 32

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

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[1], culturales), ),5)

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

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	NO	NO	NO	SI	SI	NO	SI	NO	NO	NO	NO
MARÍA GUADALUPE	F	NO	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO	NO
MANUEL	M	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO	SI	NO
JUAN CARLOS	M	NO	NO	SI	NO	NO	NO	SI	NO	NO	SI	SI	NO
FERNANDO	M	NO	NO	NO	NO	NO	NO	SI	SI	NO	NO	NO	NO
DANIEL	M	NO	NO	SI	NO	SI	SI	NO	NO	NO	NO	SI	NO
JORGE	M	SI	NO	NO	NO	NO	NO	NO	SI	NO	NO	SI	NO
MIGUEL	M	NO	SI	NO	NO	SI	NO	NO	NO	NO	SI	NO	NO
JAVIER	F	NO	SI	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
RAFAEL	M	NO	NO	NO	SI	NO	NO	NO	SI	NO	NO	NO	NO
MARTÍN	M	NO	SI	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
DAVID	M	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO	SI
JOSEFINA	M	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO	SI	SI
MARCO ANTONIO	M	NO	NO	SI	NO	NO	NO	SI	SI	NO	NO	SI	NO
FRANCISCO JAVIER	F	NO	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO	NO
ENRIQUE	F	NO	NO	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO
MARÍA ELENA	M	NO	NO	NO	NO	NO	SI	NO	NO	SI	NO	NO	NO
LETICIA	F	NO	SI	NO	NO	NO	SI	NO	NO	NO	NO	SI	SI
ROSA	F	NO	NO	NO	NO	NO	SI	SI	NO	NO	NO	SI	SI
MARIO	M	SI	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	SI
FRANCISCA	F	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	SI	NO
ALBERTO	M	NO	NO	SI	NO	NO	NO	NO	NO	SI	SI	NO	NO
ARMANDO	M	NO	NO	NO	NO	NO	NO	SI	SI	NO	NO	NO	NO
MARTHA	F	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	SI	NO
PATRICIA	F	NO	NO	SI	NO	NO	NO	SI	NO	SI	NO	NO	NO
ELIZABETH	F	NO	NO	NO	NO	NO	SI	NO	SI	NO	NO	SI	NO
ÁNGEL	M	NO	SI	NO	NO	NO	NO	SI	NO	NO	NO	SI	NO
SALVADOR	M	NO	NO	NO	NO	NO	NO	SI	NO	NO	SI	NO	NO
SILVIA	F	NO	SI	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO
MARÍA DE GUADALUPE	F	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO	SI	NO
ANA MARÍA	F	NO	NO	NO	NO	NO	SI	SI	NO	SI	NO	SI	SI
RAMÓN	M	NO	NO	NO	NO	SI	NO	NO	SI	NO	NO	NO	NO
PABLO	M	NO	SI	NO	NO	NO	NO	NO	NO	NO	SI	SI	NO
LUIS ÁNGEL	M	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	SI	NO
JORGE JESÚS	M	NO	NO	NO	SI	NO	NO	NO	SI	SI	NO	NO	NO
JAIME	M	SI	SI	NO	SI	NO	NO	SI	SI	NO	NO	SI	NO
JOSÉ DE JESÚS	M	SI	NO	NO	NO	NO	SI	SI	SI	NO	NO	NO	NO
DIEGO	M	NO	NO	NO	SI	NO	NO	NO	NO	NO	SI	NO	NO
IRMA	F	NO	SI	NO	NO	NO	NO	SI	SI	NO	NO	SI	NO
CARMEN	F	NO	NO	NO	NO	NO	NO	SI	SI	NO	NO	NO	NO
GUSTAVO	M	SI	NO	SI	NO	NO	NO	NO	SI	SI	NO	NO	NO

cuantos <- nrow(deportiva.y.cultural)

prob <- cuantos / n * 100
prob

## [1] 41

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

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	SI	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	SI	SI	NO	SI	NO	NO	NO	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	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO
ALEJANDRO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MANUEL	M	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO	SI	NO
JUAN CARLOS	M	NO	NO	SI	NO	NO	NO	SI	NO	NO	SI	SI	NO
ROBERTO	M	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO
FERNANDO	M	NO	NO	NO	NO	NO	NO	SI	SI	NO	NO	NO	NO
DANIEL	M	NO	NO	SI	NO	SI	SI	NO	NO	NO	NO	SI	NO
CARLOS	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	SI	NO
JORGE	M	SI	NO	NO	NO	NO	NO	NO	SI	NO	NO	SI	NO
RICARDO	M	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	SI	NO
MIGUEL	M	NO	SI	NO	NO	SI	NO	NO	NO	NO	SI	NO	NO
EDUARDO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO
RAFAEL	M	NO	NO	NO	SI	NO	NO	NO	SI	NO	NO	NO	NO
MARTÍN	M	NO	SI	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
RAÚL	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
DAVID	M	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO	SI
JOSEFINA	M	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO	SI	SI
JOSÉ ANTONIO	M	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARCO ANTONIO	M	NO	NO	SI	NO	NO	NO	SI	SI	NO	NO	SI	NO
VERÓNICA	M	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO
MARÍA ELENA	M	NO	NO	NO	NO	NO	SI	NO	NO	SI	NO	NO	NO
MARIO	M	SI	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	SI
ALFREDO	M	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
SERGIO	M	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO
ALBERTO	M	NO	NO	SI	NO	NO	NO	NO	NO	SI	SI	NO	NO
LUIS	M	SI	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ARMANDO	M	NO	NO	NO	NO	NO	NO	SI	SI	NO	NO	NO	NO
SANTIAGO	M	NO	SI	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO
JUAN MANUEL	M	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO
ÁNGEL	M	NO	SI	NO	NO	NO	NO	SI	NO	NO	NO	SI	NO
SALVADOR	M	NO	NO	NO	NO	NO	NO	SI	NO	NO	SI	NO	NO
VÍCTOR MANUEL	M	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	SI
GABRIEL	M	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
ANDRÉS	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	SI
ÓSCAR	M	NO	NO	SI	NO	NO	NO	SI	NO	NO	NO	NO	NO
GUILLERMO	M	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
RAMÓN	M	NO	NO	NO	NO	SI	NO	NO	SI	NO	NO	NO	NO
PABLO	M	NO	SI	NO	NO	NO	NO	NO	NO	NO	SI	SI	NO
RUBEN	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
LUIS ÁNGEL	M	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	SI	NO
FELIPE	M	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO	NO	NO
JORGE JESÚS	M	NO	NO	NO	SI	NO	NO	NO	SI	SI	NO	NO	NO
JAIME	M	SI	SI	NO	SI	NO	NO	SI	SI	NO	NO	SI	NO
JOSÉ GUADALUPE	M	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
JULIO CESAR	M	NO	SI	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO
JOSÉ DE JESÚS	M	SI	NO	NO	NO	NO	SI	SI	SI	NO	NO	NO	NO
DIEGO	M	NO	NO	NO	SI	NO	NO	NO	NO	NO	SI	NO	NO
ARACELI	M	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO
AGUSTÍN	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
GUSTAVO	M	SI	NO	SI	NO	NO	NO	NO	SI	SI	NO	NO	NO

cuantos <- nrow(masculino)

prob <- cuantos / n * 100
prob

## [1] 57

La probabilidad de que una persona sea del género 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	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO	NO
GUADALUPE	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO
MARÍA	F	NO	NO	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	SI	NO	NO	SI	NO
MARÍA DEL CARMEN	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JAVIER	F	NO	SI	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
ARTURO	F	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
JOSÉ MANUEL	F	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
FRANCISCO JAVIER	F	NO	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO	NO
ENRIQUE	F	NO	NO	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO
GERARDO	F	SI	SI	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO
LETICIA	F	NO	SI	NO	NO	NO	SI	NO	NO	NO	NO	SI	SI
ROSA	F	NO	NO	NO	NO	NO	SI	SI	NO	NO	NO	SI	SI
FRANCISCA	F	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	SI	NO
TERESA	F	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO
ALICIA	F	NO	NO	NO	NO	NO	NO	NO	SI	NO	SI	SI	NO
MARÍA FERNANDA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ALEJANDRA	F	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO
MARTHA	F	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	SI	NO
YOLANDA	F	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
PATRICIA	F	NO	NO	SI	NO	NO	NO	SI	NO	SI	NO	NO	NO
MARÍA DE LOS ÁNGELES	F	NO	NO	NO	NO	SI	SI	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	SI	NO	SI	NO	NO	SI	NO
GLORIA	F	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO
GABRIELA	F	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
SILVIA	F	NO	SI	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO
MARÍA DE GUADALUPE	F	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO	SI	NO
MARÍA DE JESÚS	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	SI
ANA MARÍA	F	NO	NO	NO	NO	NO	SI	SI	NO	SI	NO	SI	SI
MARÍA ISABEL	F	NO	SI	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO
ANTONIA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARÍA LUISA	F	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
MARÍA DEL ROSARIO	F	NO	SI	NO	NO	NO	SI	SI	NO	NO	NO	NO	NO
ANDREA	F	NO	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO
ISABEL	F	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
MARÍA TERESA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI
IRMA	F	NO	SI	NO	NO	NO	NO	SI	SI	NO	NO	SI	NO
CARMEN	F	NO	NO	NO	NO	NO	NO	SI	SI	NO	NO	NO	NO
LUCÍA	F	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ADRIANA	F	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
MARÍA DE LA LUZ	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO

cuantos <- nrow(femenino)

prob <- cuantos / n * 100
prob

## [1] 43

La probabilidad de que una persona sea del género femenino es del 43 %

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

Buscar que geeros 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	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO	NO
MARÍA	F	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO
FRANCISCO JAVIER	F	NO	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO	NO
LETICIA	F	NO	SI	NO	NO	NO	SI	NO	NO	NO	NO	SI	SI
ROSA	F	NO	NO	NO	NO	NO	SI	SI	NO	NO	NO	SI	SI
TERESA	F	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO
MARÍA DE LOS ÁNGELES	F	NO	NO	NO	NO	SI	SI	NO	NO	NO	NO	NO	NO
ELIZABETH	F	NO	NO	NO	NO	NO	SI	NO	SI	NO	NO	SI	NO
ANA MARÍA	F	NO	NO	NO	NO	NO	SI	SI	NO	SI	NO	SI	SI
MARÍA DEL ROSARIO	F	NO	SI	NO	NO	NO	SI	SI	NO	NO	NO	NO	NO
ANDREA	F	NO	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO

cuantos <- nrow(femenino.sofbol)

prob <- cuantos / n * 100
prob

## [1] 11

La Probabilidad de que una persona sea del género femenino y practique el deporte del softbol es del 11 %

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

cuantos <- nrow(masculino.pesas.futbol)

prob <- cuantos / n * 100
prob

## [1] 0

La probabilidad de una persona sea del género masculino y practique pesas y fútbol al mismo tiempo es del 0 %

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
ANA MARÍA	F	NO	NO	NO	NO	NO	SI	SI	NO	SI	NO	SI	SI

cuantos <- nrow(femenino.rondalla.tahitiano)

prob <- cuantos / n * 100
prob

## [1] 1

La probabilidad de que una persona sea del género femenino y practique rondalla y tahitiano es del 1 %

Interpretación del caso de entre 180 y 200 palabras tratando de contestar las probabilidades de los puntos del 3.1 en adelante.

Se interpretan las probabilidades encontradas basadas en la frecuencia y frecuencia relativa del número de casos en razón del total de observaciones de perspnas que son \(n=100\)

En el punto 3.1. se encontró que la frecuencia de casos de que una persona no prctique deporte ni practique actividad cultural, por lo tanto la probabilidad es del TANTO %

En el punto 3.2 …

En el punto 3.3. …

… …

Finalmente en el punto 3.10 se encontró que la probabilidad de que una persona sea del género femenino y practique rondalla y tahitiano es del

Pregunta ¿Habrá otra manera de encontrar probabilidades tal vez mas sencilla?, la respuesta es … … si mediante teoría de conjuntos, haciendo subconjuntos del universo personas y realizar uniones, intersecciones diferencias y luego determinar las probabilidades.

Próximo CASO 10, mismos datos de personas. Pendiente