data(Falconer5.1)
Pedigree(x=Falconer5.1, subject="sub", ascendant=c("fat", "mot"))
data(Mrode2.1)
Mrode2.1$dtB <- as.Date(Mrode2.1$dtB)
Pedigree(x=Mrode2.1, subject="sub", ascendant=c("fat", "mot"),
ascendantSex=c("M", "F"), family="fam", sex="sex",
generation="gen", dtBirth="dtB")
data(Mrode3.1)
Pedigree(x=Mrode3.1, subject="calf", ascendant=c("sire", "dam"),
ascendantSex=c("Male", "Female"), sex="sex")
Run the code above in your browser using DataLab