En esta actividad se presentara el informe meteorológico de ciudad Obregón durante las ultimas 2 semanas. Se cuenta con la información del promedio de temperatura en transcurso de todo el día.
Además se realizaran dos predicciónes con los datos recaudados.

library(plyr)
dataset = c(17, 16, 15, 16, 16, 16, 17, 17, 14, 8, 10, 14, 17, 17)
y = count(dataset)
barplot(y$freq, names.arg = y$x, main = "Grafica de frecuencias", col = c("blue"), xlab = "Temperatura °C")

Se cuenta con una media de 15°C y una desviación estandar de 2.77 unidades.

~Predicción 1

x <- seq(8, 20, by = 0.1)
y <- dnorm(x, mean = 15, sd = 2.77)
plot(x, y, type = "b", xlab = "Temperatura °C")

Con esta gráfica podemos observar la frecuencia de los promedios de temperatura en los ultimos días, se puede realizar una predicción donde diriamos que hay una muy alta probabilidad de que el promedio del día siguiente sea 15 °C.

~Prediccón 2

x <- seq(8, 20, by = 0.1)
y <- dnorm(x, mean = 15, sd = 2.77)
plot(x, y, type = "l", xlab = "Temperatura °C")

Se puede hacer otra predicción diciendo que hay un 4% de que la temperadura del siguiente día sea menor o igual a 10°C.