Orders a pedigree
Orders a pedigree so that offspring follow parents.
orderPed(ped)
ped
: data.frame
with three columns: id,id parent1,id parent2numerical vector
id <- 1:6 dam <- c(0,0,1,1,4,4) sire <- c(0,0,2,2,3,5) pedigree <- data.frame(id,dam,sire) (ord <- orderPed(pedigree)) pedigree <- pedigree[6:1,] (ord <- orderPed(pedigree)) pedigree <- pedigree[order(ord),] pwrong <- pedigree pwrong[1,2] <- pwrong[6,1]
Useful links