MNNpair: Gene pairs

In Fang0828/SCMarker: What the package does (short line)

Usage

MNNpair(k, MNNgene, geneName)

Arguments

k
MNNgene
geneName

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (k, MNNgene, geneName) 
{
    subgene = MNNgene[[k]]
    index = match(subgene, geneName)
    PP <- function(i, index, MNNgene, k, geneName) {
        if (geneName[k] %in% MNNgene[[index[i]]]) 
            return(geneName[index[i]])
    }
    if (length(index[!is.na(index)]) > 0) {
        a = do.call(cbind, lapply(1:length(index), PP, index = index, 
            MNNgene = MNNgene, k = k, geneName = geneName))
        if (!is.null(a)) {
            return(a)
        }
    }
  }

Fang0828/SCMarker documentation built on May 13, 2019, 12:51 p.m.