R/OneSide.fixEffect.R

Defines functions OneSide.fixEffect

Documented in OneSide.fixEffect

OneSide.fixEffect <-
function(m,m1,delta,a1,r1,fdr){

a2=1-a1
alpha_star=r1*fdr/((m-m1)*(1-fdr))
beta_star=1-r1/m1
n=floor((qnorm(1-alpha_star)+qnorm(1-beta_star))^2/(a1*a2*delta^2))+1
return(n)
}

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.