Description Usage Arguments Value Examples
Part of the Genetic Value Analysis
1 | calcFEFG(ped, alleles)
|
ped |
the pedigree information in datatable format. Pedigree (req. fields: id, sire, dam, gen, population). It is assumed that the pedigree has no partial parentage |
alleles |
dataframe contains an |
The list containing the founder equivalents,
FE = 1 / sum(p ^ 2)
, and the founder genome equivalents,
FG = 1 / sum( (p ^ 2) / r
where p
is average number of
descendants and r
is the mean number of founder alleles retained
in the gene dropping experiment.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | data(lacy1989Ped)
## Example from Analysis of Founder Representation in Pedigrees: Founder
## Equivalents and Founder Genome Equivalents.
## Zoo Biology 8:111-123, (1989) by Robert C. Lacy
library(nprcgenekeepr)
ped <- nprcgenekeepr::lacy1989Ped
alleles <- lacy1989PedAlleles
pedFactors <- data.frame(
id = as.factor(ped$id),
sire = as.factor(ped$sire),
dam = as.factor(ped$dam),
gen = ped$gen,
population = ped$population,
stringsAsFactors = TRUE
)
allelesFactors <- geneDrop(pedFactors$id, pedFactors$sire, pedFactors$dam,
pedFactors$gen, genotype = NULL, n = 5000,
updateProgress = NULL)
feFg <- calcFEFG(ped, alleles)
feFgFactors <- calcFEFG(pedFactors, allelesFactors)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.