Tarea Crear Documento en RMarkdawn

data("BOD")
hist(BOD$demand, col = "blue")

El histograma anterior muestra la frecuencia de demanda de oxigeno mostrada en los datos escogidos BOD, el cual da la demandade oxígeno frente al tiempo en una evaluación de la calidad del agua. Se puede decir que a mayor tiempo, mayor demanda de oxigeno.

summary(BOD)
##       Time           demand     
##  Min.   :1.000   Min.   : 8.30  
##  1st Qu.:2.250   1st Qu.:11.62  
##  Median :3.500   Median :15.80  
##  Mean   :3.667   Mean   :14.83  
##  3rd Qu.:4.750   3rd Qu.:18.25  
##  Max.   :7.000   Max.   :19.80

Se puede observr también que la demanda promedio es 15.8, en un tiempo promedio de 3.5.