R/sortMatrix.R

In AlrikThiem/QCApro: Professional Functionality for Performing and Evaluating Qualitative Comparative Analysis

`sortMatrix` <- 
function(submatrix) {
    if (all(is.na(submatrix)) | all(!is.na(submatrix)) | !is.matrix(submatrix)) {
        submatrix
        }
    else {
        submatrix <- submatrix[order(!is.na(submatrix[, ncol(submatrix)])), ]
        lastcol <- ncol(submatrix)
        nas <- is.na(submatrix[, lastcol])
        if (any(nas)) {
            submatrix[which(!nas), -lastcol] <- Recall(submatrix[which(!nas), -lastcol])
            submatrix[which(nas) , -lastcol] <- Recall(submatrix[which(nas) , -lastcol])
            }
        submatrix
        }
    }