diff --git a/src/bin/kmerclust.R b/src/bin/kmerclust.R index 29dba78da2b55b05b2cf562f88f8581c5fcad2b3..201bd0b531df86f9c14a4bb69f2c5e4d784de211 100644 --- a/src/bin/kmerclust.R +++ b/src/bin/kmerclust.R @@ -1,6 +1,5 @@ library(kmerclust) +print(args) load(file = paste0(args[1], ".Rdata")) - res <- compare_models(count, nboot = args[2] * 2, bootsize = nrow(count), core = as.numeric(args[2])) - save(res, file = paste0(args[1], "_boot_", args[3], ".Rdata")) diff --git a/src/bin/kmerclust_merge.R b/src/bin/kmerclust_merge.R index c5e30f80969887edc512b4ba668771d81ffbfffc..cadf100beea16e7fcb4f034dea5e4efa18129c0f 100644 --- a/src/bin/kmerclust_merge.R +++ b/src/bin/kmerclust_merge.R @@ -1,5 +1,7 @@ library(kmerclust) +args <- commandArgs(trailingOnly = TRUE) +print(args) res_files <- list.files(pattern = "Rdata$") res_total <- NULL for (res_file in res_files) {