R/Ik.r

Defines functions Ik

Documented in Ik

#' @export

Ik <- function(N,n){
Q <- Support(N,n,ID=FALSE)
I <- matrix(0,choose(N,n),N)
for(i in 1:n){
for(j in 1:choose(N,n)){
for(k in 1:N){
if (Q[j,i]==k)
I[j,k] <- 1
}
}
}
I
}

Try the TeachingSampling package in your browser

Any scripts or data that you put into this service are public.

TeachingSampling documentation built on April 22, 2020, 1:05 a.m.