# small pedigree
ped <- simul.pedigree(gener=4,7)
gp <- create.gpData(pedigree=ped)
A <- kin(gp,ret="add")
plot(A)
# big pedigree
## Not run: ------------------------------------
# library(synbreedData)
# data(maize)
# K <- kin(maize,ret="kin")
# U <- kin(codeGeno(maize),ret="realized")/2
# # equal colorkeys
# plot(K,levelbreaks=seq(0,2,length=9))
# plot(U,levelbreaks=seq(0,2,length=9))
## ---------------------------------------------
Run the code above in your browser using DataLab