R/share_projects.R

In xia-lab/MetaboAnalystR3.0: An R Package for Comprehensive Analysis of Metabolomics Data

PrepareGeneList <- function(path, fileNm="datalist1"){
    data <- readRDS(file=paste0(path, fileNm));
    data <- as.data.frame(data$prot.mat);
    data <- cbind(rownames(data), data)
    colnames(data) <- c("#Entrez", "logFC")
    dest.file <- paste0(path, fileNm, ".txt")
    write.table(data, dest.file, append = FALSE, sep = "\t", row.names = FALSE, col.names = TRUE, quote = FALSE);
    return(dest.file);
}