data(freqsNLsgmplus)
# sample small db and make all pairwise comparisons
N <- 1e3
db <- sample.profiles(N=N,freqs=freqsNLsgmplus)
O <- ibs.pairwise.db(db)
E <- N*(N-1)/2*ibs.pairwise.pr(freqs1 = freqsNLsgmplus,freqs2 = freqsNLsgmplus)
O # observed
E # expected
Run the code above in your browser using DataLab