R/up_joint.R
up_maxent_jip.RdComputes exact joint inclusion probabilities for Conditional Poisson Sampling (CPS), also known as Maximum Entropy sampling.
up_maxent_jip(pik, eps = 1e-06)A symmetric N×N matrix of joint inclusion probabilities.
Uses Aires' formula from Tillé (2006) Expression 5.20: $$\pi_{k\ell} = \frac{r_\ell \pi_k - r_k \pi_\ell}{r_\ell - r_k}$$ where \(r_k = \exp(\lambda_k)\).
Aires, N. (1999). Algorithms to find exact inclusion probabilities for conditional Poisson sampling. Methodology and Computing in Applied Probability, 4, 457-469.
Tillé, Y. (2006). Sampling Algorithms. Springer.
pik <- c(0.2, 0.3, 0.5)
pikl <- up_maxent_jip(pik)