View source: R/compute_nb_sim.R
Computing negative binomial simulations results
1 2 3 4 5 6 7 8 9 |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | ## 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.