代码如下：

# example with 9 individuals        
library(synbreed)

#如果没有synbreed包，需要安装

#install.packages("synbreed")
id <- 1:8
par1 <- c(0,0,0,1,2,3,1,2)
par2 <- c(0,0,0,2,0,0,0,0)
gener <- c(0,0,0,1,1,1,1,1)

# create pedigree object
ped <- create.pedigree(id,par1,par2)
plot(ped)