View source: R/eigen_indices.R
| resim | R Documentation |
Extends ESIM by imposing null restrictions: genetic gains for r selected
traits are forced to zero while the index heritability for the remaining traits
is maximised.
resim(
pmat,
gmat,
restricted_traits = NULL,
U_mat = NULL,
selection_intensity = 2.063
)
pmat |
Phenotypic variance-covariance matrix (n_traits x n_traits). |
gmat |
Genotypic variance-covariance matrix (n_traits x n_traits). |
restricted_traits |
Integer vector of trait indices to restrict to zero
genetic gain. Example: |
U_mat |
Optional. Restriction matrix (n_traits x r) where each column
defines one null restriction ( |
selection_intensity |
Selection intensity constant (default: 2.063). |
Projection matrix (Section 7.2):
\mathbf{K} = \mathbf{I}_t -
\mathbf{P}^{-1}\mathbf{C}\mathbf{U}
(\mathbf{U}^{\prime}\mathbf{C}\mathbf{P}^{-1}\mathbf{C}\mathbf{U})^{-1}
\mathbf{U}^{\prime}\mathbf{C}
Restricted eigenproblem:
(\mathbf{K}\mathbf{P}^{-1}\mathbf{C} - \lambda_R^2 \mathbf{I}_t)\mathbf{b}_R = 0
Selection response and genetic gain:
R_R = k_I \sqrt{\mathbf{b}_R^{\prime}\mathbf{P}\mathbf{b}_R}
\mathbf{E}_R = k_I \frac{\mathbf{C}\mathbf{b}_R}{\sqrt{\mathbf{b}_R^{\prime}\mathbf{P}\mathbf{b}_R}}
Implied economic weights:
\mathbf{w}_R = \mathbf{C}^{-1}[\mathbf{P} + \mathbf{Q}_R^{\prime}\mathbf{C}]\mathbf{b}_R
where \mathbf{Q}_R = \mathbf{I} - \mathbf{K}.
Object of class "resim", a list with:
summaryData frame with b coefficients and key metrics.
bNamed numeric vector of RESIM coefficients.
Delta_GNamed vector of expected genetic gains per trait.
sigma_IIndex standard deviation.
hI2Index heritability (leading eigenvalue of KP^(-1)C).
rHIIndex accuracy.
lambda2Leading eigenvalue of the restricted eigenproblem.
KProjection matrix used.
U_matRestriction matrix used.
restricted_traitsInteger vector of restricted trait indices.
implied_wImplied economic weights.
selection_intensitySelection intensity used.
Ceron-Rojas, J. J., & Crossa, J. (2018). Linear Selection Indices in Modern Plant Breeding. Springer International Publishing. Section 7.2.
## Not run:
gmat <- gen_varcov(seldata[, 3:9], seldata[, 2], seldata[, 1])
pmat <- phen_varcov(seldata[, 3:9], seldata[, 2], seldata[, 1])
# Restrict traits 1 and 3 to zero genetic gain
result <- resim(pmat, gmat, restricted_traits = c(1, 3))
print(result)
summary(result)
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.