R/Vaccine.ELDI.R

Defines functions Vaccine.ELDI

Documented in Vaccine.ELDI

Vaccine.ELDI <-
function(alpha,beta,theta0,theta,pt,pc){
#theta=pt/(pt+pc)
n=(qnorm(1-alpha)*sqrt(theta0*(1-theta0))+qnorm(1-beta)*sqrt(theta*(1-theta)))^2/((pt+pc)*(theta-theta0)^2)
}

Try the TrialSize package in your browser

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

TrialSize documentation built on May 30, 2017, 7:18 a.m.