View source: R/fromQuantiles.R
MinimalInformative | R Documentation |
This function constructs a minimally informative prior, which is captured in
a LogisticNormal
(or
LogisticLogNormal
) object.
MinimalInformative(
dosegrid,
refDose,
threshmin = 0.2,
threshmax = 0.3,
probmin = 0.05,
probmax = 0.05,
...
)
dosegrid |
the dose grid |
refDose |
the reference dose |
threshmin |
Any toxicity probability above this threshold would
be very unlikely (see |
threshmax |
Any toxicity probability below this threshold would
be very unlikely (see |
probmin |
the prior probability of exceeding |
probmax |
the prior probability of being below |
... |
additional arguments for computations, see
|
Based on the proposal by Neuenschwander et al (2008, Statistics in
Medicine), a minimally informative prior distribution is constructed. The
required key input is the minimum (d_{1}
in the notation of the
Appendix A.1 of that paper) and the maximum value (d_{J}
) of the dose
grid supplied to this function. Then threshmin
is the probability
threshold q_{1}
, such that any probability of DLT larger than
q_{1}
has only 5% probability. Therefore q_{1}
is the 95%
quantile of the beta distribution and hence p_{1} = 0.95
. Likewise,
threshmax
is the probability threshold q_{J}
, such that any
probability of DLT smaller than q_{J}
has only 5% probability
(p_{J} = 0.05
). The probabilities 1 - p_{1}
and p_{J}
can be
controlled with the arguments probmin
and probmax
, respectively.
Subsequently, for all doses supplied in the
dosegrid
argument, beta distributions are set up from the assumption
that the prior medians are linear in log-dose on the logit scale, and
Quantiles2LogisticNormal
is used to transform the resulting
quantiles into an approximating LogisticNormal
(or
LogisticLogNormal
) model. Note that the reference dose
is not required for these computations.
see Quantiles2LogisticNormal
# Setting up a minimal informative prior
# max.time is quite small only for the purpose of showing the example. They
# should be increased for a real case.
set.seed(132)
coarseGrid <- c(0.1, 10, 30, 60, 100)
minInfModel <- MinimalInformative(dosegrid = coarseGrid,
refDose=50,
threshmin=0.2,
threshmax=0.3,
control=## for real case: leave out control
list(max.time=0.1))
# Plotting the result
matplot(x=coarseGrid,
y=minInfModel$required,
type="b", pch=19, col="blue", lty=1,
xlab="dose",
ylab="prior probability of DLT")
matlines(x=coarseGrid,
y=minInfModel$quantiles,
type="b", pch=19, col="red", lty=1)
legend("right",
legend=c("quantiles", "approximation"),
col=c("blue", "red"),
lty=1,
bty="n")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.