||
代码如下:
# 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)
Archiver|手机版|科学网 ( 京ICP备07017567号-12 )
GMT+8, 2024-10-20 00:53
Powered by ScienceNet.cn
Copyright © 2007- 中国科学报社