# NOT RUN {
set.seed(127)
ped = data.frame(ID=c(1:50,NA,0,1:3),
SIRE=c(0, sample(c(0,10:25), 53, replace=TRUE), 51),
DAM=c(0, NA, 52, sample(c(0,20:35), 52, replace=TRUE)))
pedcheck(ped)
# }
Run the code above in your browser using DataLab