kmerclust_clust.R: fix params variable

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(