R/getRow.R

In QCApro: Advanced Functionality for Performing and Evaluating Qualitative Comparative Analysis

`getRow` <- 
function(noflevels, row.no, zerobased=FALSE) {
    max.combs <- prod(noflevels)
    if (any(row.no > (max.combs - zerobased))) {
        cat("\n")
        stop("There cannot be more than ", max.combs, " rows.\n\n", call. = FALSE)
    }
    
    if (!zerobased) {row.no <- row.no - 1}
    
    mbase <- c(rev(cumprod(rev(noflevels))), 1)[-1]
    t(sapply(row.no, function(x) x %/% mbase) %% noflevels)
}