R/ext2GeneID.R

Defines functions ext2GeneID

ext2GeneID <- function(x, split = "_"){
    x.GeneSymbol <- rep(0, length = length(x))
    for(i in 1:length(x)){
        x.GeneSymbol[i] <- unlist(strsplit(x[i], split = split))[2]
    }
    unique(x.GeneSymbol)  # 去除重复
}

Try the PCLassoReg package in your browser

Any scripts or data that you put into this service are public.

PCLassoReg documentation built on Oct. 26, 2021, 5:07 p.m.