FAO 56 dualcrop R script