# example with 9 individuals
id <- 1:9
par1 <- c(0,0,0,0,1,1,1,4,7)
par2 <- c(0,0,0,0,2,3,2,5,8)
gener <- c(0,0,0,0,1,1,1,2,3)
# create pedigree object
ped <- create.pedigree(id,par1,par2,gener)
plot(ped)Run the code above in your browser using DataLab