Caso 9

Probabilidades de conjuntos

Objetivo Determinar probabilidad de varios conjuntos de datos

Descripción

Determinar probabilidades por medio de frecuencias relativas en conjuntos de datos

1. Cargar librerías

library(knitr)
library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(gtools)

2. Determinar conjuntos de datos

source("../funciones/construir_datos_y_funciones_caso 9.r")

• Mostraremos los Datos con la funcion kable()

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

3. Determinar probabilidades

• Primero necesitamos saber cuantos casos hay en total

n<-nrow(personas)

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

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

nombres	generos	ajedrez	beisbol	tiro.arco	pesas	futbol	softbol	atletismo	folklorico	tahitiano	teatro	rondalla	pantomima
JUAN	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JOSÉ LUIS	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
FRANCISCO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
GUADALUPE	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARÍA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JUANA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ANTONIO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JESÚS	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MIGUEL ÁNGEL	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
PEDRO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ALEJANDRO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MANUEL	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARGARITA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARÍA DEL CARMEN	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ROBERTO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
FERNANDO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
DANIEL	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
CARLOS	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
RICARDO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MIGUEL	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
EDUARDO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JAVIER	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
RAFAEL	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARTÍN	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
DAVID	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JOSEFINA	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JOSÉ ANTONIO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ARTURO	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARCO ANTONIO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JOSÉ MANUEL	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ENRIQUE	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
VERÓNICA	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
GERARDO	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARÍA ELENA	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
LETICIA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARIO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
FRANCISCA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ALFREDO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
TERESA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ALICIA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ALBERTO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
LUIS	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ARMANDO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ALEJANDRA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARTHA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
SANTIAGO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
PATRICIA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARÍA DE LOS ÁNGELES	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JUAN MANUEL	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ROSA MARÍA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ELIZABETH	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
GLORIA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ÁNGEL	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
GABRIELA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
SILVIA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARÍA DE GUADALUPE	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARÍA DE JESÚS	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ANDRÉS	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
GUILLERMO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ANA MARÍA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
RAMÓN	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
PABLO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ANTONIA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
LUIS ÁNGEL	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARÍA DEL ROSARIO	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JORGE JESÚS	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JAIME	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JOSÉ GUADALUPE	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
DIEGO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ARACELI	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ANDREA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ISABEL	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARÍA TERESA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
CARMEN	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
LUCÍA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ADRIANA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
AGUSTÍN	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARÍA DE LA LUZ	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
GUSTAVO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO

cuantos <- nrow(nopractica)
prob <- cuantos/n *100
paste("la probabilidad es de:" ,prob,"%")

## [1] "la probabilidad es de: 79 %"

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

• con los operadores logicos buscamos alguien que practique deporte y no practique actividad cultural

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

kable(sideportenocultural)

nombres	generos	ajedrez	beisbol	tiro.arco	pesas	futbol	softbol	atletismo	folklorico	tahitiano	teatro	rondalla	pantomima

cuantos <- nrow(sideportenocultural)
prob <- cuantos/n *100
paste("la probabilidad es de:" ,prob,"%")

## [1] "la probabilidad es de: 0 %"

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

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

kable(ajedrez)

nombres	generos	ajedrez	beisbol	tiro.arco	pesas	futbol	softbol	atletismo	folklorico	tahitiano	teatro	rondalla	pantomima

cuantos <- nrow(ajedrez)
prob <- cuantos/n *100
paste("la probabilidad es de:" ,prob,"%")

## [1] "la probabilidad es de: 0 %"

3.4. Probabilidad de que practique dos deportes

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"

• Identificamos los datos de los que practican dos deportes

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
paste("la probabilidad es de:" ,prob,"%")

## [1] "la probabilidad es de: 21 %"

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

• Identificamos quienes practican al menos una actividad deportiva y cultural

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"

• Ahora Buscamos las Personas

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
paste("la probabilidad es de:" ,prob,"%")

## [1] "la probabilidad es de: 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
paste("la probabilidad es de:" ,prob,"%")

## [1] "la probabilidad es de: 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
paste("la probabilidad es de:" ,prob,"%")

## [1] "la probabilidad es de: 43 %"

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

femenino.sofbol <- filter(femenino, softbol == 'SI')

kable(femenino.sofbol)

nombres	generos	ajedrez	beisbol	tiro.arco	pesas	futbol	softbol	atletismo	folklorico	tahitiano	teatro	rondalla	pantomima
MARÍA 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
paste("la probabilidad es de:" ,prob,"%")

## [1] "la probabilidad es de: 8 %"

3.9. Probabilidad de que una persona sea del g enero masculino y practique pesas y futbol al mismo tiempo

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

kable(masculino.pesas.futbol)

nombres	generos	ajedrez	beisbol	tiro.arco	pesas	futbol	softbol	atletismo	folklorico	tahitiano	teatro	rondalla	pantomima
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
paste("la probabilidad es de:" ,prob,"%")

## [1] "la probabilidad es de: 8 %"

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

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
paste("la probabilidad es de:" ,prob,"%")

## [1] "la probabilidad es de: 5 %"

Interpretación del caso 9

En el caso numero 9 veremos cómo sacar la probabilidad de un conjunto de datos de personas tanto hombres como mujeres por medio de frecuencias relativas, por otro lado, también, sacaremos las probabilidades del mismo conjunto de datos cuantas personas practican actividades culturales o deportivas. En el primer punto nos pregunta cual es la probabilidad de que una persona no practique un deporte o actividad, este porcentaje se muestra en el punto correspondiente, que en este caso es el primer punto. En el segundo punto nos pregunta cual es la probabilidad de que una persona practique un deporte, pero no practique una actividad cultural, este porcentaje al igual que en el anterior punto, se muestra en su respectivo punto. Como podemos ver, en cada punto nos pide que probabilidad hay de cierta condición y esto se repite por todos los puntos, esto nos sirve para ver la frecuencia relativa y ver como funciona con un conjunto de datos de 100 personas que son tanto hombres como mujeres.