R/matrix2vector.R

In isglobal-brge/CNVassoc: Association analysis of CNVs and imputed SNPs incorporating uncertainty

matrix2vector <- function(betam, variant) {
        betav <- NULL
        for (k in seq_len(nrow(betam))) {
            if (variant[k]) {
                betav <- c(betav, betam[k, ])
            } else {
                betav <- c(betav, betam[k, 1])
            }
        }
        return(betav)
}