FAO56 dual crop R script