R/getProbsRegions.i.R

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

getProbsRegions.i <- function(i, blocks, 
        probs, annotation, nclass) {
        probes <- dimnames(probs)[[1]]
        cond <- annotation$kb >= blocks[i, 2] & 
            annotation$kb <= blocks[i, 3] & annotation$Chrom == 
            blocks[i, 1]
        selec <- annotation[cond, 1]
        ans <- probs[probes %in% selec, ]
        p <- ans[1, -seq_len(4)]
        out <- matrix(as.numeric(p), ncol = nclass, 
            byrow = TRUE)
        out
}