R/p.WR.r

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

Defines functions p.WR

Documented in p.WR

#' @export

p.WR <- function(N, m, pk){
p <- rep(0,N)
I <- nk(N,m)
N <- dim(I)[1]
for(i in 1:N){
ni <- c(I[i,])
p[i] <- dmultinom(ni, prob=pk)
}
p
}