Description Usage Format Methods References See Also Examples
ASSISTDesign
objects are used to design, simulate and analyze
adaptive group sequential clinical trial with three stages.
1 | # design <- ASSISTDesign$new(trialParameters, designParameters)
|
An R6Class
generator object
ASSISTDesign$new(designParameters, trialParameters, discreteData = FALSE, boundaries)
Create a new
ASSISTDesign
instance object using the parameters specified. If discreteData
is TRUE
use a discrete distribution for the Rankin scores and designParameters
must contain the appropriate distributions to sample from. If boundaries
is specified, it used.
getDesignParameters
,getTrialParameters
,
getBoundaries
Accessor methods for (obvious) object fields
setBoundaries
Modifier method for boundaries a
named vector of double values with names btilde
,
b
, and c
, in that order
print()
Print the object in a human readable form
computeCriticalValues()
Compute the critical boundary values \tilde{b},
b and c for futility, efficacy and final efficacy decisions; saved in field
boundaries
explore(numberOfSimulations = 5000, rngSeed = 12345)
Explore the
design using the specified number of simulations and random number seed. There are a number of further parameters. By default trueParameters = self$getDesignParameters()
as would be the case for a Type I error calculation. If changed, would yield power. Also recordStats = TRUE/FALSE
, showProgress = TRUE/FALSE
, saveRawData = TRUE/FALSE
control recording statistics, raw data saves, display of progress. Fixed sample size (fixedSampleSize = TRUE/FALSE
) can be specified to ensure that patients lost after a futile overall look are not made up. Returns a list of results
analyze(trialExploration)
Analyze
the design given the trialExploration
which is the result of a call to explore
to
simulate the design. Return a list of summary quantities
summary(analysis)
Print the operating characteristics of the design, using the analysis
result from the analyze
call
Adaptive Choice of Patient Subgroup for Comparing Two Treatments by Tze Leung Lai and Philip W. Lavori and Olivia Yueh-Wen Liao. Contemporary Clinical Trials, Vol. 39, No. 2, pp 191-200 (2014). doi:10.1016/j.cct.2014.09.001g
LLL.SETTINGS
for an explanation of trial parameters
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | ## Not run:
data(LLL.SETTINGS)
prevalence <- LLL.SETTINGS$prevalences$table1
scenario <- LLL.SETTINGS$scenarios$S0
designParameters <- list(prevalence = prevalence,
mean = scenario$mean,
sd = scenario$sd)
designA <- ASSISTDesign$new(trialParameters = LLL.SETTINGS$trialParameters,
designParameters = designParameters)
print(designA)
## A realistic design uses 5000 simulations or more!
result <- designA$explore(showProgress = interactive())
analysis <- designA$analyze(result)
designA$summary(analysis)
## End(Not run)
## For full examples, try:
## browseURL(system.file("full_doc/ASSISTant.html", package="ASSISTant"))
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.