R/OneSampleMean.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 OneSampleMean.Equivalence

Documented in OneSampleMean.Equivalence

OneSampleMean.Equivalence <-
function(alpha,beta,sigma,margin,delta){
    if (margin==0) n<-(qnorm(1-alpha)+qnorm(1-beta/2))^2*sigma^2/delta^2
    else n<-(qnorm(1-alpha)+qnorm(1-beta))^2*sigma^2/(delta-abs(margin))^2
    return(n)
}

Try the TrialSize package in your browser