Cálculo de probabilidades

Las librerías

library(readr)

## Warning: package 'readr' was built under R version 3.6.3

Los datos

alumnos_deportes_2020 <- read_csv("https://raw.githubusercontent.com/rpizarrog/probabilidad-y-estad-stica/master/practicas%20R/unidad%202/alumnos.deportes.2020.csv")

## Warning: Missing column names filled in: 'X1' [1]

## Parsed with column specification:
## cols(
##   X1 = col_double(),
##   nombres = col_character(),
##   sexo = col_character(),
##   futbol = col_logical(),
##   basquetbol = col_logical(),
##   voleybol = col_logical(),
##   atletismo = col_logical(),
##   ajedrez = col_logical(),
##   tenis = col_logical()
## )

alumnos_deportes_2020 

## # A tibble: 67 x 9
##       X1 nombres  sexo  futbol basquetbol voleybol atletismo ajedrez tenis
##    <dbl> <chr>    <chr> <lgl>  <lgl>      <lgl>    <lgl>     <lgl>   <lgl>
##  1     1 Ana      F     FALSE  FALSE      FALSE    FALSE     FALSE   FALSE
##  2     2 Antonio  M     FALSE  FALSE      FALSE    FALSE     FALSE   FALSE
##  3     3 Aracely  F     FALSE  FALSE      FALSE    FALSE     FALSE   TRUE 
##  4     4 Carmen   F     FALSE  TRUE       FALSE    FALSE     FALSE   FALSE
##  5     5 Eduardo  M     TRUE   FALSE      FALSE    FALSE     FALSE   FALSE
##  6     6 Ernesto  M     FALSE  TRUE       FALSE    FALSE     FALSE   FALSE
##  7     7 Gabino   M     FALSE  TRUE       FALSE    FALSE     FALSE   FALSE
##  8     8 Gerardo  M     TRUE   FALSE      TRUE     FALSE     FALSE   TRUE 
##  9     9 Javier   M     FALSE  TRUE       FALSE    FALSE     FALSE   FALSE
## 10    10 Jeorgina F     FALSE  TRUE       FALSE    FALSE     FALSE   FALSE
## # ... with 57 more rows

Frecuencias relativas de Hombres y Mujeres

Determinar frecuencias relativas mediante función prop.table(table()).

1.- ¿Cuál es la probabilidad de que un alumno sea hombre?

2.- ¿Cuál es la probabilidad de que un alumno sea mujer?

round(prop.table(table(alumnos_deportes_2020$sexo)),4)

## 
##      F      M 
## 0.4925 0.5075

#PORCENTAJE
round(prop.table(table(alumnos_deportes_2020$sexo)),4) * 100

## 
##     F     M 
## 49.25 50.75

Frecuencias relativas del conjunto Fútbol

3.- ¿Cuál es la probabilidad de que un alumno juegue fúbol?

round(prop.table(table(alumnos_deportes_2020$futbol)),4)

## 
##  FALSE   TRUE 
## 0.5075 0.4925

#PORCENTAJE
round(prop.table(table(alumnos_deportes_2020$futbol)),4) * 100

## 
## FALSE  TRUE 
## 50.75 49.25

Frecuencias relativas del conjunto Basquetbol

4.- ¿Cuál es la probabilidad de que un alumno juegue basquetbol?

round(prop.table(table(alumnos_deportes_2020$basquetbol)),4)

## 
##  FALSE   TRUE 
## 0.6716 0.3284

#PORCENTAJE 
round(prop.table(table(alumnos_deportes_2020$basquetbol)),4) * 100

## 
## FALSE  TRUE 
## 67.16 32.84

Frecuencias relativas del conjunto Voleybol

5.- ¿Cuál es la probabilidad de que un alumno juegue voleybol?

round(prop.table(table(alumnos_deportes_2020$voleybol)),4)

## 
## FALSE  TRUE 
## 0.791 0.209

#PORCENTAJE
round(prop.table(table(alumnos_deportes_2020$voleybol)),4) * 100

## 
## FALSE  TRUE 
##  79.1  20.9

Frecuencias relativas del conjunto Atletismo

6.- ¿Cuál es la probabilidad de que un alumno practique atletismo?

round(prop.table(table(alumnos_deportes_2020$atletismo )),4)

## 
##  FALSE   TRUE 
## 0.8209 0.1791

#PORCENTAJE
round(prop.table(table(alumnos_deportes_2020$atletismo )),4) * 100

## 
## FALSE  TRUE 
## 82.09 17.91

Frecuencias relativas del conjunto de Tenis

7.- ¿Cuál es la probabilidad de que un alumno practique tenis?

round(prop.table(table(alumnos_deportes_2020$tenis )),4)

## 
##  FALSE   TRUE 
## 0.9403 0.0597

#PORCENTAJE
round(prop.table(table(alumnos_deportes_2020$tenis )),4) * 100

## 
## FALSE  TRUE 
## 94.03  5.97

Frecuencias relativas del conjunto de Ajedrez

8.- ¿Cuál es la probabilidad de que un alumno juegue ajedrez?

round(prop.table(table(alumnos_deportes_2020$ajedrez )),4)

## 
##  FALSE   TRUE 
## 0.9254 0.0746

#PORCENTAJE
round(prop.table(table(alumnos_deportes_2020$ajedrez )),4) * 100

## 
## FALSE  TRUE 
## 92.54  7.46

En la primera parte tenemos lo que son las frecuencias relativas que son probabilidades mas exactas sobres las preguntas cuestionadas ,tanto en el genero como en las actividades deportivas. En la segunda parte tenemos la ley de adicion en este punto se realizó uniones e intersecciones de conjuntos determinando su probabilidad para luego aplicarlo y sustituirlo en la fórmula de la ley de la adición. Prob(A ∪ B) = Prob(A) + Prob(B) - Prob(A ∩ B). Esto es debido a que estamos jugando con dos tipos de informacion distinta y para llegar al concenso es necesario aplicar la formula. En la tercera parte son las tablas cruzadas, es una manera mas especifica de ambos puntos anteriores, se maneja dos tipos de informacion distinta en la pregunta inicial y con las tablas se especifican cada una de la informacion tratada anteriormente.