Nothing
#' @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)
}
}
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.