R/completeMat.R

In alexsanchezpla/goProfiles: goProfiles: an R package for the statistical analysis of functional profiles

`completeMat` <-
function(i1, i2, mat, ncateg) {
        resList <- lapply(i1:i2, expandCol, mat, ncateg)
        colNames <- unlist(lapply(resList, colnames))
        result <- matrix(unlist(resList),nrow=ncateg)
        colnames(result) <- colNames
        return(result)
}