# NOT RUN {
PowerBayesian(
design = "design-1",
sample_size = 100,
response_prob = c(0.5, 0.9, 0.3, 0.7, 0.5, 0.8),
stage_one_trt_one_response_prob = 0.7,
stage_one_trt_two_response_prob = 0.5,
type="log-OR",
threshold=0.2
)
PowerBayesian(
design = "general",
sample_size = 250,
response_prob = c(0.5, 0.9, 0.7, 0.2, 0.3, 0.8, 0.4, 0.7),
stage_one_trt_one_response_prob = 0.7,
stage_one_trt_two_response_prob = 0.5,
type="log-OR",
threshold=0.2
)
# }
Run the code above in your browser using DataLab