powered by
region.acceptance
region.power(region, p.1)
mp<-region.acceptance(hypo.test="minP", p.0=c(0.001, 0.004), size=c(1000, 1000), alpha=0.5) region.power(mp, p.1=c(0.001, 0.01))
Run the code above in your browser using DataLab