From c92da733716a6764fd71654e8fe98d1736e0e79d Mon Sep 17 00:00:00 2001
From: Laurent Modolo <laurent.modolo@ens-lyon.fr>
Date: Mon, 12 Jun 2023 09:32:39 +0200
Subject: [PATCH] kmerclust.R: fix numeric convertion

---
 src/bin/kmerclust.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/bin/kmerclust.R b/src/bin/kmerclust.R
index 201bd0b..fdfc4f9 100644
--- a/src/bin/kmerclust.R
+++ b/src/bin/kmerclust.R
@@ -1,5 +1,6 @@
 library(kmerclust)
+args <- commandArgs(trailingOnly = TRUE)
 print(args)
 load(file = paste0(args[1], ".Rdata"))
-res <- compare_models(count, nboot = args[2] * 2, bootsize = nrow(count), core = as.numeric(args[2]))
+res <- compare_models(count, nboot = as.numeirc(args[2]) * 2, bootsize = nrow(count), core = as.numeric(args[2]))
 save(res, file = paste0(args[1], "_boot_", args[3], ".Rdata"))
-- 
GitLab