# NOT RUN {
### Example 1: Full siblings
x <- nuclearPed(2)
Nsim <- 100 # Should be increased substantially
# Autosomal kappa estimate (exact = c(0.25, 0.5, 0.25))
oneLocusIBD(x, ind1=3, ind2=4, Nsim=Nsim)
# X-chromosomal kappa estimate (exact = c(0.5, 0.5))
oneLocusIBD(x, ind1=3, ind2=4, Nsim=Nsim, Xchrom=TRUE)
# }
Run the code above in your browser using DataLab