GermIndex | R Documentation |
Compute the Germination index according to \insertCitemelville_seed_1980;textualgerminationmetrics and its modification by \insertCitede_santana_alise_2004;textualgerminationmetrics \insertCiteranal_how_2006germinationmetrics. \loadmathjax
GermIndex(
germ.counts,
intervals,
partial = TRUE,
total.seeds,
modification = c("none", "santanaranal")
)
germ.counts |
Germination counts at each time interval. Can be partial
or cumulative as specified in the argument |
intervals |
The time intervals. |
partial |
logical. If |
total.seeds |
Total number of seeds. |
modification |
The modification to be applied. Either |
Germination index (\mjseqnGI) is computed as follows \insertCitemelville_seed_1980germinationmetrics.
\mjsdeqnGI = \sum_i=1^k\frac\left | \left ( T_k - T_i \right ) N_i\right |N_t
Where, \mjseqnT_i is the time from the start of the experiment to the \mjseqnith interval (day for the example), \mjseqnN_i is the number of seeds germinated in the \mjseqnith time interval (not the accumulated number, but the number corresponding to the \mjseqnith interval), \mjseqnN_t is the total number of seeds used in the test, and \mjseqnk is the total number of time intervals.
A modified germination index (\mjseqnGI_mod) was proposed by
\insertCitede_santana_alise_2004germinationmetrics where total number of
seeds tested (\mjseqnN_t) is replaced by the total number of germinated
seeds (\mjseqnN_g) in the expression of
\insertCitemelville_seed_1980;textualgerminationmetrics to
remove the effect of sample size
\insertCiteranal_how_2006germinationmetrics. It is computed as follows
(Specified by the argument modification = "santanaranal"
).
GI_mod = \sum_i=1^k\frac\left | \left ( T_k - T_i \right ) N_i\right |N_g
The term Germination index (\mjseqnGI) has also been used to describe the
mathematical expression for Speed of germination
(GermSpeed
) by
\insertCiteaosa_seed_1983;textualgerminationmetrics.
The value of the Germination index in the same unit of time as
specified in the argument intervals
.
GermSpeed
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
#----------------------------------------------------------------------------
GermIndex(germ.counts = x, intervals = int, total.seeds = 50)
GermIndex(germ.counts = x, intervals = int, total.seeds = 50,
modification = "none")
GermIndex(germ.counts = x, intervals = int, total.seeds = 50,
modification = "santanaranal")
# From cumulative germination counts
#----------------------------------------------------------------------------
GermIndex(germ.counts = y, intervals = int, partial = FALSE,
total.seeds = 50)
GermIndex(germ.counts = y, intervals = int, partial = FALSE,
total.seeds = 50,
modification = "none")
GermIndex(germ.counts = y, intervals = int, partial = FALSE,
total.seeds = 50,
modification = "santanaranal")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.