R/base3rows.R

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

base3rows <- function(nofexo.facs) {
    multiplier <- 0
    gap <- NULL
    for (i in 2:nofexo.facs) {
        multiplier <- 3*multiplier + 1
        gap <- c(gap, multiplier, gap)
    }
    
    linejump <- (3^nofexo.facs + 1)/2
    rownums <- c(linejump, sapply(gap, function(jump) {
        linejump <<- linejump + jump + 2
        }))
    return(sort(c(rownums, rownums + 1)))
}