R/Deltakl.r

#' @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)
}
damarals/TeachingSampling documentation built on June 2, 2019, 9:06 p.m.