R/ext2Group.R

In weiliu123/PCLasso: A protein complex-based group lasso-Cox model for accurate prognosis and risk protein complex discovery

Defines functions ext2Group

Documented in ext2Group

ext2Group <-
function(x){
    x.Group <- rep(0, length = length(x))
    for(i in 1:length(x)){
        x.Group[i] <- unlist(strsplit(x[i], split = "[.]"))[1]
    }
    unique(x.Group)
}