Computes the first-order inclusion probabilities from a vector of positive numbers (for a probability proportional-to-size sampling design). This function is borrowed from the package "sampling" by Alina Matei and Yves Tillé. Licence (GPL >=2).
if (FALSE) {
############## Example ############# a vector of positive numbersa=1:20# computation of the inclusion probabilities for a sample size n=12pik=probabilities(a,12)
pik
}