# NOT RUN {
x = cousinsPed(2)
x = simpleSim(x, 1000, 1:2) # 1000 equifrequent SNPs
examineKinships(x, who=c("par", "sib"))
#dontrun
# comparing the founders with another unrelated person:
y = singleton(1, famid=2)
y = simpleSim(y, 1000, 1:2)
examineKinships(list(x, y), who="unrelated", interfam="founders")
# IBD estimates for the cousins (famid=1, iid=7 and 8) vs.
# unrelated singleton (famid=2, iid=1):
ibd = IBDestimate(c("1-7", "1-8"), "2-1", list(x,y), error=0.005)
ibd
# }
Run the code above in your browser using DataLab