find.sample.size(alpha = adj.p, pwr = 0.8, avepow.func = average.power.signtest, p = theta)

## $n

## [1] 45

##

## $computed.avepow

## [1] 0.8095842

##

## $desired.avepow

## [1] 0.8

##

## $alpha

## [1] 0.0008879023

##

## $n.its

## [1] 8

##

## $max.its

## [1] 50

##

## $n0

## [1] 44

##

## $n1

## [1] 45