library(modeest)
##
## This is package 'modeest' written by P. PONCET.
## For a complete list of functions, use 'library(help = "modeest")' or 'help.start()'.
Introduce los datos de los promedios de los alumnos
datosProm <- c(87.75, 74, 85, 86, 86, 74, 88, 74, 92.5, 91, 81, 93.33, 89, 88, 74, 79, 92.5, 94.8, 84, 81.5, 85, 84.5, 80, 82.5, 91.5, 82, 83.5, 79.9, 89, 92, 83, 80, 85, 86.33, 83, 82,85,80)
datosProm
## [1] 87.75 74.00 85.00 86.00 86.00 74.00 88.00 74.00 92.50 91.00 81.00
## [12] 93.33 89.00 88.00 74.00 79.00 92.50 94.80 84.00 81.50 85.00 84.50
## [23] 80.00 82.50 91.50 82.00 83.50 79.90 89.00 92.00 83.00 80.00 85.00
## [34] 86.33 83.00 82.00 85.00 80.00
Graficar los promedios de los alumnos
plot(datosProm)
##La mayor distribución de datos se encuentra en el rango entre 80 y 85, donde también se encuentra la media.
Calcular moda
mfv(datosProm)
## [1] 74 85
Máximo
maximo<-max(datosProm)
maximo
## [1] 94.8
Mínimo
minimo<-min(datosProm)
minimo
## [1] 74
Ordenar Promedios
sort(datosProm)
## [1] 74.00 74.00 74.00 74.00 79.00 79.90 80.00 80.00 80.00 81.00 81.50
## [12] 82.00 82.00 82.50 83.00 83.00 83.50 84.00 84.50 85.00 85.00 85.00
## [23] 85.00 86.00 86.00 86.33 87.75 88.00 88.00 89.00 89.00 91.00 91.50
## [34] 92.00 92.50 92.50 93.33 94.80
Rango
rango= maximo - minimo
rango
## [1] 20.8
Gráfica de Frecuencia
frecuencia<-table(datosProm)
frecuencia
## datosProm
## 74 79 79.9 80 81 81.5 82 82.5 83 83.5 84 84.5
## 4 1 1 3 1 1 2 1 2 1 1 1
## 85 86 86.33 87.75 88 89 91 91.5 92 92.5 93.33 94.8
## 4 2 1 1 2 2 1 1 1 2 1 1
barplot(frecuencia, col = "blue", main = "Frecuencia de promedios")
Frecuencia relativa
frecRelativa<-(frecuencia)/margin.table(frecuencia)
frecRelativa
## datosProm
## 74 79 79.9 80 81 81.5
## 0.10526316 0.02631579 0.02631579 0.07894737 0.02631579 0.02631579
## 82 82.5 83 83.5 84 84.5
## 0.05263158 0.02631579 0.05263158 0.02631579 0.02631579 0.02631579
## 85 86 86.33 87.75 88 89
## 0.10526316 0.05263158 0.02631579 0.02631579 0.05263158 0.05263158
## 91 91.5 92 92.5 93.33 94.8
## 0.02631579 0.02631579 0.02631579 0.05263158 0.02631579 0.02631579
Frecuencia porcentual
frecuenciaporcentual=frecRelativa*100
frecuenciaporcentual
## datosProm
## 74 79 79.9 80 81 81.5 82
## 10.526316 2.631579 2.631579 7.894737 2.631579 2.631579 5.263158
## 82.5 83 83.5 84 84.5 85 86
## 2.631579 5.263158 2.631579 2.631579 2.631579 10.526316 5.263158
## 86.33 87.75 88 89 91 91.5 92
## 2.631579 2.631579 5.263158 5.263158 2.631579 2.631579 2.631579
## 92.5 93.33 94.8
## 5.263158 2.631579 2.631579
Cantidad de datos
n<-length(datosProm)
n
## [1] 38
Cuartil Q1 Q2 Q3
quantile(datosProm, c(.25, .50, .75))
## 25% 50% 75%
## 81.125 84.750 88.000
Cuartil 80
quantile(datosProm, 0.80)
## 80%
## 89