data(freqsNLsgmplus)
# sample small db, make all pairwise comparisons and compute the expected number
N <- 1e3
db <- sample.profiles(N=N,freqs=freqsNLsgmplus)
O <- ibs.pairwise.db(db)
E <- ibs.pairwise.db.exp(subpops = list(freqsNLsgmplus),N = N)
O # observed
E # expected
Run the code above in your browser using DataLab