Ejercicio  4

En un experimento se tomaron medidas de pH de una sustancia química para determinar su acidez. Se tomaron 25 medidas cada 3 horas y los resultados fueron: 3.08, 3.26, 3.67, 3.79, 3.89, 3.91, 4.11, 4.52, 4.55, 4.59, 4.66, 4.79, 5.02, 5.48, 5.60, 6.00, 6.15, 6.37, 16.38, 6.63, 6.89, 7.05, 7.18, 7.22 y 7.94. Donde la primera medida se tomó en el tiempo 0, la segunda a las 3 horas y así sucesivamente. Crea una tabla de datos (data.frame) que se llame "medidas" que contenga en una variable llamada "tiempo", el tiempo (en horas)  en que se tomó la medida y en otra variable llamada "pH" el valor del pH.  

• Teniendo en cuenta que el pH es una medida que oscila entre 0 y 14, ¿a las cuantas horas se ha tomado una medida errónea?.  

• Elimina dichos valores mal tomados. Recuerda que en su lugar se ha de especificar que la medida no existe, es decir, reemplaza la/las medidas erróneas por "valores faltantes, NA". Calcula el promedio de la medida de pH de todo el experimento. 

• Se considera que un pH menor o igual que 5 indica que es una sustancia ácida, entre 5 y 7 (incluido) es normal y, mayor que 7 es alcalina. Agrega a la tabla existente otra variable que indique si el resultado es ácido, neutro o alcalino. ¿Cuántas muestras se han tomado para cada grado de acidez? 
• Ácido:  
• Normal:  
• Alcalino: 
• ¿Cuál es el promedio de pH para cada grado de acidez?
• Ácido: 
• Normal:
• Alcalino:  
• Realiza una gráfica que represente el tiempo contra el pH, agrégale dos lineas horizontales que limiten los grados de acidez.
  plot(medidas$tiempo,medidas$pH); abline(h=c(5,7))

  plot(medidas$pH,medidas$tiempo); abline(h=c(5,7))

  plot(medidas$pH,medidas$tiempo); abline(h=v(5,7))

  plot(medidas$tiempo,medidas$pH); abline(v=c(5,7))

  plot(medidas$tiempo,medidas$pH); line(v=c(5,7)),

  plot(medidas$pH,medidas$tiempo); line(h=c(5,7))