library(readr)
library(dplyr)
library(fdth)

Cargar datos

alumnos = read_csv("~/Probabilidad/Datos/alumnos.genero.lentes.deporte.musica_ver_1.0.csv")
## Parsed with column specification:
## cols(
##   obs = col_double(),
##   genero = col_character(),
##   lentes = col_character(),
##   deporte = col_character(),
##   musica = col_character()
## )
alumnos = data.frame(alumnos)
alumnos
##    obs genero lentes deporte musica
## 1    1  Mujer     Si      Si     Si
## 2    2  Mujer     Si      Si     Si
## 3    3  Mujer     Si      No     Si
## 4    4  Mujer     Si      No     Si
## 5    5  Mujer     No      Si     Si
## 6    6  Mujer     No      Si     Si
## 7    7  Mujer     No      No     No
## 8    8  Mujer     No      No     Si
## 9    9  Mujer     No      No     Si
## 10  10  Mujer     No      No     Si
## 11  11  Mujer     No      Si     Si
## 12  12 Hombre     No      Si     Si
## 13  13 Hombre     Si      Si     Si
## 14  14 Hombre     Si      Si     No
## 15  15 Hombre     Si      No     Si
## 16  16 Hombre     Si      No     Si
## 17  17 Hombre     No      No     Si
## 18  18 Hombre     No      Si     Si
## 19  19 Hombre     No      Si     Si
## 20  20 Hombre     No      Si     No
## 21  21 Hombre     No      No     Si
## 22  22 Hombre     No      No     No
## 23  23 Hombre     No      No     Si
## 24  24 Hombre     No      No     No
## 25  25 Hombre     No      No     Si
## 26  26 Hombre     No      Si     Si
## 27  27 Hombre     No      Si     No
## 28  28 Hombre     No      Si     Si
## 29  29 Hombre     No      Si     Si
## 30  30 Hombre     No      Si     Si
## 31  31 Hombre     No      Si     No
## 32  32 Hombre     No      No     Si
## 33  33 Hombre     No      No     No
n = nrow(alumnos)

Agrupar datos (hacerlos tipo factor)

alumnos$genero <- as.factor(alumnos$genero)
alumnos$lentes <- as.factor(alumnos$lentes)
alumnos$deporte <- as.factor(alumnos$deporte)
alumnos$musica <- as.factor(alumnos$musica)

Explorar los datos

summary(alumnos)
##       obs        genero   lentes  deporte musica 
##  Min.   : 1   Hombre:22   No:25   No:16   No: 8  
##  1st Qu.: 9   Mujer :11   Si: 8   Si:17   Si:25  
##  Median :17                                      
##  Mean   :17                                      
##  3rd Qu.:25                                      
##  Max.   :33

Determinar frecuencias de cada variable

tablaFrecuencia.genero <- fdt_cat(alumnos$genero)
tablaFrecuencia.genero
##  Category  f   rf rf(%) cf  cf(%)
##    Hombre 22 0.67 66.67 22  66.67
##     Mujer 11 0.33 33.33 33 100.00
tablaFrecuencia.lentes <- fdt_cat(alumnos$lentes)
tablaFrecuencia.lentes
##  Category  f   rf rf(%) cf  cf(%)
##        No 25 0.76 75.76 25  75.76
##        Si  8 0.24 24.24 33 100.00
tablaFrecuencia.deporte <- fdt_cat(alumnos$deporte)
tablaFrecuencia.deporte
##  Category  f   rf rf(%) cf  cf(%)
##        Si 17 0.52 51.52 17  51.52
##        No 16 0.48 48.48 33 100.00
tablaFrecuencia.musica <- fdt_cat(alumnos$musica)
tablaFrecuencia.musica
##  Category  f   rf rf(%) cf  cf(%)
##        Si 25 0.76 75.76 25  75.76
##        No  8 0.24 24.24 33 100.00

Análisis probabilístico

¿Cual es la probabilidad de que una persona sea hombre?
##    genero
## 1  Hombre
## 2  Hombre
## 3  Hombre
## 4  Hombre
## 5  Hombre
## 6  Hombre
## 7  Hombre
## 8  Hombre
## 9  Hombre
## 10 Hombre
## 11 Hombre
## 12 Hombre
## 13 Hombre
## 14 Hombre
## 15 Hombre
## 16 Hombre
## 17 Hombre
## 18 Hombre
## 19 Hombre
## 20 Hombre
## 21 Hombre
## 22 Hombre
## Hay  22  hombres. 
## Representan una probabilidad del  66.6667  % de que una persona sea hombre.
¿Cual es la probabilidad de que una persona sea mujer?
##    genero
## 1   Mujer
## 2   Mujer
## 3   Mujer
## 4   Mujer
## 5   Mujer
## 6   Mujer
## 7   Mujer
## 8   Mujer
## 9   Mujer
## 10  Mujer
## 11  Mujer
## Hay  11  mujeres. 
## Representan una probabilidad del  33.3333 % de que una persona sea mujer.
¿Cual es la probabilidad de que una persona use lentes?
##   lentes
## 1     Si
## 2     Si
## 3     Si
## 4     Si
## 5     Si
## 6     Si
## 7     Si
## 8     Si
## Hay  8  personas que usan lentes. 
## Representan el  24.2424 % de 33 personas.
¿Cual es la probabilidad de que una persona le guste la música?
##    musica
## 1      Si
## 2      Si
## 3      Si
## 4      Si
## 5      Si
## 6      Si
## 7      Si
## 8      Si
## 9      Si
## 10     Si
## 11     Si
## 12     Si
## 13     Si
## 14     Si
## 15     Si
## 16     Si
## 17     Si
## 18     Si
## 19     Si
## 20     Si
## 21     Si
## 22     Si
## 23     Si
## 24     Si
## 25     Si
## Hay  25  personas a las que les gusta la música. 
## Representan el  75.7576 % de 33 personas.
¿Cuál es la probabilidad de que una persona le guste el deporte?
##    deporte
## 1       Si
## 2       Si
## 3       Si
## 4       Si
## 5       Si
## 6       Si
## 7       Si
## 8       Si
## 9       Si
## 10      Si
## 11      Si
## 12      Si
## 13      Si
## 14      Si
## 15      Si
## 16      Si
## 17      Si
## Hay  17  personas que les gusta el deporte. 
## Representan el  51.5152 % de 33 personas.
¿Cuál es la probabilidad de que una persona le guste el deporte y la música?
##    deporte musica
## 1       Si     Si
## 2       Si     Si
## 3       Si     Si
## 4       Si     Si
## 5       Si     Si
## 6       Si     Si
## 7       Si     Si
## 8       Si     Si
## 9       Si     Si
## 10      Si     Si
## 11      Si     Si
## 12      Si     Si
## 13      Si     Si
## Hay  13  casos de que a una persona le guste el deporte y la música. 
## Representan el  39.3939 % de 33 personas.
¿Cuál es la probabilidad de que una persona le guste el deporte y sea hombre?
##    deporte genero
## 1       Si Hombre
## 2       Si Hombre
## 3       Si Hombre
## 4       Si Hombre
## 5       Si Hombre
## 6       Si Hombre
## 7       Si Hombre
## 8       Si Hombre
## 9       Si Hombre
## 10      Si Hombre
## 11      Si Hombre
## 12      Si Hombre
## Hay  12  casos de que a una persona le guste el deporte y, además sea hombre. 
## Representan el  36.3636 % de 33 personas
¿Cuál es la probabilidad de que una persona le guste la música y sea hombre?
##    musica genero
## 1      Si Hombre
## 2      Si Hombre
## 3      Si Hombre
## 4      Si Hombre
## 5      Si Hombre
## 6      Si Hombre
## 7      Si Hombre
## 8      Si Hombre
## 9      Si Hombre
## 10     Si Hombre
## 11     Si Hombre
## 12     Si Hombre
## 13     Si Hombre
## 14     Si Hombre
## 15     Si Hombre
## Hay  15  casos de que a una persona le guste la música y además sea hombre. 
## Representan el  45.4545 % de 33 personas.
¿Cuál es la probabilidad de que una persona le guste la musica y use lentes además de que sea mujer?
##   musica lentes genero
## 1     Si     Si  Mujer
## 2     Si     Si  Mujer
## 3     Si     Si  Mujer
## 4     Si     Si  Mujer
## Hay  4  casos de que a una persona le guste la música, use lentes, y, además, sea mujer. 
## Representan el  12.1212 % de 33 personas.
¿Cuál es la probabilidad de que una persona le guste la musica, use lentes y sea hombre?
##   musica lentes genero
## 1     Si     Si Hombre
## 2     Si     Si Hombre
## 3     Si     Si Hombre
## Hay  3  casos de que a una persona le guste la música, use lentes, y, además, sea hombre. 
## Representan el  9.0909 % de 33 personas.
¿Cuál es la probabilida de que una persona use lentes, sea mujer, le guste la música y el deporte también?
##   lentes genero musica deporte
## 1     Si  Mujer     Si      Si
## 2     Si  Mujer     Si      Si
## Hay  2  casos de que una persona use lentes, sea mujer, le guste la múica, y, además, le guste el deporte. 
## Representan el  6.0606 % de 33 personas.
¿Cuál es la probabilida de que una persona use lentes, sea hombre, le guste la música y el deporte también?
## Hay  1  casos de que una persona use lentes, sea hombre, le guste la música y, además, le guste el deporte. 
## Representan el  3.0303 % de 33 personas.
¿Cuál es la probabilida de que una persona use lentes, sea hombre, le guste deporte también?
## Hay  2  casos de personas que usen lentes, sea hombre y que le guste el deporte. 
## Representan el  6.0606  % de 33 personas.
¿Cuál es la probabilida de que una persona use lentes, sea mujer, le guste deporte también?
##   lentes genero deporte
## 1     Si  Mujer      Si
## 2     Si  Mujer      Si
## Hay  2  casos de que una persona use lentes, sea mujer y le guste el deporte. 
## Representan el  6.0606 % de 33 personas.
¿Cuál es la probabilidad de que a una persona le guste el deporte?
##    deporte
## 1       Si
## 2       Si
## 3       Si
## 4       Si
## 5       Si
## 6       Si
## 7       Si
## 8       Si
## 9       Si
## 10      Si
## 11      Si
## 12      Si
## 13      Si
## 14      Si
## 15      Si
## 16      Si
## 17      Si
## Hay  17  personas que les gusta el deporte. Es una probabilidad del  51.5152 % de que a una persona le guste el deporte.
¿Cuál es la probabilidad de que una persona sea hombre y sea mujer?
## [1] genero
## <0 rows> (or 0-length row.names)
## Hay  0  casos de que una persona sea mujer y hombre. 
## Representa el  0 % de 33 personas.