R/TwoSampleMean.Equivalence.R

In TrialSize: R Functions for Chapter 3,4,6,7,9,10,11,12,14,15 of Sample Size Calculation in Clinical Research

Defines functions TwoSampleMean.Equivalence

Documented in TwoSampleMean.Equivalence

TwoSampleMean.Equivalence <-
function(alpha,beta,sigma,k,delta,margin){
    n2<-(qnorm(1-alpha)+qnorm(1-beta/2))^2*sigma^2*(1+1/k)/(delta-abs(margin))^2
    n2
    n1<-k*n2
    return(n1)
}

Try the TrialSize package in your browser