diff visualize_pore_diameter_aqp.R @ 10:afd0260e676f draft

"planemo upload for repository https://github.com/mesocentre-clermont-auvergne/aubi_piaf commit 3111e03da3d8644ceaf94e9796f6c4206d3fe440-dirty"

--- a/visualize_pore_diameter_aqp.R	Wed Jun 01 10:10:27 2022 +0000
+++ b/visualize_pore_diameter_aqp.R	Tue Jun 07 12:04:45 2022 +0000
@@ -102,7 +102,7 @@
   group_all <- c("time", "aqp", "protomer")
   color_all <- "protomer"
   wrap_all <- c("aqp", "protomer")
-  title_all <- "Average distance ArR-ArR by protomer anq AQP"
+  title_all <- "Average distance ArR-ArR by protomer and AQP"
   g_all_distribution <- create_ggplot(tibble_sort_mean_long, tibble_sort_std_long, group_all, color_all, wrap_all, title_all)
   ggsave("Distance_distribution_on_all_protomers.png", g_all_distribution, width = 40, height = 20, units = "cm")
   list_ggplot[[3]] <- g_all_distribution
@@ -110,4 +110,4 @@
 
 if (opt$pdf == TRUE) {
   ggexport(list_ggplot, filename = "all_graphics_distribution.pdf", width = 18, heigh = 18)
-}
+}
\ No newline at end of file