Moda

Notas<- c(100,87,94,76,85,100,90,96,98,80,92,88)

##Utilizamos la función mean()
mean (Notas)

##el resultado que obtenemos es el promedio de las notas de Carlos.

jpeg(file = "media.jpeg")
plot(Notas)
dev.off()