utility_multitrial_binary | R Documentation |
The utility function calculates the expected utility of our drug development program and is given as gains minus costs and depends on the parameters and the expected probability of a successful program.
The utility is in further step maximized by the optimal_multitrial_binary()
function.
utility2_binary(
n2,
RRgo,
w,
p0,
p11,
p12,
in1,
in2,
alpha,
beta,
c2,
c3,
c02,
c03,
K,
N,
S,
b1,
b2,
b3,
case,
fixed
)
utility3_binary(
n2,
RRgo,
w,
p0,
p11,
p12,
in1,
in2,
alpha,
beta,
c2,
c3,
c02,
c03,
K,
N,
S,
b1,
b2,
b3,
case,
fixed
)
utility4_binary(
n2,
RRgo,
w,
p0,
p11,
p12,
in1,
in2,
alpha,
beta,
c2,
c3,
c02,
c03,
K,
N,
S,
b1,
b2,
b3,
case,
fixed
)
n2 |
total sample size for phase II; must be even number |
RRgo |
threshold value for the go/no-go decision rule |
w |
weight for mixture prior distribution |
p0 |
assumed true rate of control group |
p11 |
assumed true rate of treatment group |
p12 |
assumed true rate of treatment group |
in1 |
amount of information for |
in2 |
amount of information for |
alpha |
significance level |
beta |
|
c2 |
variable per-patient cost for phase II |
c3 |
variable per-patient cost for phase III |
c02 |
fixed cost for phase II |
c03 |
fixed cost for phase III |
K |
constraint on the costs of the program, default: Inf, e.g. no constraint |
N |
constraint on the total expected sample size of the program, default: Inf, e.g. no constraint |
S |
constraint on the expected probability of a successful program, default: -Inf, e.g. no constraint |
b1 |
expected gain for effect size category |
b2 |
expected gain for effect size category |
b3 |
expected gain for effect size category |
case |
choose case: "at least 1, 2 or 3 significant trials needed for approval" |
fixed |
choose if true treatment effects are fixed or random |
The output of the functions utility2_binary()
, utility3_binary()
and utility4_binary()
is the expected utility of the program when 2, 3 or 4 phase III trials are performed.
res <- utility2_binary(n2 = 50, RRgo = 0.8, w = 0.3,
p0 = 0.6, p11 = 0.3, p12 = 0.5,
in1 = 300, in2 = 600, alpha = 0.025, beta = 0.1,
c2 = 0.75, c3 = 1, c02 = 100, c03 = 150,
K = Inf, N = Inf, S = -Inf,
b1 = 1000, b2 = 2000, b3 = 3000,
case = 2, fixed = TRUE)
res <- utility3_binary(n2 = 50, RRgo = 0.8, w = 0.3,
p0 = 0.6, p11 = 0.3, p12 = 0.5,
in1 = 300, in2 = 600, alpha = 0.025, beta = 0.1,
c2 = 0.75, c3 = 1, c02 = 100, c03 = 150,
K = Inf, N = Inf, S = -Inf,
b1 = 1000, b2 = 2000, b3 = 3000,
case = 2, fixed = TRUE)
res <- utility4_binary(n2 = 50, RRgo = 0.8, w = 0.3,
p0 = 0.6, p11 = 0.3, p12 = 0.5,
in1 = 300, in2 = 600, alpha = 0.025, beta = 0.1,
c2 = 0.75, c3 = 1, c02 = 100, c03 = 150,
K = Inf, N = Inf, S = -Inf,
b1 = 1000, b2 = 2000, b3 = 3000,
case = 3, fixed = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.