data(miscEx)
id<- sample(ped$id[300:500],20)
# get condensed identity coefficients
oo<- cic(ped,id,df=0)
ksp<- kinship(ped,ids=id) # 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