R/compute.combinations.R

In stuart: Subtests Using Algorithmic Rummaging Techniques

compute.combinations <-
function(
  short.factor.structure, capacity, use.order
) { #begin function

  comb <- matrix(c(sapply(short.factor.structure,length),unlist(capacity)),ncol=2)
  if (use.order) {
    combinations <- prod(factorial(comb[,1])/(factorial((comb[,1]-comb[,2]))))
  } else {
    combinations <- prod(choose(comb[,1],comb[,2]))
  }
  
  return(combinations)

}