summary.nprcgenekeeprErr | R Documentation |
summary.nprcgenekeeprErr Summary function for class nprcgenekeeprErr
## S3 method for class 'nprcgenekeeprErr'
summary(object, ...)
## S3 method for class 'nprcgenekeeprGV'
summary(object, ...)
object |
object of class nprcgenekeeprErr and class list |
... |
additional arguments for the |
Object of class summary.nprcgenekeeprErr
object of class summary.nprcgenekeeprGV
errorList <- qcStudbook(nprcgenekeepr::pedOne, minParentAge = 0,
reportChanges = TRUE,
reportErrors = TRUE)
summary(errorList)
examplePedigree <- nprcgenekeepr::examplePedigree
breederPed <- qcStudbook(examplePedigree, minParentAge = 2,
reportChanges = FALSE,
reportErrors = FALSE)
focalAnimals <- breederPed$id[!(is.na(breederPed$sire) &
is.na(breederPed$dam)) &
is.na(breederPed$exit)]
ped <- setPopulation(ped = breederPed, ids = focalAnimals)
trimmedPed <- trimPedigree(focalAnimals, breederPed)
probands <- ped$id[ped$population]
ped <- trimPedigree(probands, ped, removeUninformative = FALSE,
addBackParents = FALSE)
geneticValue <- reportGV(ped, guIter = 50, # should be >= 1000
guThresh = 3,
byID = TRUE,
updateProgress = NULL)
trimmedGeneticValue <- reportGV(trimmedPed, guIter = 50, # should be >= 1000
guThresh = 3,
byID = TRUE,
updateProgress = NULL)
summary(geneticValue)
summary(trimmedGeneticValue)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.