Two-stage design ❌ RSABE [Design Issues]

posted by Helmut Homepage – Vienna, Austria, 2021-05-14 22:14 (569 d 19:19 ago) – Posting: # 22355
Views: 1,416

Hi Achievwin,

sorry. See there.

If you are – very – courageous, you can opt for Bonferroni (α = 0.025). All methods I know (for 2×2×2 crossover and parallel designs) require less adjustments, i.e., a higher α. No idea whether that’s acceptable. Ask the OGD.

library(PowerTOST)
theta0 <- 0.90
target <- 0.80
design <- "2x2x4"
CV     <- seq(0.3, 0.8, 0.025)
res    <- data.frame(CV = sprintf("%.1f%%", 100*CV))
for (j in 1:nrow(res)) {
  # sample size for α = 0.05
  res$n1[j]  <- sampleN.RSABE(alpha = 0.05, CV = CV[j],
                              theta0 = theta0, targetpower = target,
                              design = design, details = FALSE,
                              print = FALSE)[["Sample size"]]
  # sample size for α = 0.025
  res$n2[j] <- sampleN.RSABE(alpha = 0.025, CV = CV[j],
                             theta0 = theta0, targetpower = target,
                             design = design, details = FALSE,
                             print = FALSE)[["Sample size"]]
}
res$penalty <- sprintf("%+.1f%%", 100*(res$n2-res$n1)/res$n1)
names(res)[2:3] <- c("n (alpha=0.05)", "n (alpha=0.025)")
print(res, row.names = FALSE)

    CV n (alpha=0.05) n (alpha=0.025) penalty
 30.0%             32              40  +25.0%
 32.5%             30              38  +26.7%
 35.0%             28              34  +21.4%
 37.5%             26              32  +23.1%
 40.0%             24              30  +25.0%
 42.5%             24              30  +25.0%
 45.0%             24              28  +16.7%
 47.5%             22              28  +27.3%
 50.0%             22              28  +27.3%
 52.5%             22              26  +18.2%
 55.0%             22              26  +18.2%
 57.5%             22              26  +18.2%
 60.0%             24              26   +8.3%
 62.5%             24              26   +8.3%
 65.0%             24              28  +16.7%
 67.5%             24              28  +16.7%
 70.0%             26              28   +7.7%
 72.5%             26              28   +7.7%
 75.0%             26              28   +7.7%
 77.5%             28              30   +7.1%
 80.0%             28              30   +7.1%


Dif-tor heh smusma 🖖🏼 Довге життя Україна! [image]
Helmut Schütz
[image]

The quality of responses received is directly proportional to the quality of the question asked. 🚮
Science Quotes

Complete thread:

UA Flag
Activity
 Admin contact
22,428 posts in 4,694 threads, 1,598 registered users;
14 visitors (0 registered, 14 guests [including 8 identified bots]).
Forum time: 16:34 CET (Europe/Vienna)

Statistics is the art of never having to say you’re wrong.
Variance is what any two statisticians are at.    C.J. Bradfield

The Bioequivalence and Bioavailability Forum is hosted by
BEBAC Ing. Helmut Schütz
HTML5