theta = log(rep(c(1,2.7),c(9900,100)))   # log fold change for each gene

mu = rep(5,10000)         # read depth

sig = rep(0.6,10000)          # coefficient of variation

res = n.fdr.negbin(fdr = 0.1, pwr = 0.8, log.fc = theta,

mu = mu, sig = sig, pi0.hat = “BH”)

res

## $n

## [1] 20

##

## $computed.avepow

## [1] 0.8087842

##

## $desired.avepow

## [1] 0.8

##

## $desired.fdr

## [1] 0.1

##

## $input.pi0

## [1] 0.99

##

## $alpha

## [1] 0.0008879023

##

## $n0

## [1] 19

##

## $n1

## [1] 20

##

## $n.its

## [1] 6

##

## $max.its

## [1] 50