# NOT RUN {
### Siblings whose parents are full siblings.
x = fullSibMating(generations=2)
Nsim = 100 # (increase to improve accuracy)
# Estimating the 9 identity coefficients
j_est = oneLocusJacquard(x, ind1=5, ind2=6, Nsim=Nsim)
# Exact: c(2,1,4,1,4,1,7,10,2)/32
# With the "identity" package:
# }
# NOT RUN {
j_exact = jacquard(x, 5:6)
# }
Run the code above in your browser using DataLab