# NOT RUN {
library(pracma)
# Section 4.1 in Lachin (2008)
# estimate number of sets
N = powerConLogistic.con(N = NULL,
power = 0.85,
OR = 1.39,
sigma = 1,
nD = 1,
nH = 2,
R2 = 0,
alpha = 0.05,
nTests = 1)
print(ceiling(N)) # 125
# estimate power
power = powerConLogistic.con(N = 125,
power = NULL,
OR = 1.39,
sigma = 1,
nD = 1,
nH = 2,
R2 = 0,
alpha = 0.05,
nTests = 1)
print(power) # 0.85
# estimate OR
OR = powerConLogistic.con(N = 125,
power = 0.85,
OR = NULL,
sigma = 1,
nD = 1,
nH = 2,
R2 = 0,
alpha = 0.05,
nTests = 1)
print(OR) # 1.39
# }
Run the code above in your browser using DataLab