# load `kin` kinship matrix from `dat50` data set
data(dat50)
kin2 <- 2* kin # double kinship matrix
plotKinship2(kin2) # equivalent to `imageKinship2(kin2)`
plotKinship2(kin2, "hist") # equivalent to `histKinship2(kin2)`
Run the code above in your browser using DataLab