library(readr)
alumnos <- read.csv("https://raw.githubusercontent.com/rpizarrog/probabilidad-y-estad-stica/master/datos/promedios%20alumnos/datos%20alumnos%20promedios%20SEP%202020.csv")
sistemas <- subset(x = alumnos, Carrera == "SISTEMAS" & Semestre > 1)
arquitectura <- subset(x = alumnos, Carrera == "ARQUITECTURA" & Semestre > 1)
mean(sistemas$Promedio)
## [1] 85.67495
mean(arquitectura$Promedio)
## [1] 86.46481
plot(alumnos$Promedio)
plot(sistemas$Promedio)
plot(arquitectura$Promedio)
hist(sistemas$Promedio)
hist(arquitectura$Promedio)
boxplot(Promedio ~ Semestre, sistemas)
boxplot(Promedio ~ Semestre, arquitectura)
boxplot(Promedio ~ Carrera, alumnos)