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

## $n

## [1] 45

##

## $computed.avepow

## [1] 0.810428

##

## $desired.avepow

## [1] 0.8

##

## $desired.fdr

## [1] 0.1

##

## $input.pi0

## [1] 0.99

##

## $alpha

## [1] 0.0008958549

##

## $n0

## [1] 44

##

## $n1

## [1] 45

##

## $n.its

## [1] 8

##

## $max.its

## [1] 50