Get pedigree based on list of focal animals
Examples
library(nprcgenekeepr)
siteInfo <- getSiteInfo(FALSE)
source <- " generated by getFocalAnimalPed: "
tryCatch(getFocalAnimalPed(fileName = "breeding file.csv"),
warning = function(wCond) {
cat(paste0("Warning", source, wCond),
name = "nprcgenekeepr"
)
return(NULL)
},
error = function(eCond) {
cat(paste0("Error", source, eCond),
name = "nprcgenekeepr"
)
return(NULL)
}
)
#> Warning generated by getFocalAnimalPed: simpleWarning in file(file, "rt"): cannot open file 'breeding file.csv': No such file or directory
#> nprcgenekeepr
#> NULL