log.HR = log(rep(c(1,2),c(9900,100)))   # log hazard ratio for each gene

v = rep(1,10000)           # variance of each gene

res = n.fdr.coxph(fdr = 0.1, pwr = 0.8,

logHR = log.HR, v = v, pi0.hat = “BH”)

res

## $n

## [1] 37

##

## $computed.avepow

## [1] 0.8139159

##

## $desired.avepow

## [1] 0.8

##

## $desired.fdr

## [1] 0.1

##

## $input.pi0

## [1] 0.99

##

## $alpha

## [1] 0.0008879023

##

## $n0

## [1] 36

##

## $n1

## [1] 37

##

## $n.its

## [1] 7

##

## $max.its

## [1] 50