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