diff --git a/src/bin/kmerclust_plot.R b/src/bin/kmerclust_plot.R index 9f7bca8e8fbd19f9f2a02ddd2fcb8fb7d2378f64..8f092d2ed911758de0b19ac02d71bcd4c9429aed 100644 --- a/src/bin/kmerclust_plot.R +++ b/src/bin/kmerclust_plot.R @@ -3,7 +3,6 @@ library(ggplot2) args <- commandArgs(trailingOnly = TRUE) print(args) -load(file = paste0(args[1], ".Rdata")) load(file = paste0(args[1], "_boot.Rdata")) print(res) @@ -17,6 +16,9 @@ res %>% geom_violin() + theme_bw() ggsave(paste0(args[1], "_WSS_BSS.pdf")) +rm(res) + +load(file = paste0(args[1], ".Rdata")) count %>% ggplot(aes(x = count_m, y = count_f)) + theme_bw()