library(readr)
library(dplyr)
library(fdth)
alumnos <- read.csv("~/Escuela/Probabilidad Y Estadistica/Datos/alumnos.genero.lentes.deporte.musica_ver_2.0.csv")
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 :26 No:14 No :28 No:21 No:10
## 1st Qu.:11.00 No : 1 Si:27 Si :12 Si:20 Si:31
## Median :21.00 Si :14 Si : 1
## Mean :20.98
## 3rd Qu.:31.00
## Max. :41.00
tabladeFrecuencia.mujer <- fdt_cat(alumnos$mujer)
tabladeFrecuencia.mujer
## Category f rf rf(%) cf cf(%)
## No 26 0.63 63.41 26 63.41
## Si 14 0.34 34.15 40 97.56
## No 1 0.02 2.44 41 100.00
tabladeFrecuencia.hombre <- fdt_cat(alumnos$hombre)
tabladeFrecuencia.hombre
## Category f rf rf(%) cf cf(%)
## Si 27 0.66 65.85 27 65.85
## No 14 0.34 34.15 41 100.00
tabladeFrecuencia.lentes <- fdt_cat(alumnos$lentes)
tabladeFrecuencia.lentes
## Category f rf rf(%) cf cf(%)
## No 28 0.68 68.29 28 68.29
## Si 12 0.29 29.27 40 97.56
## Si 1 0.02 2.44 41 100.00
tabladeFrecuencia.deporte <- fdt_cat(alumnos$deporte)
tabladeFrecuencia.deporte
## Category f rf rf(%) cf cf(%)
## No 21 0.51 51.22 21 51.22
## Si 20 0.49 48.78 41 100.00
tabladeFrecuencia.musica <- fdt_cat(alumnos$musica)
tabladeFrecuencia.musica
## Category f rf rf(%) cf cf(%)
## Si 31 0.76 75.61 31 75.61
## No 10 0.24 24.39 41 100.00
5.-¿Cúal es la probabilidad de que a una persona le guste el deporte?
cuantos1 <- filter(alumnos,deporte=='Si')%>%
select(deporte)
cuantos1
## 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
## 18 Si
## 19 Si
## 20 Si
frecuenciadeport <- nrow(cuantos1)/n*100
frecuenciadeport
## [1] 48.78049
Respuesta 5
cat("Hay",nrow(cuantos1),"casos de que a una persona le guste el deporte ","de",n,"\n observaciones que representan una probabilidad del ",round(frecuenciadeport,4),"%")
## Hay 20 casos de que a una persona le guste el deporte de 41
## observaciones que representan una probabilidad del 48.7805 %
6.-¿-cúal es es la probabilidad de que a una persona le guste el deporte y la musica?
cuantos2<- filter(alumnos,musica=='Si'& deporte=='Si')%>%
select(musica,deporte)
cuantos2
## musica deporte
## 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
## 14 Si Si
frecuenciadepmus <- nrow(cuantos2)/n*100
frecuenciadepmus
## [1] 34.14634
respuesta 6
cat("Hay",nrow(cuantos2),"casos de que a una persona le guste el deporte y la musica ","de",n,"\n observaciones que representan una probabilidad del ",round(frecuenciadepmus,4),"%")
## Hay 14 casos de que a una persona le guste el deporte y la musica de 41
## observaciones que representan una probabilidad del 34.1463 %