From a1cb82de8191dad50a34ef2261f46d5aa9593d7c Mon Sep 17 00:00:00 2001
From: aduvermy <arnaud.duvermy@ens-lyon.fr>
Date: Fri, 25 Mar 2022 15:53:12 +0000
Subject: [PATCH] update setup_cntsGene

---
 src/htrsim/setup_cntsGenerator.R | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/htrsim/setup_cntsGenerator.R b/src/htrsim/setup_cntsGenerator.R
index 39255b2..f8d9c0f 100644
--- a/src/htrsim/setup_cntsGenerator.R
+++ b/src/htrsim/setup_cntsGenerator.R
@@ -66,7 +66,6 @@ setup_countGener <- function(sample_names = "my_first_lib", n_rep = NULL , gene_
   ######### HANDLE EXCEPTION #######
   setup = handle_except(sample_names, n_rep , gene_names , gene_dispersion, n_genes)
   
-  
   ######## HANDLE TYPE MU ##########
   if(is.null(mu)) mu = .mu_generator # default function to generate mu
   
@@ -88,7 +87,7 @@ setup_countGener <- function(sample_names = "my_first_lib", n_rep = NULL , gene_
     ######## BUILD AN INPUT DTF FOR count_generator ############
     nBinom_params <- purrr::map2(.x= setup$samples, .y = setup$rep, 
                                  ~(list(name=.x, #sample_name
-                                        n_replicates = .y, # random int between 1 & max_N_replicates 
+                                        n_replicates = .y, # number replicates
                                         name_gene = setup$genes,  # gene_name
                                         mu = mu.dtf %>% dplyr::select(all_of(.x)) %>% unlist() ,  #mu(ij)
                                         alpha = setup$alpha))) %>%  # alpha(i)
-- 
GitLab