if (FALSE) {
sowing <- rep(as.Date("1981-05-01"), 10)
emergence <- rep(10, 10)
heading <- NULL
flowering <- runif(10) * 20 + 50
maturity <- runif(10) * 20 + 100
latitude <- -27
res <- climate_by_stages(climates = climates,
sowing = sowing,
emergence = emergence,
heading = heading,
flowering = flowering,
maturity = maturity,
latitude = latitude)
}
Run the code above in your browser using DataLab