View source: R/compute_nb_sim.R
nb_sim_fn | R Documentation |
Computing negative binomial simulations results
nb_sim_fn( n = 250, n_t = 5, beta = 2, nGenes = 1000, re_sd = 1, gene_sd = 1, type )
## Not run: for (n in c(50,100, 150)){ standard.l <- list() betas <- seq(-2, 2, length = 11) stdl.l <- list() ind <- 0 for (i in 1:11){ ind <- ind + 1 if (betas[i] == 0){ gsd <- rsd <- 0 }else{ gsd <- rsd <- 1 } standard.sim <- nb_sim_fn(type = 'standard', nGenes = 100, n = n, beta = betas[i], re_sd = rsd, gene_sd = gsd, n_t = 5) stdl.l[[ind]] <- c(standard.sim, beta = betas[i]) } standard.l <- do.call(rbind, stdl.l) } ## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.