# reg.out <- ibdreg(formula=~1, ped.id=ped.id, person.id=person.id,
# status=status, status.method="AA", data=data,
# ibd.dat=ibd.dat.obj, ibd.var=ibd.var.obj)
# print.linkage.tests(reg.out$AA.linkage, digits=4)
Run the code above in your browser using DataLab