R/Perms.R

In LogicForest: Logic Forest

#' Internal Logic Forest Functions
#'
#' This function is called by \code{TTab}. It is not intended to be used independently of this function.
#' @returns No return value, called for side effects
#' @export
#' @keywords internal


Perms<-function(n)
{
  mat<-matrix(0, nrow=2^n, ncol=n)
  for(i in 1:n)
  {
    mat[,i]<-rep(0:1, times=2^(i-1), each=2^(n-i))
  }
  mat
}