theta = rep(c(0.8,0.5), c(500,9500))     # 9500 null; 500 non-null

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

## $n

## [1] 35

##

## $computed.avepow

## [1] 0.815116

##

## $desired.avepow

## [1] 0.8

##

## $desired.fdr

## [1] 0.1

##

## $input.pi0

## [1] 0.95

##

## $alpha

## [1] 0.004624029

##

## $n0

## [1] 34

##

## $n1

## [1] 35

##

## $n.its

## [1] 8

##

## $max.its

## [1] 50