R/RelativeRisk.Equality.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 RelativeRisk.Equality

Documented in RelativeRisk.Equality

RelativeRisk.Equality <-
function(alpha,beta,or,k,pt,pc){
n.c<-(qnorm(1-alpha/2)+qnorm(1-beta))^2*(1/(k*pt*(1-pt))+1/(pc*(1-pc)))/(log(or))^2
n.c
}

Try the TrialSize package in your browser