Caso 9.- Probabilidades en conjuntos de datos

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)
library(gtools)

2. Determinar conjuntos 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. personas tienen nombre, edad, género, y practican alguna actividad deportiva o cultura 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.

source("../Unidad_2/construir_datos_y_funciones_caso_9.r", encoding = "UTF-8")

kable(personas)

nombres	generos	ajedrez	beisbol	tiro.arco	pesas	futbol	softbol	atletismo	box	karateDo	taeWonDo	voleibol	natacion	folklorico	tahitiano	teatro	rondalla	pantomima
JUAN	M	SI	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JOSE LUIS	M	SI	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
JOSE	M	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	SI	NO
MARIA GUADALUPE	F	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO
FRANCISCO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
GUADALUPE	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	SI	NO	SI
MARIA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	SI	NO	NO	NO	NO
JUANA	F	NO	NO	NO	NO	NO	NO	SI	NO	NO	SI	NO	NO	SI	NO	NO	NO	NO
ANTONIO	M	NO	NO	NO	NO	NO	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
JESUS	M	NO	SI	NO	NO	SI	NO	NO	NO	NO	SI	NO	SI	NO	SI	NO	NO	SI
MIGUEL ANGEL	M	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
PEDRO	M	NO	NO	NO	NO	SI	NO	NO	NO	SI	NO	NO	NO	SI	NO	SI	NO	NO
ALEJANDRO	M	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MANUEL	M	SI	SI	NO	NO	SI	NO	NO	SI	SI	SI	NO	NO	NO	NO	NO	NO	NO
MARGARITA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	SI	NO	NO
MARIA DEL CARMEN	F	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	SI	NO	NO	NO
JUAN CARLOS	M	NO	NO	SI	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	SI	SI
ROBERTO	M	SI	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
FERNANDO	M	NO	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
DANIEL	M	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO
CARLOS	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO	NO
JORGE	M	NO	NO	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO	SI	NO	SI	NO	NO
RICARDO	M	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI
MIGUEL	M	NO	NO	NO	SI	NO	SI	NO	SI	NO	SI	NO	NO	NO	NO	NO	SI	SI
EDUARDO	M	NO	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	SI	NO	NO	SI	NO
JAVIER	F	SI	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	SI
RAFAEL	M	NO	SI	NO	NO	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
MARTIN	M	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
RAUL	M	NO	SI	NO	NO	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO
DAVID	M	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JOSEFINA	M	NO	NO	SI	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JOSE ANTONIO	M	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ARTURO	F	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	SI	NO	NO	SI	SI	NO
MARCO ANTONIO	M	NO	SI	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO	SI	SI	NO	NO	NO
JOSE MANUEL	F	NO	NO	NO	NO	SI	SI	SI	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
FRANCISCO JAVIER	F	SI	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ENRIQUE	F	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	SI	NO	NO
VERONICA	M	NO	NO	NO	NO	SI	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
GERARDO	F	NO	NO	NO	NO	NO	NO	NO	SI	NO	SI	SI	NO	NO	NO	NO	NO	NO
MARIA ELENA	M	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
LETICIA	F	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	SI
ROSA	F	NO	NO	NO	SI	SI	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO
MARIO	M	NO	NO	SI	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
FRANCISCA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO
ALFREDO	M	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO
TERESA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO
ALICIA	F	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO	SI	NO	NO	NO	SI
MARÍA FERNANDA	F	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	SI
SERGIO	M	NO	NO	NO	NO	NO	SI	NO	NO	NO	SI	SI	NO	NO	NO	NO	NO	NO
ALBERTO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
LUIS	M	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
ARMANDO	M	NO	NO	SI	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO	NO	NO
ALEJANDRA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
MARTHA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
SANTIAGO	M	SI	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI
YOLANDA	F	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO
PATRICIA	F	NO	NO	NO	NO	NO	NO	SI	SI	NO	SI	NO	NO	NO	SI	NO	NO	NO
MARIA DE LOS ANGELES	F	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	SI	NO	NO	NO	NO	SI	NO
JUAN MANUEL	M	NO	NO	NO	NO	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	SI	NO
ROSA MARÍA	F	NO	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO
ELIZABETH	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
GLORIA	F	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI
ANGEL	M	NO	NO	SI	NO	NO	NO	NO	NO	NO	SI	SI	SI	NO	NO	NO	SI	SI
GABRIELA	F	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO
SALVADOR	M	NO	NO	SI	SI	NO	SI	NO	SI	NO	NO	NO	NO	SI	SI	NO	SI	NO
VICTOR MANUEL	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
SILVIA	F	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
MARIA DE GUADALUPE	F	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
MARIA DE JESUS	F	NO	NO	NO	NO	NO	NO	NO	SI	NO	SI	NO	NO	SI	NO	NO	NO	SI
GABRIEL	M	NO	NO	NO	NO	NO	NO	SI	SI	NO	NO	NO	SI	SI	NO	NO	NO	NO
ANDRES	M	NO	SI	NO	SI	NO	NO	NO	NO	SI	SI	NO	NO	NO	SI	NO	NO	NO
OSCAR	M	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	SI	SI	NO	NO	NO	NO
GUILLERMO	M	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI
ANA MARIA	F	NO	SI	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
RAMON	M	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
MARIA ISABEL	F	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
PABLO	M	NO	NO	NO	NO	NO	NO	NO	NO	SI	SI	NO	NO	SI	NO	NO	NO	NO
RUBEN	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	SI	NO
ANTONIA	F	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARIA LUISA	F	SI	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	SI	NO	NO	SI	NO	NO
LUIS ANGEL	M	NO	NO	NO	NO	NO	NO	NO	SI	SI	NO	NO	NO	NO	NO	NO	SI	NO
MARIA DEL ROSARIO	F	NO	NO	NO	NO	NO	NO	SI	NO	NO	SI	SI	NO	NO	NO	NO	NO	NO
FELIPE	M	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JORGE JESUS	M	SI	NO	NO	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JAIME	M	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	SI	NO
JOSE GUADALUPE	M	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	SI	NO	NO	NO
JULIO CESAR	M	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO
JOSE DE JESUS	M	NO	SI	NO	NO	NO	NO	NO	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO
DIEGO	M	NO	NO	NO	SI	SI	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO
ARACELI	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	SI	NO	NO	NO	NO
ANDREA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
ISABEL	F	NO	NO	SI	NO	NO	NO	SI	SI	SI	NO	SI	NO	NO	NO	NO	NO	NO
MARIA TERESA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
IRMA	F	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO
CARMEN	F	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
LUCIA	F	SI	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO
ADRIANA	F	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO	SI	SI	SI	NO	SI	NO	SI
AGUSTIN	M	NO	SI	SI	NO	NO	NO	SI	SI	NO	SI	SI	NO	NO	NO	NO	NO	NO
MARIA DE LA LUZ	F	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
GUSTAVO	M	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO

3. Determinar probabilidades

n <- nrow(personas)

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

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

nombres	generos	ajedrez	beisbol	tiro.arco	pesas	futbol	softbol	atletismo	box	karateDo	taeWonDo	voleibol	natacion	folklorico	tahitiano	teatro	rondalla	pantomima
MARTHA	F	NO	NO	NO	NO	NO	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	NO	NO	NO	NO	NO
VICTOR MANUEL	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARIA TERESA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO

cuantos <- nrow(nopractica)

prob <- cuantos / n * 100
paste("La probabilidad de no practicar nada es: ", prob, "%")

## [1] "La probabilidad de no practicar nada es:  4 %"

3.2. Probabilidad de 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' | box == 'SI' |
                karateDo == 'SI' | taeWonDo == 'SI' | voleibol == 'SI' |                      natacion == 'SI') & folklorico == 'NO' &
                tahitiano == 'NO' & teatro == 'NO' & rondalla == 'NO' & pantomima == 'NO')

kable(sideportenocultural)

nombres	generos	ajedrez	beisbol	tiro.arco	pesas	futbol	softbol	atletismo	box	karateDo	taeWonDo	voleibol	natacion	folklorico	tahitiano	teatro	rondalla	pantomima
JUAN	M	SI	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JOSE LUIS	M	SI	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
FRANCISCO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
ANTONIO	M	NO	NO	NO	NO	NO	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
MIGUEL ANGEL	M	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ALEJANDRO	M	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MANUEL	M	SI	SI	NO	NO	SI	NO	NO	SI	SI	SI	NO	NO	NO	NO	NO	NO	NO
ROBERTO	M	SI	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
FERNANDO	M	NO	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
DANIEL	M	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO
RAFAEL	M	NO	SI	NO	NO	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
MARTIN	M	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
RAUL	M	NO	SI	NO	NO	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO
DAVID	M	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JOSEFINA	M	NO	NO	SI	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JOSE ANTONIO	M	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
FRANCISCO JAVIER	F	SI	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
VERONICA	M	NO	NO	NO	NO	SI	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
GERARDO	F	NO	NO	NO	NO	NO	NO	NO	SI	NO	SI	SI	NO	NO	NO	NO	NO	NO
MARIA ELENA	M	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ROSA	F	NO	NO	NO	SI	SI	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO
MARIO	M	NO	NO	SI	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
SERGIO	M	NO	NO	NO	NO	NO	SI	NO	NO	NO	SI	SI	NO	NO	NO	NO	NO	NO
ALBERTO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
LUIS	M	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
ARMANDO	M	NO	NO	SI	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO	NO	NO
YOLANDA	F	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO
ROSA MARÍA	F	NO	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARIA ISABEL	F	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ANTONIA	F	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARIA DEL ROSARIO	F	NO	NO	NO	NO	NO	NO	SI	NO	NO	SI	SI	NO	NO	NO	NO	NO	NO
FELIPE	M	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JORGE JESUS	M	SI	NO	NO	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JOSE DE JESUS	M	NO	SI	NO	NO	NO	NO	NO	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO
DIEGO	M	NO	NO	NO	SI	SI	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO
ISABEL	F	NO	NO	SI	NO	NO	NO	SI	SI	SI	NO	SI	NO	NO	NO	NO	NO	NO
LUCIA	F	SI	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO
AGUSTIN	M	NO	SI	SI	NO	NO	NO	SI	SI	NO	SI	SI	NO	NO	NO	NO	NO	NO
MARIA DE LA LUZ	F	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
GUSTAVO	M	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO

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

## [1] "La probabilidad de practicar solo deporte es:  40 %"

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

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

kable(ajedrez)

nombres	generos	ajedrez	beisbol	tiro.arco	pesas	futbol	softbol	atletismo	box	karateDo	taeWonDo	voleibol	natacion	folklorico	tahitiano	teatro	rondalla	pantomima
JUAN	M	SI	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JOSE LUIS	M	SI	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
FRANCISCO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
ANTONIO	M	NO	NO	NO	NO	NO	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
MIGUEL ANGEL	M	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ALEJANDRO	M	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MANUEL	M	SI	SI	NO	NO	SI	NO	NO	SI	SI	SI	NO	NO	NO	NO	NO	NO	NO
ROBERTO	M	SI	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
FERNANDO	M	NO	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
DANIEL	M	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO
RAFAEL	M	NO	SI	NO	NO	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
MARTIN	M	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
RAUL	M	NO	SI	NO	NO	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO
DAVID	M	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JOSEFINA	M	NO	NO	SI	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JOSE ANTONIO	M	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
FRANCISCO JAVIER	F	SI	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
VERONICA	M	NO	NO	NO	NO	SI	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
GERARDO	F	NO	NO	NO	NO	NO	NO	NO	SI	NO	SI	SI	NO	NO	NO	NO	NO	NO
MARIA ELENA	M	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ROSA	F	NO	NO	NO	SI	SI	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO
MARIO	M	NO	NO	SI	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
SERGIO	M	NO	NO	NO	NO	NO	SI	NO	NO	NO	SI	SI	NO	NO	NO	NO	NO	NO
ALBERTO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
LUIS	M	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
ARMANDO	M	NO	NO	SI	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO	NO	NO
MARTHA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
YOLANDA	F	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO
ROSA MARÍA	F	NO	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO
ELIZABETH	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
VICTOR MANUEL	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARIA ISABEL	F	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ANTONIA	F	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARIA DEL ROSARIO	F	NO	NO	NO	NO	NO	NO	SI	NO	NO	SI	SI	NO	NO	NO	NO	NO	NO
FELIPE	M	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JORGE JESUS	M	SI	NO	NO	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JOSE DE JESUS	M	NO	SI	NO	NO	NO	NO	NO	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO
DIEGO	M	NO	NO	NO	SI	SI	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO
ISABEL	F	NO	NO	SI	NO	NO	NO	SI	SI	SI	NO	SI	NO	NO	NO	NO	NO	NO
MARIA TERESA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
LUCIA	F	SI	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO
AGUSTIN	M	NO	SI	SI	NO	NO	NO	SI	SI	NO	SI	SI	NO	NO	NO	NO	NO	NO
MARIA DE LA LUZ	F	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
GUSTAVO	M	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO

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

## [1] "La probabilidad de practicar solo Ajedrez es:  44 %"

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

dosdeportes <- combinations(12,2, deportivas)
dosdeportes

##       [,1]            [,2]           
##  [1,] "Ajedrez"       "Atletismo"    
##  [2,] "Ajedrez"       "Beisbol"      
##  [3,] "Ajedrez"       "Box"          
##  [4,] "Ajedrez"       "Futbol"       
##  [5,] "Ajedrez"       "KarateDo"     
##  [6,] "Ajedrez"       "Natacion"     
##  [7,] "Ajedrez"       "Pesas"        
##  [8,] "Ajedrez"       "Softbol"      
##  [9,] "Ajedrez"       "TaeWonDo"     
## [10,] "Ajedrez"       "Tiro con arco"
## [11,] "Ajedrez"       "Voleibol"     
## [12,] "Atletismo"     "Beisbol"      
## [13,] "Atletismo"     "Box"          
## [14,] "Atletismo"     "Futbol"       
## [15,] "Atletismo"     "KarateDo"     
## [16,] "Atletismo"     "Natacion"     
## [17,] "Atletismo"     "Pesas"        
## [18,] "Atletismo"     "Softbol"      
## [19,] "Atletismo"     "TaeWonDo"     
## [20,] "Atletismo"     "Tiro con arco"
## [21,] "Atletismo"     "Voleibol"     
## [22,] "Beisbol"       "Box"          
## [23,] "Beisbol"       "Futbol"       
## [24,] "Beisbol"       "KarateDo"     
## [25,] "Beisbol"       "Natacion"     
## [26,] "Beisbol"       "Pesas"        
## [27,] "Beisbol"       "Softbol"      
## [28,] "Beisbol"       "TaeWonDo"     
## [29,] "Beisbol"       "Tiro con arco"
## [30,] "Beisbol"       "Voleibol"     
## [31,] "Box"           "Futbol"       
## [32,] "Box"           "KarateDo"     
## [33,] "Box"           "Natacion"     
## [34,] "Box"           "Pesas"        
## [35,] "Box"           "Softbol"      
## [36,] "Box"           "TaeWonDo"     
## [37,] "Box"           "Tiro con arco"
## [38,] "Box"           "Voleibol"     
## [39,] "Futbol"        "KarateDo"     
## [40,] "Futbol"        "Natacion"     
## [41,] "Futbol"        "Pesas"        
## [42,] "Futbol"        "Softbol"      
## [43,] "Futbol"        "TaeWonDo"     
## [44,] "Futbol"        "Tiro con arco"
## [45,] "Futbol"        "Voleibol"     
## [46,] "KarateDo"      "Natacion"     
## [47,] "KarateDo"      "Pesas"        
## [48,] "KarateDo"      "Softbol"      
## [49,] "KarateDo"      "TaeWonDo"     
## [50,] "KarateDo"      "Tiro con arco"
## [51,] "KarateDo"      "Voleibol"     
## [52,] "Natacion"      "Pesas"        
## [53,] "Natacion"      "Softbol"      
## [54,] "Natacion"      "TaeWonDo"     
## [55,] "Natacion"      "Tiro con arco"
## [56,] "Natacion"      "Voleibol"     
## [57,] "Pesas"         "Softbol"      
## [58,] "Pesas"         "TaeWonDo"     
## [59,] "Pesas"         "Tiro con arco"
## [60,] "Pesas"         "Voleibol"     
## [61,] "Softbol"       "TaeWonDo"     
## [62,] "Softbol"       "Tiro con arco"
## [63,] "Softbol"       "Voleibol"     
## [64,] "TaeWonDo"      "Tiro con arco"
## [65,] "TaeWonDo"      "Voleibol"     
## [66,] "Tiro con arco" "Voleibol"

cuantos <- nrow(dosdeportes)
prob <- cuantos / n * 100
paste("La probabilidad de practicar 2 deportes a la vez  es: ", prob, "%")

## [1] "La probabilidad de practicar 2 deportes a la vez  es:  66 %"

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

deportiva.cultural <- head(combinations(6,2, c(deportivas[1], culturales), ), 5)
deportiva.cultural <- head(combinations(6,2, c(deportivas[2], culturales), ), 5)
deportiva.cultural <- head(combinations(6,2, c(deportivas[3], culturales), ), 5)
deportiva.cultural <- head(combinations(6,2, c(deportivas[4], culturales), ), 5)
deportiva.cultural <- head(combinations(6,2, c(deportivas[5], culturales), ), 5)
deportiva.cultural <- head(combinations(6,2, c(deportivas[6], culturales), ), 5)
deportiva.cultural <- head(combinations(6,2, c(deportivas[7], culturales), ), 5)
head(combinations(6,2, c(deportivas[1], culturales), ), 5)

##      [,1]      [,2]        
## [1,] "Ajedrez" "Folklorico"
## [2,] "Ajedrez" "Pantomima" 
## [3,] "Ajedrez" "Rondalla"  
## [4,] "Ajedrez" "Tahitiano" 
## [5,] "Ajedrez" "Teatro"

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

##      [,1]      [,2]        
## [1,] "Beisbol" "Folklorico"
## [2,] "Beisbol" "Pantomima" 
## [3,] "Beisbol" "Rondalla"  
## [4,] "Beisbol" "Tahitiano" 
## [5,] "Beisbol" "Teatro"

head(combinations(6,2, c(deportivas[3], culturales), ), 5)

##      [,1]         [,2]           
## [1,] "Folklorico" "Pantomima"    
## [2,] "Folklorico" "Rondalla"     
## [3,] "Folklorico" "Tahitiano"    
## [4,] "Folklorico" "Teatro"       
## [5,] "Folklorico" "Tiro con arco"

head(combinations(6,2, c(deportivas[4], culturales), ), 5)

##      [,1]         [,2]       
## [1,] "Folklorico" "Pantomima"
## [2,] "Folklorico" "Pesas"    
## [3,] "Folklorico" "Rondalla" 
## [4,] "Folklorico" "Tahitiano"
## [5,] "Folklorico" "Teatro"

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

##      [,1]         [,2]       
## [1,] "Folklorico" "Futbol"   
## [2,] "Folklorico" "Pantomima"
## [3,] "Folklorico" "Rondalla" 
## [4,] "Folklorico" "Tahitiano"
## [5,] "Folklorico" "Teatro"

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

##      [,1]         [,2]       
## [1,] "Folklorico" "Pantomima"
## [2,] "Folklorico" "Rondalla" 
## [3,] "Folklorico" "Softbol"  
## [4,] "Folklorico" "Tahitiano"
## [5,] "Folklorico" "Teatro"

head(combinations(6,2, c(deportivas[7], culturales), ), 5)

##      [,1]        [,2]        
## [1,] "Atletismo" "Folklorico"
## [2,] "Atletismo" "Pantomima" 
## [3,] "Atletismo" "Rondalla"  
## [4,] "Atletismo" "Tahitiano" 
## [5,] "Atletismo" "Teatro"

cuantos <- nrow(deportiva.cultural)
prob <- cuantos / n * 100
paste("La probabilidad de practicar 1 deportes y 1 cultural es: ", prob, "%")

## [1] "La probabilidad de practicar 1 deportes y 1 cultural es:  5 %"

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

masculinoSi <- filter(personas, generos == 'M')

kable(masculinoSi)

nombres	generos	ajedrez	beisbol	tiro.arco	pesas	futbol	softbol	atletismo	box	karateDo	taeWonDo	voleibol	natacion	folklorico	tahitiano	teatro	rondalla	pantomima
JUAN	M	SI	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JOSE LUIS	M	SI	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
JOSE	M	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	SI	NO
FRANCISCO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
ANTONIO	M	NO	NO	NO	NO	NO	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
JESUS	M	NO	SI	NO	NO	SI	NO	NO	NO	NO	SI	NO	SI	NO	SI	NO	NO	SI
MIGUEL ANGEL	M	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
PEDRO	M	NO	NO	NO	NO	SI	NO	NO	NO	SI	NO	NO	NO	SI	NO	SI	NO	NO
ALEJANDRO	M	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MANUEL	M	SI	SI	NO	NO	SI	NO	NO	SI	SI	SI	NO	NO	NO	NO	NO	NO	NO
JUAN CARLOS	M	NO	NO	SI	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	SI	SI
ROBERTO	M	SI	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
FERNANDO	M	NO	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
DANIEL	M	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO
CARLOS	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO	NO
JORGE	M	NO	NO	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO	SI	NO	SI	NO	NO
RICARDO	M	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI
MIGUEL	M	NO	NO	NO	SI	NO	SI	NO	SI	NO	SI	NO	NO	NO	NO	NO	SI	SI
EDUARDO	M	NO	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	SI	NO	NO	SI	NO
RAFAEL	M	NO	SI	NO	NO	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
MARTIN	M	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
RAUL	M	NO	SI	NO	NO	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO
DAVID	M	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JOSEFINA	M	NO	NO	SI	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JOSE ANTONIO	M	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARCO ANTONIO	M	NO	SI	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO	SI	SI	NO	NO	NO
VERONICA	M	NO	NO	NO	NO	SI	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
MARIA ELENA	M	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARIO	M	NO	NO	SI	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ALFREDO	M	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO
SERGIO	M	NO	NO	NO	NO	NO	SI	NO	NO	NO	SI	SI	NO	NO	NO	NO	NO	NO
ALBERTO	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO
LUIS	M	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO
ARMANDO	M	NO	NO	SI	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO	NO	NO
SANTIAGO	M	SI	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI
JUAN MANUEL	M	NO	NO	NO	NO	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	SI	NO
ANGEL	M	NO	NO	SI	NO	NO	NO	NO	NO	NO	SI	SI	SI	NO	NO	NO	SI	SI
SALVADOR	M	NO	NO	SI	SI	NO	SI	NO	SI	NO	NO	NO	NO	SI	SI	NO	SI	NO
VICTOR MANUEL	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
GABRIEL	M	NO	NO	NO	NO	NO	NO	SI	SI	NO	NO	NO	SI	SI	NO	NO	NO	NO
ANDRES	M	NO	SI	NO	SI	NO	NO	NO	NO	SI	SI	NO	NO	NO	SI	NO	NO	NO
OSCAR	M	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	SI	SI	NO	NO	NO	NO
GUILLERMO	M	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI
RAMON	M	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
PABLO	M	NO	NO	NO	NO	NO	NO	NO	NO	SI	SI	NO	NO	SI	NO	NO	NO	NO
RUBEN	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	SI	NO
LUIS ANGEL	M	NO	NO	NO	NO	NO	NO	NO	SI	SI	NO	NO	NO	NO	NO	NO	SI	NO
FELIPE	M	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JORGE JESUS	M	SI	NO	NO	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
JAIME	M	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	SI	NO
JOSE GUADALUPE	M	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	SI	NO	NO	NO
JULIO CESAR	M	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO
JOSE DE JESUS	M	NO	SI	NO	NO	NO	NO	NO	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO
DIEGO	M	NO	NO	NO	SI	SI	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO
ARACELI	M	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	SI	NO	NO	NO	NO
AGUSTIN	M	NO	SI	SI	NO	NO	NO	SI	SI	NO	SI	SI	NO	NO	NO	NO	NO	NO
GUSTAVO	M	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO

cuantos <- nrow(masculinoSi)
prob <- cuantos / n * 100
paste("La probabilidad de ser masculino es: ", prob, "%")

## [1] "La probabilidad de ser masculino es:  57 %"

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

femeninoSi <- filter(personas, generos == 'F')

kable(femeninoSi)

nombres	generos	ajedrez	beisbol	tiro.arco	pesas	futbol	softbol	atletismo	box	karateDo	taeWonDo	voleibol	natacion	folklorico	tahitiano	teatro	rondalla	pantomima
MARIA GUADALUPE	F	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO
GUADALUPE	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	SI	NO	SI
MARIA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	SI	NO	NO	NO	NO
JUANA	F	NO	NO	NO	NO	NO	NO	SI	NO	NO	SI	NO	NO	SI	NO	NO	NO	NO
MARGARITA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	SI	NO	NO
MARIA DEL CARMEN	F	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	SI	NO	NO	NO
JAVIER	F	SI	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	SI
ARTURO	F	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	SI	NO	NO	SI	SI	NO
JOSE MANUEL	F	NO	NO	NO	NO	SI	SI	SI	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
FRANCISCO JAVIER	F	SI	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ENRIQUE	F	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	SI	NO	NO
GERARDO	F	NO	NO	NO	NO	NO	NO	NO	SI	NO	SI	SI	NO	NO	NO	NO	NO	NO
LETICIA	F	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	SI
ROSA	F	NO	NO	NO	SI	SI	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO
FRANCISCA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO
TERESA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO
ALICIA	F	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO	SI	NO	NO	NO	SI
MARÍA FERNANDA	F	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	SI
ALEJANDRA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
MARTHA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
YOLANDA	F	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO
PATRICIA	F	NO	NO	NO	NO	NO	NO	SI	SI	NO	SI	NO	NO	NO	SI	NO	NO	NO
MARIA DE LOS ANGELES	F	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	SI	NO	NO	NO	NO	SI	NO
ROSA MARÍA	F	NO	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO
ELIZABETH	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
GLORIA	F	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI
GABRIELA	F	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO
SILVIA	F	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
MARIA DE GUADALUPE	F	NO	SI	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
MARIA DE JESUS	F	NO	NO	NO	NO	NO	NO	NO	SI	NO	SI	NO	NO	SI	NO	NO	NO	SI
ANA MARIA	F	NO	SI	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
MARIA ISABEL	F	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
ANTONIA	F	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
MARIA LUISA	F	SI	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	SI	NO	NO	SI	NO	NO
MARIA DEL ROSARIO	F	NO	NO	NO	NO	NO	NO	SI	NO	NO	SI	SI	NO	NO	NO	NO	NO	NO
ANDREA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
ISABEL	F	NO	NO	SI	NO	NO	NO	SI	SI	SI	NO	SI	NO	NO	NO	NO	NO	NO
MARIA TERESA	F	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO
IRMA	F	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO
CARMEN	F	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
LUCIA	F	SI	NO	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO
ADRIANA	F	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO	SI	SI	SI	NO	SI	NO	SI
MARIA DE LA LUZ	F	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO

cuantos <- nrow(femeninoSi)
prob <- cuantos / n * 100
paste("La probabilidad de ser femenina es: ", prob, "%")

## [1] "La probabilidad de ser femenina es:  43 %"

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

femeninoSof <- filter(personas, generos == 'F' & softbol == 'SI')

kable(femeninoSof)

nombres	generos	ajedrez	beisbol	tiro.arco	pesas	futbol	softbol	atletismo	box	karateDo	taeWonDo	voleibol	natacion	folklorico	tahitiano	teatro	rondalla	pantomima
JOSE MANUEL	F	NO	NO	NO	NO	SI	SI	SI	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO
MARÍA FERNANDA	F	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	SI
ROSA MARÍA	F	NO	NO	NO	NO	NO	SI	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO
GLORIA	F	NO	NO	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO	NO	NO	SI

cuantos <- nrow(femeninoSof)
prob <- cuantos / n * 100
paste("La probabilidad de ser femenina jugar softbol es: ", prob, "%")

## [1] "La probabilidad de ser femenina jugar softbol es:  4 %"

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

MasculinoPeSof <- filter(personas, generos == 'M' & pesas == 'SI' & futbol == 'SI')

kable(MasculinoPeSof)

nombres	generos	ajedrez	beisbol	tiro.arco	pesas	futbol	softbol	atletismo	box	karateDo	taeWonDo	voleibol	natacion	folklorico	tahitiano	teatro	rondalla	pantomima
JORGE	M	NO	NO	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO	SI	NO	SI	NO	NO
MARCO ANTONIO	M	NO	SI	NO	SI	SI	NO	NO	NO	NO	NO	NO	NO	SI	SI	NO	NO	NO
DIEGO	M	NO	NO	NO	SI	SI	NO	NO	NO	SI	NO	NO	NO	NO	NO	NO	NO	NO

cuantos <- nrow(MasculinoPeSof)
prob <- cuantos / n * 100
paste("La probabilidad de ser masculino tener pesas y futbol es: ", prob, "%")

## [1] "La probabilidad de ser masculino tener pesas y futbol es:  3 %"

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

femeninoRonTah <- filter(personas, generos == 'F' & rondalla == 'SI' & tahitiano == 'SI')

kable(femeninoRonTah)

nombres	generos	ajedrez	beisbol	tiro.arco	pesas	futbol	softbol	atletismo	box	karateDo	taeWonDo	voleibol	natacion	folklorico	tahitiano	teatro	rondalla	pantomima

cuantos <- nrow(femeninoRonTah)
prob <- cuantos / n * 100
paste("La probabilidad de ser femenina tener rondalla y tahitiano es: ", prob, "%")

## [1] "La probabilidad de ser femenina tener rondalla y tahitiano es:  0 %"

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

Datos de 100 personas con su genero, deporte. cada una con su tabla. Tenemos las probalilidades de 100 personas, respecto a sus deportes asignados por aleatoriedad. En la lista nos muestra que tenemos mas hombres que mujeres siendo hombres el 57 %. Tambien tenemos un 12 % de personas que no practican absolutamente nada ningun deporte y tampoco culturales. en deportes tenemos un 33% de las personas que las practican y por consecuencia definimos que un 65% practica las actividades culturales. * Tenemos en conjunto de personas que practican 2 actividades deportivas un 23%. * Y personas que solo practicasen ajedrez entre todas las demas es solo 1 persona que seria el 1% * Para la parte de juntar 2 actividades tenemos a personas que tiene rondalla y tahitiano con una probabilidad del 2% solamente y para las personas que tiene pesas en conjunto con futbul su probabilidad es el 1%. * El porciento de que una mujer este inscrita en la actividad deportiva de futbol seria el porcentaje de 11%.