R/add_fileID_to_clusterID.R

In cytolab/cytoMEM: Marker Enrichment Modeling (MEM)

addfileID <- function(exp_data, names) {
    # Add file ID to pre-existing cluster ID column
    filenum <- as.numeric(names)
    fileID <- rep.int(filenum, nrow(exp_data))
    clusterID <- exp_data[, ncol(exp_data)]
    cluster <- as.numeric(paste(clusterID, ".", fileID, sep <- ""))

    newMatrix <- cbind(exp_data[,-ncol(exp_data)], cluster)

    return(newMatrix)
}