Nothing
#' @export
VarHT<-function(y, N, n, p){
Ind <- Ik(N,n)
pi1 <- as.matrix(Pik(p, Ind))
pi2 <- Pikl(N,n,p)
Delta <- Deltakl(N,n,p)
y <- t(as.matrix(y))
ykylexp <- t(y/pi1)%*%(y/pi1)
A <- (Delta)*(ykylexp)
Var <- sum(A)
return(Var)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.