# returns nothing if OK, else error:
getGenerations(SeqOUT_griffin$Pedigree)
# returns vector with generation numbers:
G <- getGenerations(SeqOUT_griffin$Pedigree, StopIfInvalid=FALSE)
table(G, useNA='ifany')
Ped_plus_G <- cbind(SeqOUT_griffin$Pedigree, G)
Run the code above in your browser using DataLab