# NOT RUN {
data(PedigWithErrors)
sPed <- subPed(PedigWithErrors, keep="276000891974272", prevGen=3, succGen=2)
sPed
label <- c("Indiv", "Born", "Breed")
pedplot(sPed, mar=c(2,4,2,4), label=label, cex=0.7)
# }
Run the code above in your browser using DataLab