R/SupportRS.r

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

Defines functions SupportRS

Documented in SupportRS

#' @export

SupportRS <- function(N, ID=FALSE){
sam <- matrix(NA, ncol=N, nrow=1)
for(k in 1:N){
sam<-rbind(sam, cbind(Support(N,k),matrix(NA,ncol=N-k, nrow=choose(N,k))))
}
if (is.logical(ID) == TRUE){
return(sam)
}
else{
sam<-matrix(ID[SupportRS(N)],nrow=2^N)
return(sam)
}
}