R/Deltakl.r

Defines functions Deltakl

Documented in Deltakl

#' @export

Deltakl <- function(N, n, p){
Ind <- Ik(N,n)
P1 <- as.matrix(Pik(p, Ind))
Delta <-Pikl(N,n,p)-(t(P1)%*%P1)
return(Delta)
}

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.