vigor_corr: Seed Corrected Vigor Index
In SeedCalc: Seed Germination and Seedling Growth Indexes

Description Usage Arguments References Examples

It calculates the Seed Corrected Vigor Index (Medeiros & Pereira, 2018).

1	vigor_corr(lengths, Ger = 100, wg = 0.7, wu = 0.3, Unif = 1)

`lengths`	A `data.frame` object containing seedling lenghts data with four columns. The first and second columns are for identification, e.g. treatments and repetitions. The third is the shoot lenght and the fourth is the root lenght.
`Ger`	A `data.frame` object containing two columns. The first must contain the identification of the treatments identical to the first column of the seedling length data. The default is the numeric value 100 and in this case the `vigor_corr` is equal to `vigor` index.
`wg`	A numeric value between zero and one. Default is 0.7. Is the weight given to the seedling lenght in the `Vigor` index calculation.
`wu`	A numeric value between zero and one. Default is 0.3. Is the weight given to the `Unif_2` index calculation.
`Unif`	A numeric value, 1 or 2. If 1, the `unif_1` index is used for vigor index calculation. If 2, the `Unif_2` index is used for `Vigor` index calculation.

MEDEIROS, A. D. DE; PEREIRA, M. D. SAPL: a free software for determining the physiological potential in soybean seeds. Pesquisa Agropecuaria Tropical, v. 48, n. 3, p. 222-228, 2018.

Seedling <- data.frame(
LOTE = c(1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2),
REP = c(1, 1, 1, 1, 2, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2),
SH = c(0.00, 2.77, 1.18, 1.07, 0.80, 2.65, 3.51, 0.64, 2.77, 1.18, 1.07, 0.80, 2.65, 3.51, 1.98),
ROOT = c(4.86, 6.71, 7.88, 3.68, 9.68, 8.88, 9.85, 4.86, 6.71, 7.88, 3.68, 9.68, 8.88, 9.85, 8.75)
)
print(Seedling)

Ger <- data.frame(LOTE = c(1,2), GER = (c(90,80)))
print(Ger)

VigInd <- vigor_corr(Seedling, Ger, wg = 0.7, wu = 0.3, Unif = 1)
VigInd