R/editcolnames.R

In metabolomics: Analysis of Metabolomics Data

Defines functions editcolnames

Documented in editcolnames

editcolnames <- function(y)
{
    colnames(y) <- if (
        length(
            grep("^X[\\d]", colnames(y), perl=TRUE)
        ) != 0
    ) {
        gsub("^X([\\d].*)", "\\1", colnames(y), perl=TRUE)
    } else {
        colnames(y)
    }
    
    return(y)
}

Try the metabolomics package in your browser