# NOT RUN {
library(nprcgenekeepr)
errorLst <- qcStudbook(nprcgenekeepr::pedInvalidDates,
reportChanges = TRUE, reportErrors = TRUE)
summary(errorLst)
# }
# NOT RUN {
# }
# NOT RUN {
library(nprcgenekeepr)
ped <- nprcgenekeepr::pedGood
ped <- suppressWarnings(qcStudbook(ped, reportErrors = FALSE))
summary(reportGV(ped, guIter = 10))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab