Caso_Integral2

Objetivo

Importar y analizar datos de exámenes de alumnos

Desarrollo

Cargar librerias

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(6,7,8)]
#datos_interes

Primeras 10 observaciones

head(datos_interes,10)

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

Ultimas 10 observaciones

tail(datos_interes,10)

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

Media Mediana y Moda de Matematicas

media_mat = mean(datos$math.score)
mediana_mat = median(datos$math.score)
moda_mat = mfv(datos$math.score)

paste("La media aritmetica de matematicas es de: ",media_mat)

## [1] "La media aritmetica de matematicas es de:  66.396"

paste("La mediana de matematicas es de: ",mediana_mat)

## [1] "La mediana de matematicas es de:  66.5"

paste("La moda de matematicas es de: ",moda_mat)

## [1] "La moda de matematicas es de:  63"

Media Mediana y Moda de Lectura

media_rea = mean(datos$reading.score)
mediana_rea = median(datos$reading.score)
moda_rea = mfv(datos$reading.score)

paste("La media aritmetica de matematicas es de: ",media_rea)

## [1] "La media aritmetica de matematicas es de:  69.002"

paste("La mediana de matematicas es de: ",mediana_rea)

## [1] "La mediana de matematicas es de:  70"

paste("La moda de matematicas es de: ",moda_rea)

## [1] "La moda de matematicas es de:  71"

Media Mediana y Moda de Escritura

media_esc = mean(datos$writing.score)
mediana_esc = median(datos$writing.score)
moda_esc = mfv(datos$writing.score)

paste("La media aritmetica de matematicas es de: ",media_esc)

## [1] "La media aritmetica de matematicas es de:  67.738"

paste("La mediana de matematicas es de: ",mediana_esc)

## [1] "La mediana de matematicas es de:  68"

paste("La moda de matematicas es de: ",moda_esc)

## [1] "La moda de matematicas es de:  64" "La moda de matematicas es de:  71"

Analsisi descriptivo con summary() de variables de interes

summary(datos_interes)

##    math.score    reading.score writing.score   
##  Min.   : 13.0   Min.   : 27   Min.   : 23.00  
##  1st Qu.: 56.0   1st Qu.: 60   1st Qu.: 58.00  
##  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