library(EstimateBreed)
data("leafarea")
#Crop selection
soy_lai<-with(leafarea,lai(GEN,C,L,TNL,TDL,crop="soy"))
#Changing row spacing and sowing density
maize_lai<-with(leafarea,lai(GEN,C,L,TNL,TDL,crop="maize",sp=0.45,sden=4))
Run the code above in your browser using DataLab