Summarise the climate variable by growth stages
Usage
climate_by_stages(
climates,
sowing,
emergence,
heading = NULL,
flowering = NULL,
maturity,
latitude
)
Arguments
- climates
a data.frame for climate records
- sowing
date. an vector of sowing date
- emergence
numeric (days after sowing). an vector of emergence date
- heading
numeric (days after sowing). an vector of heading date (optional. see details)
- flowering
numeric (days after sowing). an vector of flowering time (optional. see details)
- maturity
numeric (days after sowing). an vector of maturity time
- latitude
latitude
Details
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
Examples
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)
}