Estadísticas

Métodos númericos

Examen 1

datos <- c(78,54,77,93,84,103,79,85,87,66,69,89,48,93,
           86,80,87,72,78,79,74,74,86,86,91)
Reprobados <- sum(datos<70)
Aprobados <- length(datos)-Reprobados
hist(datos, breaks = 5)
abline(v = 70, col = "red")
abline(v = mean(datos), col = "blue")

Probabilidad

Examen 1

datos <- c(51,85,48,82,77,52,65,69,91,92,44,56,99,
           61,87,67,63,88,71,76,78,66,87,85,71)
Reprobados <- sum(datos<70)
Aprobados <- length(datos)-Reprobados
hist(datos, breaks = 5)
abline(v = 70, col = "red")
abline(v = mean(datos), col = "blue")

Matemáticas 1

Examen 1

datos <- c(93, 69.5, 37.5, 85.5, 58.5, 37.5, 82,
           89.5, 53, 88.5, 44.5, 26.5, 33.5, 54.5,
           19.5, 45, 76.5, 37.5, 45.5, 70.5, 90, 30.5, 75,
           48, 76.5, 68.5)
Reprobados <- sum(datos<70)
Aprobados <- length(datos)-Reprobados
hist(datos, breaks = 10)
abline(v = 70, col = "red")
abline(v = mean(datos), col = "blue")