Consider allowing JavaScript. Otherwise, you have to be proficient in reading since formulas will not be rendered. Furthermore, the table of contents in the left column for navigation will not be available and codefolding not supported. Sorry for the inconvenience.
Examples in this article were generated with 4.1.2 by the packages PowerTOST
,^{1} lattice
,^{2} and latticeExtra
.^{3}
See also a collection of other articles.
What is the purpose of a sensitivity analysis?
Since it is unlikely that we will observe exactly our assumed values in a study, we examine the effects on power for possible deviations from them in a sensitivity analysis. I strongly recommend to read the article about power analysis before proceeding.
Note that such a sensitivity analysis is prospective and must not be mixed up with retrospective methods (say, explore the impact of exluding ‘outliers’, analysis of subgroups, etc.).
Whereas in a power analysis by the functons pa.ABE()
and pa.scABE()
the impact of dropouts on power of a fixed sample size is explored, in the sensitivity analysis we work with a sample size adjusted for an anticipated dropoutrate. That means, we intend to dose more subjects in order to end with at least a number of eligible subjects giving the desired (target) power.
An advanced knowledge of R is required. To run the scripts at least version 1.4.3 (20161101) of PowerTOST
is required and 1.5.3 (20210118) suggested.^{4}
Any version of R would likely do, though the current release of PowerTOST
was only tested with version 4.0.5 (20210331) and later.
All scripts were run on a Xeon E31245v3 @ 3.40GHz (1/4 cores) 16GB RAM with 64 bit R 4.1.2 on Windows 7.
In order to calculate prospective power (and hence, estimate a sample size), we need five values:
1 – 2 are fixed by the agency,
3 is set by the sponsor (commonly to 0.80 – 0.90), and
4 – 5 are just (uncertain!) assumptions.
Since it is extremely unlikely that all assumptions will be exactly realized in a particular study, it is worthwhile to prospectively explore the impact of potential deviations from assumptions on power.
If values are ‘better’ than assumed (i.e., a lower CV, and/or a T/Rratio closer to unity, and/or a lower than anticipated dropoutrate) we will gain power. On the other hand, any change towards the ‘worse’ will negatively impact power.
“The number of subjects in a clinical trial should always be large enough to provide a reliable answer to the questions addressed. […]
The method by which the sample size is calculated should be given in the protocol, together with the estimates of any quantities used in the calculations (such as variances, mean values, response rates, event rates, difference to be detected). The basis of these estimates should also be given. It is important to investigate the sensitivity of the sample size estimate to a variety of deviations from these assumptions and this may be facilitated by providing a range of sample sizes appropriate for a reasonable range of deviations from assumptions.
Regrettably the ICH’s more recent addendum to the Guideline for GCP contains only an elastic clause:
“Reason for choice of sample size, including reflections on (or calculations of) the power of the trial and clinical justification.
IMHO, we should leave ‘reflections’ to poets and philosophers. Given, English is a foreign language for me but is the above a sentence at all?
Although we could perform a sensitivity analysis ‘by hand’, the following script supports numerous designs (see below) and most methods of PowerTOST
, namely
Only multiplicative models (\(\small{\log_{e}}\)transformed data) and for SABE strict homoscedasticity (\(\small{s_\textrm{wT}^2\equiv s_\textrm{wR}^2}\)) are supported. Allowing \(\small{s_\textrm{wT}^2\neq s_\textrm{wR}^2}\) (like in the SABEfunctions of PowerTOST
) would add a layer of complexity to the problem and currently I don’t see how that could be done with a reasonable amount of effort.
The defaults of the script are:
Argument  Default  Meaning 

alpha

0.05

Nominal level of the test 
target

0.80

Target (desired) power 
theta1

0.80

Lower BElimit in ABE and lower PEconstraint in SABE 
theta2

1.25

Upper BElimit in ABE and upper PEconstraint in SABE 
design

"2x2x2"

Simple crossover 
SABE

FALSE

ABE; TRUE for SABE

regulator

"EMA"

Only if SABE = TRUE ; "EMA" , "HC" , "GCC" , or "FDA"

ntid

FALSE

If set to TRUE , mandatory: SABE = TRUE , regulator = "FDA"

nsims

1e5

Only if SABE = TRUE

mesh

25

Resolution of the grid 
info

TRUE

Show messages and additional information 
progress

TRUE

Show progress bar; only if SABE = TRUE

contours

10

Number of contour lines 
width

6.5

Width of trellis.device 
height

6.5

Height of trellis.device 
lines

TRUE

Plot lines at assumed T/Rratio and CV 
point

FALSE

Draw point at assumed T/Rratio and CV 
The default of the assumed T/Rratio theta0
is
0.95
if SABE = FALSE
and
0.90
if SABE = TRUE
, and
0.975
if SABE = TRUE
& regulator = "FDA"
& ntid = TRUE
.
Based on that:
Argument  Default  Meaning 

theta0.lo

theta0 * 0.95

Lower theta0 of the grid (xaxis minimum)

theta0.hi

theta0 / 0.95

Upper theta0 of the grid (xaxis maximum)

CV.lo

CV * 0.8

Lower CV of the grid (yaxis minimum)

CV.hi

CV / 0.8

Upper CV of the grid (yaxis maximum)

These design
arguments are supported:
Argument  Explanation 

"parallel"

Two parallel groups (TR) 
"2x2" or "2x2x2"

Simple crossover (TRRT) 
"paired"

Paired means (TR or RT) 
"3x3"

Latin Square (ABCBCACAB) 
"3x6x3"

Williams’ design (ABCACBBACBCACABCBA) 
"4x4"

Latin Square (ABCDBCDACDABDABC) or any of the Williams’ designs (ADBCBACDCBDADCAB, ADCBBCDACABDDBAC, ACDBBDCACBADDABC, ACBDBADCCDABDBCA, ABDCBCADCDBADACB, ABCDBDACCADBDCBA) 
"2x2x3"

2sequence 3period full replicate designs (TRTRTR, TRRRTT) 
"2x2x4"

2sequence 4period full replicate designs (TRTRRTRT, TRRTRTTR, TTRRRRTT) 
"2x4x4"

4sequence 4period full replicate designs (TRTRRTRTTRRTRTTR, TRRTRTTRTTRRRRTT) 
"2x3x3"

3sequence 2period (partial) replicate design (TRRRTRRRT, TRRRTR) 
"2x4x2"

4sequence 2period full replicate design (TRRTTTRR); Balaam’s design 
"2x2x2r"

Liu’s 2×2×2 repeated crossover design 
Designs which can be assessed:
SABE = FALSE
) all designs.SABE = TRUE
) the designs "2x3x3"
, "2x2x4"
, and "2x2x3"
.SABE = TRUE, regulator = "FDA", ntid = TRUE
) only fully replicate designs "2x2x4"
and "2x2x3"
, where "2x2x4"
is the default.You must provide at least the assumed CV (CV
) and anticipated dropoutrate (do.rate
).
Note that the arguments (say, the assumed T/Rratio theta0
, the BElimits (theta1
, theta2
), the assumed coefficient of variation CV
, etc.) have to be given as ratios and not in percent.
The estimated sample size is the total number of subjects, which is always an even number (parallel design, 2×2×2 crossover) or a multiple of the number of sequences (replicate designs) – not subjects per group or sequence – like in some other software packages. Similarly, after adjusting for the anticipated dropoutrate, the number of to be dosed subjects will be rounded up to give equally sized groups (parallel design) and balanced sequences (2×2×2 crossover, replicate designs).
Sorry, the R script is lengthy (290 LOC, 29% input checking and error handling) and not the most easy one.^{7}
library(PowerTOST) # attach the
library(lattice) # required
library(latticeExtra) # libraries
balance < function(n, steps) {
# Round up to get equal groups / balanced sequences
# for a potentially unequal / unbalanced case.
n.b < steps * (n %/% steps + as.logical(n %% steps))
return(as.integer(n.b))
}
adjust.dropouts < function(n, do.rate, steps = 2) {
# To be dosed subjects which should result in n
# eligible subjects based n the anticipated droputrate.
n < as.integer(balance(n / (1  do.rate), steps = steps))
return(n)
}
power.TOST.vectorized < function(CVs, theta0s, ...) {
# Supportive function, since in power.TOST() either CV
# or theta0 can be vectorized (not both).
# Returns a matrix of power with rows theta0 and columns CV.
power < matrix(ncol = length(CVs), nrow = length(theta0s),
dimnames = list(c(paste0("theta0.", 1:length(theta0s))),
c(paste0("CV.", 1:length(CVs)))))
for (i in seq_along(CVs)) {
power[, i] < suppressMessages( # for unbalanced cases
power.TOST(CV = CVs[i], theta0 = theta0s, ...))
}
return(power)
}
power.SABE.vectorized < function(CVs, theta0s, regulator, ntid,
progress = TRUE, ...) {
# Supportive function, since power.scABEL() and power.RSABE()
# are not vectorized.
# Returns a matrix of power with rows theta0 and columns CV.
power < matrix(ncol = length(CVs), nrow = length(theta0s),
dimnames = list(c(paste0("theta0.", 1:length(theta0s))),
c(paste0("CV.", 1:length(CVs)))))
if (progress) pb < txtProgressBar(min = 0, max = 1,
char = "\u2588", style = 3)
i < 0
for (j in seq_along(theta0s)) {
for (k in seq_along(CVs)) {
i < i + 1
if (!regulator == "FDA") {
power[j, k] < suppressMessages( # for unbalanced cases
power.scABEL(CV = CVs[k], theta0 = theta0s[j],
regulator = regulator, ...))
} else {
if (!ntid) {
power[j, k] < suppressMessages( # for unbalanced cases
power.RSABE(CV = CVs[k], theta0 = theta0s[j],
regulator = regulator, ...))
} else {
power[j, k] < suppressMessages( # for unbalanced cases
power.NTIDFDA(CV = CVs[k], theta0 = theta0s[j], ...))
}
}
if (progress) {
setTxtProgressBar(pb, i / (length(theta0s) * length(CVs)))
}
}
}
if (progress) close(pb)
return(power)
}
sensitivity < function(alpha = 0.05, CV, CV.lo, CV.hi, theta0,
theta0.lo, theta0.hi = 1, do.rate,
target = 0.80, design = "2x2x2",
theta1, theta2, SABE = FALSE,
regulator = "EMA", ntid = FALSE, nsims = 1e5,
mesh = 25, info = TRUE, progress = TRUE,
plot = TRUE, width = 6.5, height = 6.5,
contours = 10, lines = TRUE,
point = FALSE) {
if (alpha <= 0  alpha > 0.5)
stop("alpha ", alpha, " does not make sense.")
if (missing(CV))
stop("CV must be given.")
if (length(CV) > 1)
stop("CV must be scalar (only homoscedasticity supported).")
if (missing(CV.lo))
CV.lo < CV * 0.8
if (missing(CV.hi))
CV.hi < CV / 0.8
if (missing(theta0)) {
if (!SABE) {
theta0 < 0.95
} else {
if (ntid) {
theta0 < 0.975
} else {
theta0 < 0.90
}
}
}
if (theta0 > 1)
stop("theta0 > 1 not implemented (",
"symmetrical in logscale).")
if (missing(theta1) & missing(theta2))
theta1 < 0.8
if (!missing(theta1) & missing(theta2))
theta2 < 1/theta1
if (missing(theta1) & !missing(theta2))
theta1 < 1/theta2
if (missing(theta0.lo))
theta0.lo < theta0 * 0.95
if (theta0.lo < theta1) {
message("theta0.lo ", theta0.lo,
" < theta1 does not make sense. ",
"Changed to theta1.")
theta0.lo < theta1
}
if (missing(theta0.hi))
theta0.hi < theta0 / 0.95
if (theta0.hi > theta2) {
message("theta0.hi ", theta0.lo,
" > theta2 does not make sense. ",
"Changed to theta2.")
theta0.hi < theta2
}
if (missing(do.rate))
stop("do.rate must be given.")
if (do.rate < 0)
stop("do.rate", do.rate, " does not make sense.")
if (target <= 0.5)
stop("Target ", target, " does not make sense. ",
"Toss a coin instead.")
if (target >= 1)
stop("Target ", target, " does not make sense.")
designs < known.designs()[, c(1:2, 5)]
des < which(design %in% designs$design)
if (des == 0)
stop("design '", design, "' unknown.")
steps < designs$steps[des]
if (SABE) {
if (!design %in% c("2x3x3", "2x2x4", "2x2x3"))
stop("design \"", design, "\" not implemented for SABE.")
if (!regulator %in% c("EMA", "HC", "GCC", "FDA"))
stop("regulator must be any of \"EMA\", \"HC\", ",
"\"GCC\", \"FDA\".")
if (regulator == "GCC" &
installed.packages()["PowerTOST", "Version"] < "1.5.3")
stop("At least 1.5.3 of PowerTOST required ",
"for regulator = \"GCC\".")
if (nsims < 1e5)
message("Use < 100,000 simulations only ",
"for a preliminary look.")
}
if (SABE & ntid & !regulator == "FDA") {
stop("For ntid regulator must be \"FDA\".")
}
if (SABE & ntid & regulator == "FDA" &
!design %in% c("2x2x4", "2x2x3")) {
stop("design must be \"2x2x4\" or \"2x2x3\".")
}
if (mesh < 10) {
message("Such a wide mesh is imprecise. Increased to 25.")
mesh < 25
}
CVs < unique(
sort(
c(CV,
seq(CV.lo, CV.hi, length.out = mesh))))
theta0s < unique(
sort(
c(theta0,
seq(theta0.lo, theta0.hi, length.out = mesh))))
if (!SABE) { # ABE
n < sampleN.TOST(alpha = alpha, CV = CV, theta0 = theta0,
theta1 = theta1, theta2 = theta2,
targetpower = target, design = design,
print = FALSE, details = FALSE)[["Sample size"]]
if (n < 12) n < 12 # acc. to guidelines
n.orig < n
} else { # SABE
if (!regulator == "FDA") { # ABEL (EMA, ..., Health Canada, GCC)
n < sampleN.scABEL(alpha = alpha, CV = CV, theta0 = theta0,
theta1 = theta1, theta2 = theta2,
targetpower = target, design = design,
regulator = regulator, nsims = nsims,
print = FALSE, details = FALSE)[["Sample size"]]
} else {
if (!ntid) { # RSABE (FDA, China)
n < sampleN.RSABE(alpha = alpha, CV = CV, theta0 = theta0,
theta1 = theta1, theta2 = theta2,
targetpower = target, design = design,
regulator = regulator, nsims = nsims,
print = FALSE, details = FALSE)[["Sample size"]]
if (n < 24) n < 24 # acc. to FDA
} else { # RSABE for NITD (FDA)
n < sampleN.NTIDFDA(alpha = alpha, CV = CV, theta0 = theta0,
theta1 = theta1, theta2 = theta2,
targetpower = target, design = design,
nsims = nsims, print = FALSE,
details = FALSE)[["Sample size"]]
# Note: No minimum sample size in the guidance. Correct?
}
}
n.orig < n
}
n < adjust.dropouts(n, do.rate, steps)
if (SABE & regulator == "EMA" & design == "2x2x3" &
as.integer(floor(n * (1  do.rate))) < 24) {
n < adjust.dropouts(24, do.rate, steps) # acc. to Q & A document
if (info) {
message("Increased sample size preventing < 12\n",
"eligible subjects in replicated Rsequence!")
}
}
ns < as.integer(n:n.orig) # down to expected
if (SABE & info) {
message("Preparing ", length(ns),
" panels for SABE: regulator = \"",
regulator, "\", design = \"", design, "\"")
}
grid < expand.grid(x = theta0s, y = CVs, z = NA,
n = as.factor(ns))
grid$n < factor(grid$n, levels = rev(levels(grid$n)))
for (j in seq_along(ns)) {
if (!SABE) {
grid$z[grid$n == ns[j]] < as.vector(
power.TOST.vectorized(
alpha = alpha, CV = CVs,
theta0 = theta0s, theta1 = theta1,
n = ns[j], design = design))
} else {
if (info) message(sprintf(" Panel %i (n = %i)", j, ns[j]))
grid$z[grid$n == ns[j]] < as.vector(
power.SABE.vectorized(
alpha = alpha, CV = CVs,
theta0 = theta0s, theta1 = theta1,
n = ns[j], design = design,
regulator = regulator,
ntid = ntid, nsims = nsims,
progress = progress))
}
}
res < data.frame(n = ns,
power = grid$z[grid$x == theta0 & grid$y == CV],
do.rate = abs(1  ns / n))
if (plot) {
custom < trellis.par.get()
custom$layout.widths$left.padding < 0.3
custom$layout.widths$right.padding < 1.85
custom$layout.heights$top.padding < 3
custom$layout.heights$bottom.padding < 0.8
trellis.par.set(custom)
trellis.device(device = windows, theme = custom,
width = width, height = height)
st < strip.custom(strip.names = TRUE, strip.levels = TRUE,
sep = " = ")
ct < length(pretty(grid$z, contours))
p1 < contourplot(z ~ x * y  n, data = grid,
as.table = TRUE, strip = st,
labels = list(cex = 0.85),
scales = list(alternating = c(3, 3)),
label.style = "align",
lwd = 2, col = "blue",
xlab = expression(italic(theta)[0]),
ylab = expression(italic(CV)), cuts = ct)
p2 < contourplot(z ~ x * y  n, data = grid,
as.table = TRUE, strip = st,
labels = FALSE, lwd = 0,
panel=function(...) {
if (lines) {
panel.lines(x = theta0s,
y = rep(CV, length(theta0s)),
col = "#CCCCCC80")
panel.lines(x = rep(theta0, length(CVs)),
y = CVs, col = "#CCCCCC80")
}
if (point) {
panel.points(x = theta0, y = CV, pch = 19,
col = "#AA101080", cex = 1.15)
}
}
)
fig < p1 + p2
plot(fig)
}
cat("Results for theta0 =", theta0, "and CV =",
CV, "\n"); print(signif(res, 5), row.names = FALSE)
grid < grid[, c(1, 2, 4, 3)]
names(grid) < c("theta0", "CV", "n", "power")
return(grid)
}
We assume a T/Rratio (\(\small{\theta_0}\)) of 0.95, a \(\small{CV}\) of 0.40, target a power of 0.80 and anticipate a dropoutrate of 0.10 (10%).
# assign to an object, fewer contour lines
x < sensitivity(CV = 0.4, theta0 = 0.95,
do.rate = 0.1, design = "parallel",
contours = 5)
# Results for theta0 = 0.95 and CV = 0.4
# n power do.rate
# 146 0.84606 0.0000000
# 145 0.84369 0.0068493
# 144 0.84130 0.0136990
# 143 0.83885 0.0205480
# 142 0.83640 0.0273970
# 141 0.83387 0.0342470
# 140 0.83134 0.0410960
# 139 0.82873 0.0479450
# 138 0.82612 0.0547950
# 137 0.82343 0.0616440
# 136 0.82073 0.0684930
# 135 0.81795 0.0753420
# 134 0.81517 0.0821920
# 133 0.81231 0.0890410
# 132 0.80943 0.0958900
# 131 0.80647 0.1027400
# 130 0.80351 0.1095900
As shown in the corresponding articles about sample size estimation and power analyis, we need 130 subjects to achieve a power of 0.8035. We see that also in the last row of the output. In order to compensate for the dropoutrate we should dose 146 subjects in order to have 130 eligible subjects in the worst case. This is also seen in the first row of the output.
Unlike in the power analyis, where only one parameter is varied at a time and the others kept constant, here we see the entire picture. That’s possibly more informative because in a real study a combination of all effects occurs simultaneously.
Such patterns are typical for ABE.
We know already from the power analyis that the most sensitive parameter is \(\small{\theta_0}\), which can decrease from the assumed 0.95 to 0.9276 (maximum relative deviation –2.36%) until we reach a power of 0.70. The \(\small{CV}\) is much less sensitive, which can increase from the assumed 0.40 to 0.4552 (relative +13.8%). The least sensitive is the sample size itself. Hence, dropouts are in general of the least concern.
The lower right quadrants of each panel show ‘nice‘ combinations (\(\small{\theta_0}\) > assumed and \(\small{CV}\) < assumed). Higher power than targeted, great.
The other combinations are tricky. Since power is most sensitive to \(\small{\theta_0}\), it would need a substantially lower \(\small{CV}\) to compensate for a worse \(\small{\theta_0}\). Have a look at the 0.80 contour lines in the lower left quadrant of the first panel (no dropouts). If \(\small{\theta_0\approx 0.92}\) it would need \(\small{CV\approx 0.34}\) to preserve power. If the worst case hits and we have only 130 eligible subjects, it would need \(\small{CV\approx 0.32}\).
On the other hand, ‘better’ \(\small{\theta_0}\)s allow for higher \(\small{CV}\)s. That’s shown in the upper right quadrants. However, if the \(\small{CV}\) gets too large, even a \(\small{\theta_0}\) of 1 might not always give the target power.
In the upper left quadrants are the worst case combinations (\(\small{\theta_0}\) < assumed and _\(\small{CV}\) > assumed). It might still be possible to show BE though with a lower chance (power < target).
Since we assigned the result to an object x
in the function call, we can expore what’s going on behind the curtain.
# assumed values
theta0 < 0.95
CV < 0.40
target < 0.80
# vectors of values and extreme sample sizes
theta0s < unique(x$theta0)
CVs < unique(x$CV)
n.range < range(as.numeric(as.character(x$n)))
res < data.frame(scenario = c("closest",
rep("worst", 2),
rep("assumed", 2),
rep("best", 2)),
theta0 = NA_real_, CV = NA_real_,
n = NA_integer_, power = NA_real_)
closest < as.data.frame(x[which.min(abs(x$power  target)), ])
res[1, c(2:3, 5)] < closest[c(1:2, 4)]
res[1, 4] < as.integer(as.character(closest$n))
worst < as.data.frame(x[x$theta0 == min(theta0s) &
x$CV == max(CVs) &
as.numeric(as.character(x$n)) %in% n.range, ])
res[2:3, c(2:3, 5)] < worst[, c(1:2, 4)]
res[2:3, 4] < as.integer(as.character(worst$n))
assumed < as.data.frame(x[x$theta0 == theta0 & x$CV == CV &
as.numeric(as.character(x$n)) %in% n.range, ])
res[4:5, c(2:3, 5)] < assumed[, c(1:2, 4)]
res[4:5, 4] < as.integer(as.character(assumed$n))
best < as.data.frame(x[x$theta0 == max(theta0s) &
x$CV == min(CVs) &
as.numeric(as.character(x$n)) %in% n.range, ])
res[6:7, c(2:3, 5)] < best[, c(1:2, 4)]
res[6:7, 4] < as.integer(as.character(best$n))
res[, 2:5] < signif(res[, 2:5], 5)
print(res, row.names = FALSE)
# scenario theta0 CV n power
# closest 0.99594 0.455 131 0.80004
# worst 0.90250 0.500 146 0.44993
# worst 0.90250 0.500 130 0.40992
# assumed 0.95000 0.400 146 0.84606
# assumed 0.95000 0.400 130 0.80351
# best 1.00000 0.320 146 0.99201
# best 1.00000 0.320 130 0.98395
closest
shows the combination of \(\small{\theta_0}\), \(\small{CV}\), and \(\small{n}\) which is closest to the target power. Only for comparison. worst
shows the combinations giving the lowest power for the large sample size (no dropouts) as well as for the planned sample size (anticipated dropoutrate realized). These are the values in the upper left corners of the first and last panels of the plot. Guess what assumed
means… best
shows the combinations giving the highest power. These are the values in the lower right corners of the first and last panels of the plot.
We assume a T/Rratio (\(\small{\theta_0}\)) of 0.95, a \(\small{CV}\) of 0.25, target a power of 0.80 and anticipate a dropoutrate of 0.10 (10%).
# Results for theta0 = 0.95 and CV = 0.25
# n power do.rate
# 32 0.85726 0.00000
# 31 0.84584 0.03125
# 30 0.83425 0.06250
# 29 0.82093 0.09375
# 28 0.80744 0.12500
As shown in the corresponding articles about sample size estimation and power analyis, we need 28 subjects to achieve a power of 0.8074. We see that also in the last row of the output. In order to compensate for the dropoutrate we should dose 32 subjects in order to have 28 eligible subjects in the worst case. This is also seen in the first row of the output.
# assumed values
theta0 < 0.95
CV < 0.25
target < 0.80
# vectors of values and extreme sample sizes
theta0s < unique(x$theta0)
CVs < unique(x$CV)
n.range < range(as.numeric(as.character(x$n)))
res < data.frame(scenario = c("closest",
rep("worst", 2),
rep("assumed", 2),
rep("best", 2)),
theta0 = NA_real_, CV = NA_real_,
n = NA_integer_, power = NA_real_)
closest < as.data.frame(x[which.min(abs(x$power  target)), ])
res[1, c(2:3, 5)] < closest[c(1:2, 4)]
res[1, 4] < as.integer(as.character(closest$n))
worst < as.data.frame(x[x$theta0 == min(theta0s) &
x$CV == max(CVs) &
as.numeric(as.character(x$n)) %in% n.range, ])
res[2:3, c(2:3, 5)] < worst[, c(1:2, 4)]
res[2:3, 4] < as.integer(as.character(worst$n))
assumed < as.data.frame(x[x$theta0 == theta0 & x$CV == CV &
as.numeric(as.character(x$n)) %in% n.range, ])
res[4:5, c(2:3, 5)] < assumed[, c(1:2, 4)]
res[4:5, 4] < as.integer(as.character(assumed$n))
best < as.data.frame(x[x$theta0 == max(theta0s) &
x$CV == min(CVs) &
as.numeric(as.character(x$n)) %in% n.range, ])
res[6:7, c(2:3, 5)] < best[, c(1:2, 4)]
res[6:7, 4] < as.integer(as.character(best$n))
res[, 2:5] < signif(res[, 2:5], 5)
print(res, row.names = FALSE)
# scenario theta0 CV n power
# closest 0.97156 0.28438 30 0.79980
# worst 0.90250 0.31250 32 0.45406
# worst 0.90250 0.31250 28 0.40602
# assumed 0.95000 0.25000 32 0.85726
# assumed 0.95000 0.25000 28 0.80744
# best 1.00000 0.20000 32 0.99418
# best 1.00000 0.20000 28 0.98603
For Health Canada’s ABE only the point estimate of C_{max} has to lie with the conventional limits of 80.0–125.0%, i.e., the 90% confidence interval is not required like for all other agencies. In order to calculate power and estimate the sample size in the functions of PowerTOST
we can use alpha = 0.5
in the calls.
We assume a T/Rratio (\(\small{\theta_0}\)) of 0.90, a \(\small{CV}\) of 0.45, target a power of 0.80 and anticipate a dropoutrate of 0.10 (10%). We want to perform the study in a simple 2×2×2 crossover for Health Canada.
# assign to an object, no CI with alpha 0.5
x < sensitivity(CV = 0.45, theta0 = 0.90,
do.rate = 0.1, design = "2x2x2",
alpha = 0.5)
# Results for theta0 = 0.9 and CV = 0.45
# n power do.rate
# 26 0.83575 0.000000
# 25 0.83028 0.038462
# 24 0.82496 0.076923
# 23 0.81885 0.115380
# 22 0.81292 0.153850
Only in very rare cases (if the CV of AUC is substantially smaller than the one of C_{max}) you will have to base the sample size on C_{max}.
# assumed values
theta0 < 0.90
CV < 0.45
target < 0.80
# vectors of values and extreme sample sizes
theta0s < unique(x$theta0)
CVs < unique(x$CV)
n.range < range(as.numeric(as.character(x$n)))
res < data.frame(scenario = c("closest",
rep("worst", 2),
rep("assumed", 2),
rep("best", 2)),
theta0 = NA_real_, CV = NA_real_,
n = NA_integer_, power = NA_real_)
closest < as.data.frame(x[which.min(abs(x$power  target)), ])
res[1, c(2:3, 5)] < closest[c(1:2, 4)]
res[1, 4] < as.integer(as.character(closest$n))
worst < as.data.frame(x[x$theta0 == min(theta0s) &
x$CV == max(CVs) &
as.numeric(as.character(x$n)) %in% n.range, ])
res[2:3, c(2:3, 5)] < worst[, c(1:2, 4)]
res[2:3, 4] < as.integer(as.character(worst$n))
assumed < as.data.frame(x[x$theta0 == theta0 & x$CV == CV &
as.numeric(as.character(x$n)) %in% n.range, ])
res[4:5, c(2:3, 5)] < assumed[, c(1:2, 4)]
res[4:5, 4] < as.integer(as.character(assumed$n))
best < as.data.frame(x[x$theta0 == max(theta0s) &
x$CV == min(CVs) &
as.numeric(as.character(x$n)) %in% n.range, ])
res[6:7, c(2:3, 5)] < best[, c(1:2, 4)]
res[6:7, 4] < as.integer(as.character(best$n))
res[, 2:5] < signif(res[, 2:5], 5)
print(res, row.names = FALSE)
# scenario theta0 CV n power
# closest 0.87424 0.39375 26 0.80000
# worst 0.85500 0.56250 26 0.67174
# worst 0.85500 0.56250 22 0.65483
# assumed 0.90000 0.45000 26 0.83575
# assumed 0.90000 0.45000 22 0.81292
# best 0.94737 0.36000 26 0.95752
# best 0.94737 0.36000 22 0.94168
This is the method recommended by agencies accepting SABE – except the FDA and China’s CDE (both recommend RSABE instead).
We assume a T/Rratio (\(\small{\theta_0}\)) of 0.90, a \(\small{CV}\) of 0.45, target a power of 0.80 and anticipate a dropoutrate of 0.15 (15%). We want to perform the study in a 2sequence 4period full replicate study (TRTRRTRT or TRRTRTTR or TTRRRRTT) for the EMA.
Note that this is timeconsuming because for every of the 4,732 combinations 10^{5} simulations are performed. That’s a lot.
# assign to an object
# normally don't turn off the progress bar
x < sensitivity(CV = 0.45, theta0 = 0.90,
do.rate = 0.15, design = "2x2x4",
SABE = TRUE, regulator = "EMA",
info = FALSE, progress = FALSE)
# Results for theta0 = 0.9 and CV = 0.45
# n power do.rate
# 34 0.87196 0.000000
# 33 0.86302 0.029412
# 32 0.85528 0.058824
# 31 0.84556 0.088235
# 30 0.83397 0.117650
# 29 0.82366 0.147060
# 28 0.81116 0.176470
Such a pattern is typical for all variants of SABE. The idea of referencescaling is to maintain power irrespective of the \(\small{CV}\). Therefore, the \(\small{CV}\) is the least sensitive parameter – it can increase from the assumed 0.45 to 0.6629 (relative +47.3%) until power will be only 0.70. On the other hand, if the \(\small{CV}\) decreases, power decreases as well because we can expand the limits less. However, like in ABE the most sensitive parameter is \(\small{\theta_0}\) and the least sensitive is the sample size itself.
# assumed values
theta0 < 0.90
CV < 0.45
target < 0.80
# vectors of values and extreme sample sizes
theta0s < unique(x$theta0)
CVs < unique(x$CV)
n.range < range(as.numeric(as.character(x$n)))
res < data.frame(scenario = c("closest",
rep("worst", 2),
rep("assumed", 2),
rep("best", 2)),
theta0 = NA_real_, CV = NA_real_,
n = NA_integer_, power = NA_real_)
closest < as.data.frame(x[which.min(abs(x$power  target)), ])
res[1, c(2:3, 5)] < closest[c(1:2, 4)]
res[1, 4] < as.integer(as.character(closest$n))
worst < as.data.frame(x[x$theta0 == min(theta0s) &
x$CV == max(CVs) &
as.numeric(as.character(x$n)) %in% n.range, ])
res[2:3, c(2:3, 5)] < worst[, c(1:2, 4)]
res[2:3, 4] < as.integer(as.character(worst$n))
assumed < as.data.frame(x[x$theta0 == theta0 & x$CV == CV &
as.numeric(as.character(x$n)) %in% n.range, ])
res[4:5, c(2:3, 5)] < assumed[, c(1:2, 4)]
res[4:5, 4] < as.integer(as.character(assumed$n))
best < as.data.frame(x[x$theta0 == max(theta0s) &
x$CV == min(CVs) &
as.numeric(as.character(x$n)) %in% n.range, ])
res[6:7, c(2:3, 5)] < best[, c(1:2, 4)]
res[6:7, 4] < as.integer(as.character(best$n))
res[, 2:5] < signif(res[, 2:5], 5)
print(res, row.names = FALSE)
# scenario theta0 CV n power
# closest 0.89734 0.44438 28 0.80002
# worst 0.85500 0.56250 34 0.69661
# worst 0.85500 0.56250 28 0.61691
# assumed 0.90000 0.45000 34 0.87196
# assumed 0.90000 0.45000 28 0.81116
# best 0.94737 0.36000 34 0.95507
# best 0.94737 0.36000 28 0.91921
Similar to above but the upper cap of scaling is \(\small{CV_\textrm{wR}\sim 57.4\%}\) instead of \(\small{CV_\textrm{wR}=50\%}\).
We assume a T/Rratio (\(\small{\theta_0}\)) of 0.90, a \(\small{CV}\) of 0.50, target a power of 0.80 and anticipate a dropoutrate of 0.15 (15%). We want to perform the study in a 2sequence 4period full replicate study (TRTRRTRT or TRRTRTTR or TTRRRRTT) for Health Canada.
# assign to an object; normally show the information
# and don't turn off the progress bar
x < sensitivity(CV = 0.50, theta0 = 0.90,
do.rate = 0.15, design = "2x2x4",
SABE = TRUE, regulator = "HC",
info = FALSE, progress = FALSE)
# Results for theta0 = 0.9 and CV = 0.5
# n power do.rate
# 34 0.87012 0.000000
# 33 0.86191 0.029412
# 32 0.85446 0.058824
# 31 0.84307 0.088235
# 30 0.83417 0.117650
# 29 0.82398 0.147060
# 28 0.81266 0.176470
The pattern is similar to the previous example for the EMA but more relaxed due to the higher cap of scaling.
# assumed values
theta0 < 0.90
CV < 0.50
target < 0.80
# vectors of values and extreme sample sizes
theta0s < unique(x$theta0)
CVs < unique(x$CV)
n.range < range(as.numeric(as.character(x$n)))
res < data.frame(scenario = c("closest",
rep("worst", 2),
rep("assumed", 2),
rep("best", 2)),
theta0 = NA_real_, CV = NA_real_,
n = NA_integer_, power = NA_real_)
closest < as.data.frame(x[which.min(abs(x$power  target)), ])
res[1, c(2:3, 5)] < closest[c(1:2, 4)]
res[1, 4] < as.integer(as.character(closest$n))
worst < as.data.frame(x[x$theta0 == min(theta0s) &
x$CV == max(CVs) &
as.numeric(as.character(x$n)) %in% n.range, ])
res[2:3, c(2:3, 5)] < worst[, c(1:2, 4)]
res[2:3, 4] < as.integer(as.character(worst$n))
assumed < as.data.frame(x[x$theta0 == theta0 & x$CV == CV &
as.numeric(as.character(x$n)) %in% n.range, ])
res[4:5, c(2:3, 5)] < assumed[, c(1:2, 4)]
res[4:5, 4] < as.integer(as.character(assumed$n))
best < as.data.frame(x[x$theta0 == max(theta0s) &
x$CV == min(CVs) &
as.numeric(as.character(x$n)) %in% n.range, ])
res[6:7, c(2:3, 5)] < best[, c(1:2, 4)]
res[6:7, 4] < as.integer(as.character(best$n))
res[, 2:5] < signif(res[, 2:5], 5)
print(res, row.names = FALSE)
# scenario theta0 CV n power
# closest 0.88194 0.60625 32 0.80004
# worst 0.85500 0.62500 34 0.71794
# worst 0.85500 0.62500 28 0.65997
# assumed 0.90000 0.50000 34 0.87012
# assumed 0.90000 0.50000 28 0.81266
# best 0.94737 0.40000 34 0.94997
# best 0.94737 0.40000 28 0.90649
We assume a T/Rratio (\(\small{\theta_0}\)) of 0.90, a \(\small{CV}\) of 0.45, target a power of 0.80 and anticipate a dropoutrate of 0.15 (15%). We want to perform the study in a 2sequence 4period full replicate study (TRTRRTRT or TRRTRTTR or TTRRRRTT) for members of the GCC.
# assign to an object; normally show the information
# and don't turn off the progress bar
# set special limits of the CV to show the switching
# at 30%
x < sensitivity(CV = 0.45, theta0 = 0.90,
do.rate = 0.15, design = "2x2x4",
CV.lo = 0.25, CV.hi = 0.50,
SABE = TRUE, regulator = "GCC",
info = FALSE, progress = FALSE)
# Results for theta0 = 0.9 and CV = 0.45
# n power do.rate
# 44 0.87568 0.000000
# 43 0.86886 0.022727
# 42 0.86190 0.045455
# 41 0.85396 0.068182
# 40 0.84624 0.090909
# 39 0.83802 0.113640
# 38 0.82943 0.136360
# 37 0.82049 0.159090
# 36 0.81116 0.181820
That’s a special case because for \(\small{CV_\textrm{wR} < 30\%}\) the conventional limits of 80.00–125.00% have to be applied and for \(\small{CV_\textrm{wR} \geq 30\%}\) the limits are directly widened to 75.00–133.33%. Furthermore, there is no upper cap of scaling like in ABEL.
# assumed values
theta0 < 0.90
CV < 0.45
target < 0.80
# vectors of values and extreme sample sizes
theta0s < unique(x$theta0)
CVs < unique(x$CV)
n.range < range(as.numeric(as.character(x$n)))
res < data.frame(scenario = c("closest",
rep("worst", 2),
rep("assumed", 2),
rep("best", 2)),
theta0 = NA_real_, CV = NA_real_,
n = NA_integer_, power = NA_real_)
closest < as.data.frame(x[which.min(abs(x$power  target)), ])
res[1, c(2:3, 5)] < closest[c(1:2, 4)]
res[1, 4] < as.integer(as.character(closest$n))
worst < as.data.frame(x[x$theta0 == min(theta0s) &
x$CV == max(CVs) &
as.numeric(as.character(x$n)) %in% n.range, ])
res[2:3, c(2:3, 5)] < worst[, c(1:2, 4)]
res[2:3, 4] < as.integer(as.character(worst$n))
assumed < as.data.frame(x[x$theta0 == theta0 & x$CV == CV &
as.numeric(as.character(x$n)) %in% n.range, ])
res[4:5, c(2:3, 5)] < assumed[, c(1:2, 4)]
res[4:5, 4] < as.integer(as.character(assumed$n))
best < as.data.frame(x[x$theta0 == max(theta0s) &
x$CV == min(CVs) &
as.numeric(as.character(x$n)) %in% n.range, ])
res[6:7, c(2:3, 5)] < best[, c(1:2, 4)]
res[6:7, 4] < as.integer(as.character(best$n))
res[, 2:5] < signif(res[, 2:5], 5)
print(res, row.names = FALSE)
# scenario theta0 CV n power
# closest 0.87039 0.39583 42 0.80000
# worst 0.85500 0.50000 44 0.57507
# worst 0.85500 0.50000 36 0.50533
# assumed 0.90000 0.45000 44 0.87568
# assumed 0.90000 0.45000 36 0.81116
# best 0.94737 0.25000 44 0.99860
# best 0.94737 0.25000 36 0.99354
This is the SABEmethod recommended by the FDA and China’s CDE.
We assume a T/Rratio (\(\small{\theta_0}\)) of 0.90, a \(\small{CV}\) of 0.45, target a power of 0.80 and anticipate a dropoutrate of 0.15 (15%). We want to perform the study in a 2sequence 4period full replicate study (TRTRRTRT or TRRTRTTR or TTRRRRTT) for the FDA.
# assign to an object; normally show the information
# and don't turn off the progress bar
x < sensitivity(CV = 0.45, theta0 = 0.90,
do.rate = 0.15, design = "2x2x4",
SABE = TRUE, regulator = "FDA",
info = FALSE, progress = FALSE)
# Results for theta0 = 0.9 and CV = 0.45
# n power do.rate
# 30 0.88991 0.000000
# 29 0.88095 0.033333
# 28 0.87287 0.066667
# 27 0.86119 0.100000
# 26 0.85083 0.133330
# 25 0.83767 0.166670
# 24 0.82450 0.200000
Contrary to the variants of ABEL, there is no upper cap of scaling. Together with the more steep scaling (regulatory constant \(\small{\theta_\textrm{s}\sim 0.893}\) instead of \(\small{k=0.760}\) for the EMA and Health Canada) sample sizes are always smaller than for these agencies. Or the way ’round, for a given sample size the method is more permissive. For details see another article.
# assumed values
theta0 < 0.90
CV < 0.45
target < 0.80
# vectors of values and extreme sample sizes
theta0s < unique(x$theta0)
CVs < unique(x$CV)
n.range < range(as.numeric(as.character(x$n)))
res < data.frame(scenario = c("closest",
rep("worst", 2),
rep("assumed", 2),
rep("best", 2)),
theta0 = NA_real_, CV = NA_real_,
n = NA_integer_, power = NA_real_)
closest < as.data.frame(x[which.min(abs(x$power  target)), ])
res[1, c(2:3, 5)] < closest[c(1:2, 4)]
res[1, 4] < as.integer(as.character(closest$n))
worst < as.data.frame(x[x$theta0 == min(theta0s) &
x$CV == max(CVs) &
as.numeric(as.character(x$n)) %in% n.range, ])
res[2:3, c(2:3, 5)] < worst[, c(1:2, 4)]
res[2:3, 4] < as.integer(as.character(worst$n))
assumed < as.data.frame(x[x$theta0 == theta0 & x$CV == CV &
as.numeric(as.character(x$n)) %in% n.range, ])
res[4:5, c(2:3, 5)] < assumed[, c(1:2, 4)]
res[4:5, 4] < as.integer(as.character(assumed$n))
best < as.data.frame(x[x$theta0 == max(theta0s) &
x$CV == min(CVs) &
as.numeric(as.character(x$n)) %in% n.range, ])
res[6:7, c(2:3, 5)] < best[, c(1:2, 4)]
res[6:7, 4] < as.integer(as.character(best$n))
res[, 2:5] < signif(res[, 2:5], 5)
print(res, row.names = FALSE)
# scenario theta0 CV n power
# closest 0.88579 0.55406 25 0.79998
# worst 0.85500 0.56250 30 0.73713
# worst 0.85500 0.56250 24 0.68706
# assumed 0.90000 0.45000 30 0.88991
# assumed 0.90000 0.45000 24 0.82450
# best 0.94737 0.36000 30 0.95638
# best 0.94737 0.36000 24 0.90998
We assume a T/Rratio (\(\small{\theta_0}\)) of 0.975, a \(\small{CV}\) of 0.125, target a power of 0.80 and anticipate a dropoutrate of 0.15 (15%). We want to perform the study in a 2sequence 4period full replicate study (TRTRRTRT or TRRTRTTR or TTRRRRTT) according to the rules of the FDA.^{8}
# assign to an object; normally show the information
# and don't turn off the progress bar
# custom settings of the axes
x < sensitivity(CV = 0.125, theta0 = 0.975, do.rate = 0.15,
SABE = TRUE, regulator = "FDA", ntid = TRUE,
design = "2x2x4", CV.hi = 0.3, theta0.hi = 1,
info = FALSE, progress = FALSE)
# Results for theta0 = 0.975 and CV = 0.125
# n power do.rate
# 20 0.90910 0.00
# 19 0.89039 0.05
# 18 0.87340 0.10
# 17 0.84853 0.15
# 16 0.82278 0.20
Here we see a pattern different to all other appoaches. Since there is an implied upper cap of scaling at \(\small{CV \approx 21.4188\%}\) (when the conventional limits of 80.00–125.00% have to be used), for any given \(\small{\theta_0}\) and a larger \(\small{CV}\), power curves ‘bend’ sharply to the right. In other words, we will loose power fast. With a smaller \(\small{CV}\) we will also loose power because the implied limits get narrower.
# assumed values
theta0 < 0.975
CV < 0.125
target < 0.80
# vectors of values and extreme sample sizes
theta0s < unique(x$theta0)
CVs < unique(x$CV)
n.range < range(as.numeric(as.character(x$n)))
res < data.frame(scenario = c("closest",
rep("worst", 2),
rep("assumed", 2),
rep("best", 2)),
theta0 = NA_real_, CV = NA_real_,
n = NA_integer_, power = NA_real_)
closest < as.data.frame(x[which.min(abs(x$power  target)), ])
res[1, c(2:3, 5)] < closest[c(1:2, 4)]
res[1, 4] < as.integer(as.character(closest$n))
worst < as.data.frame(x[x$theta0 == min(theta0s) &
x$CV == max(CVs) &
as.numeric(as.character(x$n)) %in% n.range, ])
res[2:3, c(2:3, 5)] < worst[, c(1:2, 4)]
res[2:3, 4] < as.integer(as.character(worst$n))
assumed < as.data.frame(x[x$theta0 == theta0 & x$CV == CV &
as.numeric(as.character(x$n)) %in% n.range, ])
res[4:5, c(2:3, 5)] < assumed[, c(1:2, 4)]
res[4:5, 4] < as.integer(as.character(assumed$n))
best < as.data.frame(x[x$theta0 == max(theta0s) &
x$CV == min(CVs) &
as.numeric(as.character(x$n)) %in% n.range, ])
res[6:7, c(2:3, 5)] < best[, c(1:2, 4)]
res[6:7, 4] < as.integer(as.character(best$n))
res[, 2:5] < signif(res[, 2:5], 5)
print(res, row.names = FALSE)
# scenario theta0 CV n power
# closest 0.95083 0.26667 18 0.79998
# worst 0.92625 0.30000 18 0.61867
# worst 0.92625 0.30000 16 0.55245
# assumed 0.97500 0.12500 18 0.87340
# assumed 0.97500 0.12500 16 0.82278
# best 1.00000 0.10000 18 0.92770
# best 1.00000 0.10000 16 0.88336
Currently only the FDA recommends RSABE. All other agencies recommend conventional ABE with limits fixed at 90.00–111.11% (though not necessarily for all PK metrics).
We assume a T/Rratio (\(\small{\theta_0}\)) of 0.975, a \(\small{CV}\) of 0.125, target a power of 0.80 and anticipate a dropoutrate of 0.15 (15%). We want to perform the study in a 2sequence 4period full replicate study (TRTRRTRT or TRRTRTTR or TTRRRRTT) with fixed narrower limits.
# assign to an object; custom settings of the axes
x < sensitivity(CV = 0.125, theta0 = 0.975, do.rate = 0.15,
theta1 = 0.90, design = "2x2x4", CV.hi = 0.3,
theta0.hi = 1, info = FALSE)
# Results for theta0 = 0.975 and CV = 0.125
# n power do.rate
# 20 0.88256 0.00
# 19 0.86597 0.05
# 18 0.84903 0.10
# 17 0.82762 0.15
# 16 0.80592 0.20
If the \(\small{CV}\) gets larger, we will quickly loose power and it will be practically impossible to show BE. Contrary to the FDA’s approach, with smaller \(\small{CV\textrm{s}}\) we will gain power.
# assumed values
theta0 < 0.975
CV < 0.125
target < 0.80
# vectors of values and extreme sample sizes
theta0s < unique(x$theta0)
CVs < unique(x$CV)
n.range < range(as.numeric(as.character(x$n)))
res < data.frame(scenario = c("closest",
rep("worst", 2),
rep("assumed", 2),
rep("best", 2)),
theta0 = NA_real_, CV = NA_real_,
n = NA_integer_, power = NA_real_)
closest < as.data.frame(x[which.min(abs(x$power  target)), ])
res[1, c(2:3, 5)] < closest[c(1:2, 4)]
res[1, 4] < as.integer(as.character(closest$n))
worst < as.data.frame(x[x$theta0 == min(theta0s) &
x$CV == max(CVs) &
as.numeric(as.character(x$n)) %in% n.range, ])
res[2:3, c(2:3, 5)] < worst[, c(1:2, 4)]
res[2:3, 4] < as.integer(as.character(worst$n))
assumed < as.data.frame(x[x$theta0 == theta0 & x$CV == CV &
as.numeric(as.character(x$n)) %in% n.range, ])
res[4:5, c(2:3, 5)] < assumed[, c(1:2, 4)]
res[4:5, 4] < as.integer(as.character(assumed$n))
best < as.data.frame(x[x$theta0 == max(theta0s) &
x$CV == min(CVs) &
as.numeric(as.character(x$n)) %in% n.range, ])
res[6:7, c(2:3, 5)] < best[, c(1:2, 4)]
res[6:7, 4] < as.integer(as.character(best$n))
res[, 2:5] < signif(res[, 2:5], 5)
print(res, row.names = FALSE)
# scenario theta0 CV n power
# closest 0.95083 0.28333 17 0.80017
# worst 0.92625 0.30000 18 0.66721
# worst 0.92625 0.30000 16 0.61711
# assumed 0.97500 0.12500 18 1.00000
# assumed 0.97500 0.12500 16 1.00000
# best 1.00000 0.10000 18 1.00000
# best 1.00000 0.10000 16 1.00000
Assuming that values from the literature – and from a pilot study as well – are the true ones, would be a serious flaw. That’s the ‘CarvedinStone’ approach, which is discussed in the other articles about sample size estimation.
Even more so, you should not believe^{9} that the assumed values will be exactly realized in the study.
The sensitivity analysis can give you an idea what might happen and protects you against surprises.
Note that power curves for ABE are concave – running from the lower left to the upper right. Ideally in SABE power would be independent from \(\small{CV}\) and therefore, straight vertical lines. Due to the transition from ABE to SABE at \(\small{CV=30\%}\), the point estimate constraint of 80.00–125.00%, and – in ABEL – the upper cap of scaling (EMA \(\small{CV=50\%}\), Health Canada \(\small{CV \sim 57.4\%}\)), they aren’t.
You could misuse the script to produce results similar to Tóthfalusi and Endrényi^{10} (below an example for the EMA’s ABEL in a partial replicate design, i.e., TRRRTRRRT). Note that the authors reported a sample size of 44 in Table A1, which is likely due to their lower number of simulations (10,000 instead of 10^{5} in PowerTOST
). For details see the case study in the article about simulations.
# dropoutrate zero gives only the estimated sample size
# specified limits of theta0 and CV, higher resolution
# smaller size of plot, draw point at theta0 / CV
x < sensitivity(CV = 0.40, theta0 = 0.90,
do.rate = 0, design = "2x3x3",
theta0.lo = 0.80, theta0.hi = 1.25,
CV.lo = 0.30, CV.hi = 0.80,
SABE = TRUE, regulator = "EMA",
mesh = 50, contours = 20,
width = 5.5, height = 5.5,
point = TRUE, info = FALSE,
progress = FALSE)
# Results for theta0 = 0.9 and CV = 0.4
# n power do.rate
# 42 0.80059 0
Heteroscedasticity
For neRs only.top of section ↩︎ previous section ↩︎
Acknowledgment
Benno Pütz (Max Planck Institute of Psychiatry) for valuable suggestions to vectorize functions of PowerTOST
and Detlew Labes for the method to decompose \(\small{CV_\textrm{w}}\) based on the \(\small{s_\textrm{wT}/{s_\textrm{wR}}\text{}}\)ratio.
Licenses
Helmut Schütz 2022
R
and all packages GPL 3.0.
1^{st} version November 27, 2021. Rendered January 02, 2022 13:42 CET by rmarkdown in 1.00 seconds.
Footnotes and References
Labes D, Schütz H, Lang B. PowerTOST: Power and Sample Size for (Bio)Equivalence Studies. 20210118. CRAN.↩︎
Sarkar D, Andrews F, Wright K, Klepeis, N, Murrell P. Trellis Graphics for R. 20210922. CRAN.↩︎
Sarkar D, Andrews F. latticeExtra: Extra Graphical Utilities Based on Lattice. 20191219. CRAN.↩︎
In earlier versions of the package regulator = "GCC"
was not implemented.↩︎
International Conference on Harmonisation. Statistical Principles for Clinical Trials. 5 February 1998. 3.5 Sample Size, p 20–1. online.↩︎
International Council for Harmonisation. Integrated Addendum to ICH E6(R1): Guideline for Good Clinical Practice. 9 November 2016. 6.9 Statistics, p 43. online.↩︎
I’m absolutely not insulted if you call it »Spaghetti viennese«. Couldn’t do better.↩︎
FDA, CDER. Draft Guidance for Industry. Bioequivalence Studies with Pharmacokinetic Endpoints for Drugs Submitted Under an ANDA. August 2021. download.↩︎
Quoting my late father: »If you believe, go to church.«↩︎
Tóthfalusi L, Endrényi L. Sample Sizes for Designing Bioequivalence Studies for Highly Variable Drugs. J Pharm Pharmaceut Sci. 2011; 15(1): 73–84. doi:10.18433/j3z88f. Open access.↩︎