From abf17f64a963bb4ca1bff693584796c77f168a77 Mon Sep 17 00:00:00 2001
From: Laurent Modolo <laurent.modolo@ens-lyon.fr>
Date: Thu, 9 Nov 2023 16:12:32 +0100
Subject: [PATCH] kmerclust_clust.R: fix params variable
---
src/bin/kmerclust_clust.R | 10 ----------
1 file changed, 10 deletions(-)
diff --git a/src/bin/kmerclust_clust.R b/src/bin/kmerclust_clust.R
index 346e6a8..c115302 100644
--- a/src/bin/kmerclust_clust.R
+++ b/src/bin/kmerclust_clust.R
@@ -5,16 +5,6 @@ print(args)
load(file = paste0(args[1], ".Rdata"))
-params = list(
- A = list(kappa = 0.4, l1 = mean(count$count_m), l2 = mean(count$count_m), l3 = mean(count$count_m)),
-)
-if (args[2] %in% c("XY", "XO")) {
- params$X <- list(kappa = 0.3, l1 = 1, l2 = mean(count$count_m), l3 = mean(count$count_m))
-}
-if (args[2] == "XY") {
- params$Y <- list(kappa = 0.3, l1 = mean(count$count_m), l2 = 1, l3 = mean(count$count_m))
-}
-
res <- count %>%
dplyr::select(count_m, count_f) %>%
mutate(
--
GitLab