diff --git a/src/htrsim/setup_cntsGenerator.R b/src/htrsim/setup_cntsGenerator.R index 39255b2fe21b9852cfb3e77b4847b7c167cc862c..f8d9c0ff3496106bfd4cba3b18bc92d7c83fe74a 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)