Datos de los promedios
datos =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)
datos
## [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
Numero de promedios que se tiene
numero <- length(datos)
numero
## [1] 38
Media y Mediana
Frecuencia
frecuencia <-table (datos)
frecuencia
## datos
## 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
Grafica en donde se observa la frecuencia (o moda)
plot(frecuencia)
Frecuencia Relativa (en porcentaje 0-100%)
freq.relativa <- (frecuencia)/margin.table(frecuencia)*100
freq.relativa
## datos
## 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
Promedio de los almunos graficados
plot(x=1:numero, y=datos, main = "Promedios de los alumnos")
El máximo y mínimo
maximo <- max(datos)
maximo
## [1] 94.8
minimo <- min(datos)
minimo
## [1] 74
cuartiles al 80%,25%,50%,75%
cuartil=quantile (datos, prob = c(0.25, 0.5, 0.75))
cuartil
## 25% 50% 75%
## 81.125 84.750 88.000
c=quantile(datos, 0.80)
c
## 80%
## 89
promedios que estan dentro del primer cuartil
length(which(datos <= cuartil[1] ))
## [1] 10
¿cuales promedios estan dentro del primer cuartil?
datos[which(datos <= cuartil[1] ) ]
## [1] 74.0 74.0 74.0 81.0 74.0 79.0 80.0 79.9 80.0 80.0
promedios estan dentro del segundo cuartil
length(which(datos > cuartil[1] & datos <= cuartil[2] ))
## [1] 9
¿cuales promedios estan dentro del segundo cuartil?
datos[which(datos > cuartil[1] & datos <= cuartil[2] )]
## [1] 84.0 81.5 84.5 82.5 82.0 83.5 83.0 83.0 82.0
promedios estan dentro del tercer cuartil
length(which(datos > cuartil[2]& datos <= cuartil[3] ))
## [1] 10
¿cuales promedios estan dentro del tercer cuartil?
datos[which(datos > cuartil[2]& datos <= cuartil[3] )]
## [1] 87.75 85.00 86.00 86.00 88.00 88.00 85.00 85.00 86.33 85.00
promedios que estan dentro del cuarto cuartil
length(which(datos > cuartil[3] ))
## [1] 9
¿cuales promedios estan dentro del tercer cuartil?
datos[which(datos > cuartil[3])]
## [1] 92.50 91.00 93.33 89.00 92.50 94.80 91.50 89.00 92.00
Como podemos observar en la grafica de los promedios la mayoria de los alumnos tienen un promedio arriba de 80 teniendo como el promedio mas alto 94.8 y el mas bajo de 74