slight error and plot size adjustments

sgosline · sgosline · commit 0aab4abbd506 · 2025-06-04T16:21:21.000-07:00
diff --git a/manuscript/figure3CellLinePlots.Rmd b/manuscript/figure3CellLinePlots.Rmd
@@ -63,7 +63,7 @@ We wonder if the dataset size affects the predictive power.
 
 plot <- calcSourceStatistics('scc',ccdres)
 
-ggsave('cellLineSamplePerformanceCorrelation.pdf', plot,height=12)
+ggsave('cellLineSamplePerformanceCorrelation.pdf', plot,height=12,width=5)
 
 ```
 
diff --git a/manuscript/figure4ExVivoResults.Rmd b/manuscript/figure4ExVivoResults.Rmd
@@ -34,8 +34,12 @@ The data has been uploaded by natasha and can be downloaded as follows.
 
 
 ```{r}
+metrics <- c('scc','pcc')
 exres = lapply(metrics,function(x) {
-  ridgelineMetricPlots(x, ecdres,'cellline')
+  res<-ridgelineMetricPlots(x, ecdres,'cellline')
+  cowplot::plot_grid(res$src,res$trg)
+  ggsave(paste0('exvivo',x,'_ridglines.pdf'),height = 8,width = 10)
+  return(res$src)
   })
 
 print(exres)
@@ -49,7 +53,7 @@ Now we can confirm that the datasets follow the same pattern.
 plot<-calcSourceStatistics('scc',ecdres)
 
 
-ggsave('exVivoSamplePerformanceCorrelation.pdf',plot, height=12)
+ggsave('exVivoSamplePerformanceCorrelation.pdf',plot, height=12,width=5)
 print(plot)
 
 ```
