Study costs: Replicate seems to be cheaper [Regulatives / Guidelines]

posted by Helmut Homepage – Vienna, Austria, 2017-03-21 15:50 (3023 d 19:13 ago) – Posting: # 17176
Views: 24,623

Hi Dan,

I agree with VStus.

❝ For your calculation please keep in mind: the more study periods you have the higher the risk of drop outs.


As I wrote above:

❝ ❝ I would not be worried about the higher chance of dropouts in the replicate study. The impact on power is low (unless the drug is nasty and dropouts are caused by AEs).


Try:

library(PowerTOST)
CV  <- 0.31
dor <- 5 # dropout-rate (in each washout) in percent
des <- "2x2x2"
res <- sampleN.TOST(CV=0.31, design=des, print=FALSE)
n   <- res[["Sample size"]]
pwr <- res[["Achieved power"]]
wo  <- as.integer(substr(des, nchar(des), nchar(des)))-1
el  <- n # eligible subjects
for (j in 1:wo) {
  el <- el*(1-dor/100)
}
cat("Study started with", n, "subjects (expected power",
    sprintf("%.1f%%).", 100*pwr),
    "\nStudy ended with", as.integer(el), "eligible subjects (expected power",
    sprintf("%.1f%%).", 100*power.TOST(CV=CV, design=des, n=el)), "\n")
# Study started with 42 subjects (expected power 81.1%).
# Study ended with 39 eligible subjects (expected power 79.2%).

des <- "2x2x4"
res <- sampleN.TOST(CV=0.31, design=des, print=FALSE)
n   <- res[["Sample size"]]
pwr <- res[["Achieved power"]]
wo  <- as.integer(substr(des, nchar(des), nchar(des)))-1
el  <- n
for (j in 1:wo) {
  el <- el*(1-dor/100)
}
cat("Study started with", n, "subjects (expected power",
    sprintf("%.1f%%).", 100*pwr),
    "\nStudy ended with", as.integer(el), "eligible subjects (expected power",
    sprintf("%.1f%%).", 100*power.TOST(CV=CV, design=des, n=el)), "\n")
# Study started with 22 subjects (expected power 83.3%).
# Study ended with 18 eligible subjects (expected power 75.1%).

Does it really hurt?

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
23,425 posts in 4,928 threads, 1,680 registered users;
97 visitors (0 registered, 97 guests [including 46 identified bots]).
Forum time: 12:03 CEST (Europe/Vienna)

Fools with Tools Are Still Fools!    Anonymous

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