Notas Primer Semestre

-
/
                                                                               

Notas Script

hist(notas$`Nota Script`,xlab="Notas",ylab="Frecuencia",main="Notas de Script")

Notas Finales

hist(notas$`Nota Final`,xlab="Notas",ylab="Frecuencia",main="Notas Final")

Comparación de notas entre script y final.

boxplot(notas$`Nota Script`,notas$`Nota Final`,las=2,main="Notas", ylab="Notas",names=c("Script","Nota Final"),col="orange")

Resumen estadístico

Notas Script

summary(notas$`Nota Script`)

   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  4.000   4.900   5.600   5.485   6.000   7.000 

Notas Finales

summary(notas$`Nota Final`)

   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  5.630   6.115   6.390   6.361   6.593   6.970 

Notas finales por campus.

boxplot(notas$`Nota Final`~notas$Campus)