Skip to contents

[Stable]

This class captures the trial simulations from dual-endpoint model based designs. In comparison to the parent class Simulations, it contains additional slots to capture the dose-biomarker fits, and the sigma2W and rho estimates.

Usage

DualSimulations(rho_est, sigma2w_est, fit_biomarker, ...)

.DefaultDualSimulations()

Arguments

rho_est

(numeric)
see DualSimulations

sigma2w_est

(numeric)
DualSimulations

fit_biomarker

(list)
see DualSimulations

...

additional parameters from Simulations

Slots

rho_est

(numeric)
vector of final posterior median rho estimates

sigma2w_est

(numeric)
vector of final posterior median sigma2W estimates

fit_biomarker

(list)
with the final dose-biomarker curve fits

Note

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

Examples

data_list <- list(
  Data(
    x = 1:2,
    y = 0:1,
    doseGrid = 1:2,
    ID = 1L:2L,
    cohort = 1L:2L
  ),
  Data(
    x = 3:4,
    y = 0:1,
    doseGrid = 3:4,
    ID = 1L:2L,
    cohort = 1L:2L
  )
)

doses <- c(1, 2)
seed <- as.integer(123)

fit <- list(
  c(0.1, 0.2),
  c(0.3, 0.4)
)

stop_report <- matrix(c(TRUE, FALSE), nrow = 2)

stop_reasons <- list("A", "B")

additional_stats <- list(a = 1, b = 1)

dual_simulations_obj <- DualSimulations(
  rho_est = c(0.25, 0.35),
  sigma2w_est = c(0.15, 0.25),
  fit_biomarker = list(c(0.3, 0.4), c(0.4, 0.5)),
  fit = fit,
  stop_report = stop_report,
  stop_reasons = stop_reasons,
  additional_stats = additional_stats,
  data = data_list,
  doses = doses,
  seed = seed
)