library(readr)
library(dplyr)
library(fdth)
alumnos <- read_csv("C:/Users/vanessa/Desktop/PROBABILIDAD Y ESTADISTICA/DATOS/alumnos.genero.lentes.deporte.musica_ver_2.0.csv")
## Parsed with column specification:
## cols(
## obs = col_double(),
## mujer = col_character(),
## hombre = col_character(),
## lentes = col_character(),
## deporte = col_character(),
## musica = col_character()
## )
alumnos <- data.frame(alumnos)
alumnos
## obs mujer hombre lentes deporte musica
## 1 1 Si No Si Si Si
## 2 2 Si No Si Si Si
## 3 3 Si No Si No Si
## 4 4 Si No Si No Si
## 5 5 Si No No Si Si
## 6 6 Si No No Si Si
## 7 7 Si No No No No
## 8 8 Si No No No Si
## 9 9 Si No No No Si
## 10 10 Si No No No Si
## 11 11 Si No No Si Si
## 12 12 No Si No Si Si
## 13 13 No Si Si Si Si
## 14 14 No Si Si Si No
## 15 15 No Si Si No Si
## 16 16 No Si Si No Si
## 17 17 No Si No No Si
## 18 18 No Si No Si Si
## 19 19 No Si No Si Si
## 20 20 No Si No Si No
## 21 21 No Si No No Si
## 22 22 No Si No No No
## 23 23 No Si No No Si
## 24 24 No Si No No No
## 25 25 No Si No No Si
## 26 26 No Si No Si Si
## 27 27 No Si No Si No
## 28 28 No Si No Si Si
## 29 29 No Si No Si Si
## 30 30 No Si No Si Si
## 31 31 No Si No Si No
## 32 32 No Si No No Si
## 33 33 No Si No No No
## 34 34 Si No Si No Si
## 35 35 No Si Si Si No
## 36 36 No Si No No Si
## 37 36 No Si Si No Si
## 38 38 Si No Si No Si
## 39 39 No Si No Si No
## 40 40 No Si No Si Si
## 41 41 Si No Si No Si
n <- nrow(alumnos)
alumnos$mujer <- as.factor(alumnos$mujer)
alumnos$hombre <- as.factor(alumnos$hombre)
alumnos$lentes <- as.factor(alumnos$lentes)
alumnos$deporte <- as.factor(alumnos$deporte)
alumnos$musica <- as.factor(alumnos$musica)
summary(alumnos)
## obs mujer hombre lentes deporte musica
## Min. : 1.00 No:27 No:14 No:28 No:21 No:10
## 1st Qu.:11.00 Si:14 Si:27 Si:13 Si:20 Si:31
## Median :21.00
## Mean :20.98
## 3rd Qu.:31.00
## Max. :41.00
3.- ¿Cual es la probabilidad de que una persona use lentes?
cuantos <- filter(alumnos,lentes == 'Si' ) %>%
select(lentes)
cuantos
## lentes
## 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
frecuencia <- nrow(cuantos) / n * 100
frecuencia
## [1] 31.70732
Respuesta a pregunta 3:
## Hay 13 casos de que una persona use lentes de 41
## observaciones que representan una probabilidad del 31.7073 %
4.- ¿Cual es la probabilidad de que una persona le guste la música?
cuantos <- filter(alumnos, musica == 'Si' ) %>%
select(musica)
cuantos
## 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
## 26 Si
## 27 Si
## 28 Si
## 29 Si
## 30 Si
## 31 Si
frecuencia <- nrow(cuantos) / n * 100
frecuencia
## [1] 75.60976
Respuesta pregunta 4:
## Hay 31 casos de que una persona le guste la música de 41
## observaciones que representan una probabilidad del 75.6098 %