data(miscEx)
ids<- sample(pedF8$id[300:500],20)
if (FALSE) {
# get condensed identity coefficients
oo<- cic(pedF8, ids=ids, df=0)
ksp<- kinship(pedF8, ids=ids) # kinship coefficients only
# extract genetic matrices
gm<- genMatrix(oo)
sum((gm$AA-2*ksp)>1e-7) # same results
}
Run the code above in your browser using DataLab