Importar y analizar datos de examenes de alumnos
library(readr)
library(modeest)datos = read.csv(file = "https://raw.githubusercontent.com/rpizarrog/probabilidad-y-estad-stica/master/2023/datos/exams.csv")
# datosdatos_interes<-datos[,c(6,7,8)]
# datos_intereshead(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 45tail(datos,10)## gender race.ethnicity parental.level.of.education lunch
## 991 male group D some college standard
## 992 female group C associate's degree standard
## 993 male group C some college standard
## 994 female group A associate's degree standard
## 995 male group E high school free/reduced
## 996 male group C high school standard
## 997 male group D associate's degree free/reduced
## 998 female group C some high school free/reduced
## 999 female group C some college standard
## 1000 male group A some college standard
## test.preparation.course math.score reading.score writing.score
## 991 none 67 55 53
## 992 none 87 93 88
## 993 none 69 63 66
## 994 none 58 54 58
## 995 completed 86 82 75
## 996 none 73 70 65
## 997 completed 85 91 92
## 998 none 32 35 41
## 999 none 73 74 82
## 1000 completed 65 60 62media_mat = mean(datos$math.score)
mediana_mat = median(datos$math.score)
moda_mat = mfv(datos$math.score)
paste("La media artimética de matemáticas = ", media_mat)## [1] "La media artimética 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_rea = mean(datos$reading.score)
mediana_rea = median(datos$reading.score)
moda_rea = mfv(datos$reading.score)
paste("La media artimética de lectura = ", media_rea)## [1] "La media artimética de lectura = 69.002"paste("La mediana de lectura = ", mediana_rea)## [1] "La mediana de lectura = 70"paste("La moda de lectura = ", moda_rea)## [1] "La moda de lectura = 71"media_esc = mean(datos$writing.score)
mediana_esc = median(datos$writing.score)
moda_esc = mfv(datos$writing.score)
paste("La media artimética de escritura = ", media_esc)## [1] "La media artimética de escritura = 67.738"paste("La mediana de escritura = ", mediana_esc)## [1] "La mediana de escritura = 68"paste("La moda de escritura = ", moda_esc)## [1] "La moda de escritura = 64" "La moda de escritura = 71"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