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