R/Pik.r

In psirusteam/TeachingSampling: Selection of Samples and Parameter Estimation in Finite Population

Defines functions Pik

Documented in Pik

#' @export

Pik <- function(p, Ind){
multip <- p*Ind
pik <- colSums(multip)
t(pik)
}