CASO 9

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

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

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.

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

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

## IMAGEN

PASO 2. Determinar o construir el conjunto de datos.

(encoding significa que acepte acentos en los datos.)

#Fuente ("../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	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

PASO 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
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 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

cuantos = nrow(sideportenocultural)

prob = cuantos / n * 100
prob

## [1] 0

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

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

CASO 9

Myriam Velazquez Franco

17/10/2020

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

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

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.

PASO 1. Cargar librerías

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

PASO 2. Determinar o construir el conjunto de datos.

(encoding significa que acepte acentos en los datos.)

Mostrar los datos;

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

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: &

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 |

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.

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.

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

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

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

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.

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.

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.

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’

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

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

PASO 4. Inerpretación del caso.

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

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

La probabilidad de que una persona sea del género masculino es del 57 %

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

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

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

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

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

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