data(dat30)
str(dat30)
plotPed(dat30, 2) # plot the pedigree tree for family #2
## Not run:
# kin2 <- solarKinship2(dat30)
# plotKinship2(kin2)
# plotKinship2(kin2[1:30, 1:30])
#
# ## End(Not run)
str(genocovdat30)
genocovdat30[1:5, 1:5]
str(mapdat30)
head(mapdat30)
Run the code above in your browser using DataLab