Title: | An Information Borrowing Drug-Combination Bayesian Platform Design(MIDAS-2) |
---|---|
Description: | An Information borrowing drug-combination Bayesian platform design with subgroup exploration and hierarchical constrain. |
Authors: | Su Liwen |
Maintainer: | Su Liwen <[email protected]> |
License: | GPL-3 |
Version: | 0.1.0 |
Built: | 2024-11-09 03:06:42 UTC |
Source: | https://github.com/sullivan0147/midas2 |
An Information borrowing drug-combination Bayesian platform design with subgroup exploration and hierarchical constrain.
hc_platform(seed, p, p_tox)
hc_platform(seed, p, p_tox)
seed |
set a random seed to maintain the repeatability of the simulation results. |
p |
a matrix indicating the efficacy. Row number represents the number of candidate drugs. |
p_tox |
a vector indicating the toxicity. |
term.tox the indicator of whether early stopping for toxicity
term.fut the indicator of whether early stopping for futility
term.eff the indicator of whether early stopping for efficacy
final.eff a vector of final decision, either efficacy or inefficacy
post.subg subgroup analysis for treatments
post.sign signature analysis for treatments
post.spike posterior estimation for spike parameters
best selection of best treatment for each subgroup
p0 <- c( 0.1, 0.1, 0.1, 0.1) p1 <- c( 0.1, 0.1, 0.1, 0.1) p2 <- c( 0.1, 0.1, 0.1, 0.1) p3 <- c( 0.1, 0.1, 0.1, 0.1) p4 <- c( 0.1, 0.1, 0.1, 0.1) p5 <- c( 0.1, 0.1, 0.1, 0.1) p6 <- c( 0.1, 0.1, 0.1, 0.1) p7 <- c( 0.1, 0.1, 0.1, 0.1) p <- rbind(p0, p1, p2, p3, p4, p5, p6, p7) p_tox <- c(0.1,0.1,0.1,0.1,0.1,0.1,0.1,0.1) # consider 7 candidate drugs with 4 subgroups result <- hc_platform(seed=12,p,p_tox) result
p0 <- c( 0.1, 0.1, 0.1, 0.1) p1 <- c( 0.1, 0.1, 0.1, 0.1) p2 <- c( 0.1, 0.1, 0.1, 0.1) p3 <- c( 0.1, 0.1, 0.1, 0.1) p4 <- c( 0.1, 0.1, 0.1, 0.1) p5 <- c( 0.1, 0.1, 0.1, 0.1) p6 <- c( 0.1, 0.1, 0.1, 0.1) p7 <- c( 0.1, 0.1, 0.1, 0.1) p <- rbind(p0, p1, p2, p3, p4, p5, p6, p7) p_tox <- c(0.1,0.1,0.1,0.1,0.1,0.1,0.1,0.1) # consider 7 candidate drugs with 4 subgroups result <- hc_platform(seed=12,p,p_tox) result