sim(ngenes, true_mean1, conds, alpha = function(m) {rep(0.1, length(m))}, mean_DE = 0, sd_DE = 2, s0 = NULL, s0_mean = 2, s0_sd = 3, true_isDE_proportion = 0.3)
ng = 10000;
sim1 <- sim(ngenes=ng, conds=c("A","A","B","B"),
true_mean1=round(rexp(ng, rate=1/200)), alpha=function(m){1/(m+100)},
mean_DE=2, sd_DE=1, s0=runif(4, 0, 2) );
true_isDE <- sim1$true_isDE;
countsTable <- sim1$countsTable;
Run the code above in your browser using DataLab