Update Figure_5b.R

Script/Figure_5b.R

@@ -8,7 +8,7 @@ library(pheatmap)
 library(Seurat)
 
 # Loads the GSEA results from an RDS file
-gsea_res <- readRDS("/beegfs/scratch/ric.gregori/ric.gregori/Infertility/object/gsea_intracluster_OAT_NOA_vs_FER.rds")
+gsea_res <- readRDS("gsea_intracluster_OAT_NOA_vs_FER.rds")
 
 # Removes comparisons between NOA and OAT
 index<- c(3, 6 ,9 ,12, 15, 18, 21, 24, 27)
@@ -162,4 +162,4 @@ gsea_tile_plot <-ggplot(data = total_cast_melt, mapping = aes(x = cluster, y = I
                        low='#005295',high='#770000', mid = 'white') # +
 
 # Save the plot to a file
-ggsave(filename = "GSEA_tile_plot.png", width = 7, height = 6, plot =gsea_tile_plot)
\ No newline at end of file
+ggsave(filename = "GSEA_tile_plot.png", width = 7, height = 6, plot =gsea_tile_plot)