Introducción

En este reporte se evalúa la evolución de la altura de un cultivo de pimiento (Capsicum annuum) registrado durante las primeras 10 semanas de desarrollo.

Datos de Altura

A continuación, se definen los datos recolectados semana a semana.

semanas <- 1:10
altura <- c(5, 8, 12, 18, 25, 33, 42, 50, 58, 65)

datos_pimiento <- data.frame(Semana = semanas, Altura_cm = altura)

plot(datos_pimiento$Semana, datos_pimiento$Altura_cm, 
     type = "b", 
     pch = 19, 
     col = "darkgreen",
     xlab = "Semanas de Cultivo", 
     ylab = "Altura (cm)",
     main = "Curva de Crecimiento del Pimiento")
grid()