# NOT RUN {
n <- 10
phi <- rphi(n, seed=1)
p <- invert_exchangeable_matrix(n, phi)
I1 <- build_exchangeable_matrix(n, phi) %*% build_exchangeable_matrix(n, p)
range(I1 - diag(n*(n-1))) # it works
# }
Run the code above in your browser using DataLab