diff --git a/src/randomForest.R b/src/randomForest.R index 526b60215b02cfa64de9525d9bf83bfe133b98fb..ab1252210068d24d6bdb624b67864d456e752640 100644 --- a/src/randomForest.R +++ b/src/randomForest.R @@ -18,10 +18,8 @@ color_activated = "#404080" # expressed Genes expressedGenes <- list(unlist(read.csv(file = "src/database/filtered_genes_Lympho_Resting.csv")), - unlist(read.csv(file = "src/database/filtered_genes_Lympho_Activated.csv")), - unlist(read.csv(file = "src/database/filtered_genes_Macro_Resting.csv")), - unlist(read.csv(file = "src/database/filtered_genes_Macro_Activated.csv"))) -names(expressedGenes) <- c("Lympho_Resting", "Lympho_Activated", "Macro_Resting", "Macro_Activated") + unlist(read.csv(file = "src/database/filtered_genes_Lympho_Activated.csv"))) +names(expressedGenes) <- c("Lympho_Resting", "Lympho_Activated") # funtions ---------------------------------------------------------------- plotImp <- function(model, model_name) {