R/MeanGermPercent.R
MeanGermPercent.Rd
Compute the following metrics:
MeanGermPercent
Mean/average germination percentage per unit time (¯GP) (Czabator 1962) .
MeanGermNumber
Number of seeds germinated per unit time (¯N) (Khamassi et al. 2013) .
MeanGermPercent(
germinated.seeds,
germ.counts,
total.seeds,
intervals,
partial = TRUE
)
MeanGermNumber(germ.counts, intervals, partial = TRUE)
Number of germinated seeds
Germination counts at each time interval. Can be partial
or cumulative as specified in the argument partial
.
Total number of seeds.
The time intervals.
logical. If TRUE
, germ.counts
is considered as
partial and if FALSE
, it is considered as cumulative. Default is
TRUE
.
The value of mean germination percentage as %
time−1 or mean number of seeds per time interval as
counttime−1.
Mean germination percentage per unit time (¯GP) is computed as follows (Czabator 1962) .
¯GP=GPTk
Where, GP is the final germination percentage, Tk is the time at the kth time interval, and k is the total number of time intervals required for final germination.
Mean number of seeds germinated per unit time (¯N) is computed as follows (Khamassi et al. 2013) .
¯N=NgTk
Where, Ng is the number of germinated seeds at the end of the germination test, Tk is the time at the kth time interval, and k is the total number of time intervals required for final germination.
Czabator FJ (1962).
“Germination value: An index combining speed and completeness of pine seed germination.”
Forest Science, 8(4), 386--396.
Khamassi K, Harbaoui K, Jaime ATdS, Jeddi FB (2013).
“Optimal germination temperature assessed by indices and models in field bean (Vicia faba L. var. minor).”
Agriculturae Conspectus Scientificus, 78(2), 131--136.
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
#----------------------------------------------------------------------------
MeanGermPercent(germ.counts = x, total.seeds = 50, intervals = int)
#> [1] 5.714286
MeanGermNumber(germ.counts = x, intervals = int)
#> [1] 2.857143
# From cumulative germination counts
#----------------------------------------------------------------------------
MeanGermPercent(germ.counts = y, total.seeds = 50, intervals = int, partial = FALSE)
#> [1] 5.714286
MeanGermNumber(germ.counts = y, intervals = int, partial = FALSE)
#> [1] 2.857143
# From number of germinated seeds
#----------------------------------------------------------------------------
MeanGermPercent(germinated.seeds = 40, total.seeds = 50, intervals = int)
#> [1] 5.714286