Weighted germination percentage
Compute the Weighted germination percentage \(WGP\) or Weighted germination index \(WGI\) (Reddy 1978; Reddy et al. 1985).
WeightGermPercent(germ.counts, total.seeds, intervals, partial = TRUE)
germ.counts |
Germination counts at each time interval. Can be partial
or cumulative as specified in the argument |
total.seeds |
Total number of seeds tested. |
intervals |
The time intervals. |
partial |
logical. If |
Weighted germination percentage was calculated by giving maximum weight to the seeds that germinate first and decreasing weight to the seeds that germinate subsequently. It is computed as follows (Reddy 1978; Reddy et al. 1985).
Where, \(N_{i}\) is the number of seeds that germinated in the time interval \(i\) (not cumulative, but partial count), \(N\) is the total number of seeds tested, and \(k\) is the total number of time intervals.
The weighted germination percentage (%) value.
Reddy LV (1978).
Effect of temperature on seed dormancy and alpha-amylase activity during kernel maturation and germination in wheat (Triticum aestivum L.) cultivars.
Ph.D. thesis, Oregon State University.
Reddy LV, Metzger RJ, Ching TM (1985).
“Effect of temperature on seed dormancy of wheat.”
Crop Science, 25(3), 455.
x <- c(0, 0, 0, 0, 4, 17, 10, 7, 1, 0, 1, 0, 0, 0)
y <- c(0, 0, 0, 0, 4, 21, 31, 38, 39, 39, 40, 40, 40, 40)
int <- 1:length(x)
# From partial germination counts
#----------------------------------------------------------------------------
WeightGermPercent(germ.counts = x, total.seeds = 50, intervals = int)
# From cumulative germination counts
#----------------------------------------------------------------------------
WeightGermPercent(germ.counts = y, total.seeds = 50, intervals = int,
partial = FALSE)Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.