Summarise the climate variable by growth stages
climate_by_stages(
climates,
sowing,
emergence,
heading = NULL,
flowering = NULL,
maturity,
latitude
)
a data.frame for climate records
date. an vector of sowing date
numeric (days after sowing). an vector of emergence date
numeric (days after sowing). an vector of heading date (optional. see details)
numeric (days after sowing). an vector of flowering time (optional. see details)
numeric (days after sowing). an vector of maturity time
latitude
a data.frame for summarised climate variable by stages. See details for more information.
Define of growth stages
S0: From start of year to emergence
S1: From emergence to flowering time - 300Cd
S2: From flowering time - 300Cd to flowering time + 100Cd
S3: From flowering time + 100 Cd to flowering time + 600Cd
S4: From flowering + 600Cd to maturity
Climate variables
stage: defination of stages
n: Number of days in each stage
avgt: average temperature (C)
sum.tt: total thermal time (Cd) with base temperature 0C
avg.mint: average minimum temperature
avg.maxt: average maximum temperature
sum.rain: total rainfall
avg.evap: average evapration
avg.radn average radiation
hot.days: number of hot days (daily maximum temperature is more than 30C)
very.hot.days: number of very hot days (daily maximum temperature is more than 35C)
frost.days: number of frost days (daily minimum temperature is less than 0C)
hot.sum: total thermal time above 30C of hot days (daily maximum temperature is more than 30C)
very.hot.sum: total thermal time above 35C of very hot days (daily maximum temperature is more than 35C)
frost.sum: total thermal time below 0C of frost days (daily minimum temperature is less than 0C)
vpd: vapour-pressure deficit
te: transpiration efficiency
bio.radn: bio.radn
bio.water: bio.water
bio.tt: bio.tt
ptq: photothermal quotient
avt.diffuse.radn: average diffuse radiation
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)
}