Caso integral 2

Objetivo

Importar y analizar datos de examenes de alumnos # Desarrollo

Cargar librerías

library(readr)
library(modeest)

Cargar datos

datos = read.csv(file = "https://raw.githubusercontent.com/rpizarrog/probabilidad-y-estad-stica/master/2023/datos/exams.csv")
#datos

Filtrar datos

datos_interes = datos [,c(1,6,7,8)]
#datos_interes

las primeras 10 observaciones

head(datos_interes,10)

##    gender math.score reading.score writing.score
## 1    male         67            67            63
## 2  female         40            59            55
## 3    male         59            60            50
## 4    male         77            78            68
## 5    male         78            73            68
## 6  female         63            77            76
## 7  female         62            59            63
## 8    male         93            88            84
## 9    male         63            56            65
## 10   male         47            42            45

las ultimas 10 observaciones

tail(datos_interes,10)

##      gender math.score reading.score writing.score
## 991    male         67            55            53
## 992  female         87            93            88
## 993    male         69            63            66
## 994  female         58            54            58
## 995    male         86            82            75
## 996    male         73            70            65
## 997    male         85            91            92
## 998  female         32            35            41
## 999  female         73            74            82
## 1000   male         65            60            62

Media, mediana y moda de matemáticas

media_mat = mean(datos_interes$math.score)
mediana_mat = median(datos_interes$math.score)
moda_mat = mfv(datos_interes$math.score)
paste("La media aritmetica de matemáticas= ",media_mat)

## [1] "La media aritmetica de matemáticas=  66.396"

paste("La mediana de matemáticas= ",mediana_mat)

## [1] "La mediana de matemáticas=  66.5"

paste("La moda de matemáticas= ",moda_mat)

## [1] "La moda de matemáticas=  63"

Media, mediana y moda de examen de lectura

media_red = mean(datos_interes$reading.score)
mediana_red = median(datos_interes$reading.score)
moda_red = mfv(datos_interes$reading.score)
paste("La media aritmetica del examen de lectura= ",media_red)

## [1] "La media aritmetica del examen de lectura=  69.002"

paste("La mediana del examen de lectura= ",mediana_red)

## [1] "La mediana del examen de lectura=  70"

paste("La moda del examen de lectura= ",moda_red)

## [1] "La moda del examen de lectura=  71"

Media, mediana y moda de examen de escritura

media_wri = mean(datos_interes$writing.score)
mediana_wri = median(datos_interes$writing.score)
moda_wri = mfv(datos_interes$writing.score)
paste("La media aritmetica del examen de escritura= ",media_wri)

## [1] "La media aritmetica del examen de escritura=  67.738"

paste("La mediana del examen de escritura= ",mediana_wri)

## [1] "La mediana del examen de escritura=  68"

paste("La moda del examen de escritura= ",moda_wri)

## [1] "La moda del examen de escritura=  64"
## [2] "La moda del examen de escritura=  71"

Análisis, Descriptivo con summary() de variables de interes

summary(datos_interes)

##     gender            math.score    reading.score writing.score   
##  Length:1000        Min.   : 13.0   Min.   : 27   Min.   : 23.00  
##  Class :character   1st Qu.: 56.0   1st Qu.: 60   1st Qu.: 58.00  
##  Mode  :character   Median : 66.5   Median : 70   Median : 68.00  
##                     Mean   : 66.4   Mean   : 69   Mean   : 67.74  
##                     3rd Qu.: 77.0   3rd Qu.: 79   3rd Qu.: 79.00  
##                     Max.   :100.0   Max.   :100   Max.   :100.00