output.matrix <- get.decision.obd.kb( toxicity.low = 0.15,
toxicity.moderate= 0.25,
toxicity.high = 0.35,
efficacy.low = 0.25,
efficacy.moderate = 0.45,
efficacy.high = 0.65,
target.toxicity=0.20,
target.efficacy=0.40,
cohortsize=3, ncohort=10)$decision.matrix
decision <- decision.finding (out.matrix=output.matrix, n=6, t=1, r=3)
decision
Run the code above in your browser using DataLab