theta = rep(c(0.8,0.5), c(100,9900))     # 9900 null; 100 non-null

res = n.fdr.signtest(fdr = 0.1, pwr = 0.8, p = theta, pi0.hat = “BH”)

res

## $n

## [1] 45

##

## $computed.avepow

## [1] 0.8095842

##

## $desired.avepow

## [1] 0.8

##

## $desired.fdr

## [1] 0.1

##

## $input.pi0

## [1] 0.99

##

## $alpha

## [1] 0.0008879023

##

## $n0

## [1] 44

##

## $n1

## [1] 45

##

## $n.its

## [1] 8

##

## $max.its

## [1] 50