View source: R/WeightGermPercent.R
WeightGermPercent | R Documentation |
Compute the Weighted germination percentage \mjseqnWGP or Weighted germination index \mjseqnWGI \insertCitereddy_effect_1978,reddy_effect_1985germinationmetrics. \loadmathjax
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 \insertCitereddy_effect_1978,reddy_effect_1985germinationmetrics.
\mjsdeqnWGP = \frac\sum_i=1^k(k-i+1)N_ik \times N \times 100
Where, \mjseqnN_i is the number of seeds that germinated in the time interval \mjseqni (not cumulative, but partial count), \mjseqnN is the total number of seeds tested, and \mjseqnk is the total number of time intervals.
The weighted germination percentage (%) value.
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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.