## this example is taken from the package vignette,
## See vignette(IBDhaploRtools_tutorial)
data(qibd_phased)
data(ids_phased)
data(trueibd_phased)
phased.gold <- ibdhap.make.calls( qibd.file = qibd_phased,
ids.file= ids_phased, cutoff = 0.8)
ibdhap.compare.segs(phased.gold, trueibd_phased, "h", 0.8, pos=NA)
Run the code above in your browser using DataLab