Importar y analizar datos de alumnos.
library(readr)
library(modeest)
promedios<-c(180,170,172,175,160,155,158,160,172,175)
promedios
## [1] 180 170 172 175 160 155 158 160 172 175
promedios2<-c(170,172,173,175,178,168,160,169,168,174)
promedios2
## [1] 170 172 173 175 178 168 160 169 168 174
media <- mean(promedios)
media
## [1] 167.7
vari<-var(promedios)
vari
## [1] 74.9
desv<-sd(promedios)
desv
## [1] 8.654479
cv<-sd(promedios) / mean(promedios) * 100
cv
## [1] 5.160691
plot(promedios)
media <- mean(promedios2)
media
## [1] 170.7
vari<-var(promedios2)
vari
## [1] 24.67778
desv<-sd(promedios2)
desv
## [1] 4.967673
cv<-sd(promedios2) / mean(promedios2) * 100
cv
## [1] 2.910178
plot(promedios2)
El primero