phi <- 0.30 # 30% target toxicity
phi1 <- 0.05 # 5% lower toxicity bound
phi2 <- 0.45 # 45% upper toxicity bound
delta <- 0.60 # 60% target efficacy
delta1 <- 0.35 # 35% minimum efficacy threshold
optimal_boundaries <- gridoptim(
phi = phi, phi1 = phi1, phi2 = phi2,
delta = delta, delta1 = delta1
)
print(optimal_boundaries)
# Verify boundary relationships
cat("\\nBoundary Verification:\\n")
cat("phi1 <= lambda1 <= phi:", phi1, "<=", optimal_boundaries$lambda1, "<=", phi,
"->", phi1 <= optimal_boundaries$lambda1 && optimal_boundaries$lambda1 <= phi, "\\n")
cat("phi <= lambda2 <= phi2:", phi, "<=", optimal_boundaries$lambda2, "<=", phi2,
"->", phi <= optimal_boundaries$lambda2 && optimal_boundaries$lambda2 <= phi2, "\\n")
cat("delta1 <= eta1 <= delta:", delta1, "<=", optimal_boundaries$eta1, "<=", delta,
"->", delta1 <= optimal_boundaries$eta1 && optimal_boundaries$eta1 <= delta, "\\n")
Run the code above in your browser using DataLab