powered by
Renumbering pedigree to numerical IDs, so that progeny's ID is smaller than parents' IDs.
renum(ped)
: data.frame with columns corresponding to ID, SIRE, DAM. Missing value is 0.
data.frame
newped : Pedigree data.frame with renumberred IDs.
xrf : Cross-reference data.frame with 2 columns for original and renumberred IDs.
# NOT RUN { ped = data.frame(ID=letters[1:6], SIRE=c(0,0,letters[c(1,3,1,4)]), DAM=c(0,0,letters[c(2,2,2,5)])) renum(ped)$newped renum(ped)$xrf # }
Run the code above in your browser using DataLab