# NOT RUN {
# }
# NOT RUN {
for (n in c(50,100,150)) {
betas <- seq(-2, 2, length = 11)
standard.l <- list()
for (i in 1:11) {
standard.sim <- nonlin_sim_fn(type = 'standard',
nGenes = 100,
n = n,
beta = betas[i],
n_t = 5,
re_sd = 1)
standard.l[[as.character(betas[i])]] <- standard.sim
}
}
# }
# NOT RUN {
# }
# NOT RUN {
for (n in c(50,100,150)) {
betas <- seq(-2, 2, length = 11)
standard.l <- list()
for (i in 1:11) {
standard.sim <- nonlin_sim_fn(type = 'standard',
nGenes = 100,
n = n,
beta = betas[i],
n_t = 5,
re_sd = 1)
standard.l[[as.character(betas[i])]] <- standard.sim
}
}
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab