R/vector2matrix.R

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

vector2matrix <- function(betav, variant, 
        J) {
        betam <- NULL
        index <- 1
        for (k in seq_along(variant)) {
            if (variant[k]) {
                betatemp <- betav[index:(index + 
                    J - 1)]
                index <- index + J
            } else {
                betatemp <- rep(betav[index], 
                    J)
                index <- index + 1
            }
            betam <- rbind(betam, betatemp)
        }
        return(betam)
}