Description Usage Arguments References Examples
It calculates the Seed Vigor Index (Sako, 2001).
1 |
lengths |
A |
wg |
A numeric value between zero and one. Default is 0.7. Is the weight given to the seedling lenght in the |
wu |
A numeric value between zero and one. Default is 0.3. Is the weight given to the |
Unif |
A numeric value, 1 or 2. If 1, the |
SAKO, Y.; MCDONALD, M. B.; FUJIMURA, K.; EVANS, A. F.; BENNETT, M. A. A system for automated seed vigour assessment. Seed Science and Technology, v. 29, n. 3, p. 625-636, 2001.
1 2 3 4 5 6 7 8 9 | 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)
VigInd <- vigor(Seedling, wg = 0.7, wu = 0.3, Unif = 1)
VigInd
|
LOTE REP SH ROOT
1 1 1 0.00 4.86
2 1 1 2.77 6.71
3 1 1 1.18 7.88
4 1 1 1.07 3.68
5 1 2 0.80 9.68
6 1 2 2.65 8.88
7 1 2 3.51 9.85
8 2 1 0.64 4.86
9 2 1 2.77 6.71
10 2 1 1.18 7.88
11 2 1 1.07 3.68
12 2 2 0.80 9.68
13 2 2 2.65 8.88
14 2 2 3.51 9.85
15 2 2 1.98 8.75
[1] 706.7313
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.