Area_Foliar

Modificacion de la base de datos

setwd("C:/Users/franc/Documents/EAFIT/Modelos de Azucar")
datos = read.table("9_Huila_Neiva.csv", header = TRUE, sep = ",")
dato22 = datos[1:81,] 
names(dato22) [3:6] = c("R.Solar", "Tmax", "Tmin", "Precipitacion")
DT::datatable(dato22)

## Hallar los grados dias DTU

dato22$DTU = (dato22$Tmax+dato22$Tmin)/2-10

Hallar Desarrollo diario de los nudos de las hojas INODE Y Número total de nudos en la planta INODEi cada día

dato22$INODE = (dato22$DTU/100)
dato22$INODEi = dato22$INODE[1]
for (i in 2:81){ 
  dato22$INODEi[i] = dato22$INODEi[i-1]+dato22$INODE[i]
}

Hallar el Calculo del área foliar de la planta (PLA) en m por planta y Índice de área foliar (LAI) con grafica

dato22$PLA = 0.0235*exp(0.166*dato22$INODEi)
dato22$LAI = dato22$PLA*10
DT::datatable(dato22)

plot(dato22$LAI, type = "l", col="red")