DualResponsesDesign-class: 'DualResponsesDesign.R'

In Roche/crmPack: Object-Oriented Implementation of CRM Designs

DualResponsesDesign.R

Description

This is a class of design based on DLE responses using the LogisticIndepBeta model without DLE and efficacy samples. It contains all slots from the RuleDesign and TDsamplesDesign classes.

Usage

DualResponsesDesign(eff_model, data, ...)

.DefaultDualResponsesDesign()

Arguments

eff_model	(ModelEff) see slot definition.
data	(DataDual) see slot definition.
...	Arguments passed on to TDDesign model (ModelTox) see slot definition. stopping (Stopping) see slot definition. increments (Increments) see slot definition. pl_cohort_size (CohortSize) see slot definition.

Slots

data

(DataDual)
the data set.

eff_model

(ModelEff)
the pseudo efficacy model to be used.

Note

Typically, end users will not use the .DefaultDualResponsesDesign() function.

Examples

empty_data <- DataDual(doseGrid = seq(25, 300, 25))

tox_model <- LogisticIndepBeta(
  binDLE = c(1.05, 1.8),
  DLEweights = c(3, 3),
  DLEdose = c(25, 300),
  data = empty_data
)

eff_model <- Effloglog(
  eff = c(1.223, 2.513),
  eff_dose = c(25, 300),
  nu = c(a = 1, b = 0.025),
  data = empty_data
)

my_next_best <- NextBestMaxGain(
  prob_target_drt = 0.35,
  prob_target_eot = 0.3
)

my_increments <- IncrementsRelative(
  intervals = c(25, 300),
  increments = c(2, 2)
)

my_size <- CohortSizeConst(size = 3)
my_stopping <- StoppingMinPatients(nPatients = 36)

design <- DualResponsesDesign(
  nextBest = my_next_best,
  cohort_size = my_size,
  startingDose = 25,
  model = tox_model,
  eff_model = eff_model,
  data = empty_data,
  stopping = my_stopping,
  increments = my_increments
)

Roche/crmPack documentation built on April 20, 2024, 1:10 p.m.