R/IkWR.r

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

Defines functions IkWR

Documented in IkWR

#' @export

IkWR <- function(N, m)
{
Q <- SupportWR(N, m, ID = FALSE)
I <- matrix(0, choose(N+m-1, m), N)
for (i in 1:m) {
for (j in 1:choose(N+m-1, m)) {
for (k in 1:N) {
if (Q[j, i] == k)
I[j, k] <- 1
}
}
}
I
}

Try the TeachingSampling package in your browser