Learn R Programming

nprcgenekeepr (version 1.0.5)

summary.nprcgenekeeprErr: summary.nprcgenekeeprErr Summary function for class nprcgenekeeprErr

Description

summary.nprcgenekeeprErr Summary function for class nprcgenekeeprErr

Usage

# S3 method for nprcgenekeeprErr
summary(object, ...)

# S3 method for nprcgenekeeprGV summary(object, ...)

Arguments

object

object of class nprcgenekeeprErr and class list

...

additional arguments for the summary.default statement

Value

Object of class summary.nprcgenekeeprErr

object of class summary.nprcgenekeeprGV

Examples

Run this code
# NOT RUN {
errorList <- qcStudbook(nprcgenekeepr::pedOne, minParentAge = 0,
reportChanges = TRUE,
reportErrors = TRUE)
summary(errorList)
# }
# NOT RUN {
# }
# NOT RUN {
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)
# }

Run the code above in your browser using DataLab