R/Dose.Response.binary.R

Defines functions Dose.Response.binary

Documented in Dose.Response.binary

Dose.Response.binary <-
function(alpha, beta,pi,ci,fi){
epsilon=sum(ci*pi)
pmean=mean(pi)
n=(qnorm(1-alpha)*sqrt(sum(ci^2*pmean*(1-pmean)/fi))+qnorm(1-beta)*sqrt(sum(ci^2*pi*(1-pi)/fi)))^2/(epsilon^2)
}

Try the TrialSize package in your browser

Any scripts or data that you put into this service are public.

TrialSize documentation built on July 8, 2020, 7:19 p.m.