ASSISTDesignB {ASSISTant}R Documentation

A fixed sample design to compare against the adaptive clinical trial design of Lai, Lavori and Liao.


ASSISTDesignB objects are used to design a trial with certain characteristics provided in the object instantiation method. This design differs from ASSISTDesign in only how it computes the critical boundaries, how it performs the interim look, and what quantities are computed in a trial run.


# design <- ASSISTDesignB$new(trialParameters, designParameters, discreteData)


An R6Class generator object


ASSISTDesignB$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 is used

getDesignParameters,getTrialParameters, getBoundaries

Accessor methods for (obvious) object slots


Modifier method for boundaries a named vector of double values with names btilde, b, and c, in that order


Print the object in a human readable form


Compute the critical boundary value c_α

explore(numberOfSimulations = 5000, rngSeed = 12345)

Explore the design using the specified number of simulations and random number seed. There are further parameters. By default trueParameters = self$getDesignParameters() as would be the case for a Type I error calculation. If changed, would yield power. Also showProgress = TRUE/FALSE, saveRawData = TRUE/FALSE control raw data saves and display of progress. Returns a list of results


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


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

See Also

ASSISTDesign which is a superclass of this object


## Not run: 
prevalence <- LLL.SETTINGS$prevalences$table1
scenario <- LLL.SETTINGS$scenarios$S0
designParameters <- list(prevalence = prevalence,
                       mean = scenario$mean,
                       sd = scenario$sd)
designB <- ASSISTDesignB$new(trialParameters = LLL.SETTINGS$trialParameters,
                            designParameters = designParameters)
## A realistic design uses 5000 simulations or more!
result <- designB$explore(showProgress = interactive())
analysis <- designB$analyze(result)

## End(Not run)
## For full examples, try:
## browseURL(system.file("full_doc/ASSISTant.html", package="ASSISTant"))

[Package ASSISTant version 1.4.2 Index]