ccvx_ddcp_plot: Plot Concavex model posterior predictive risks for Phase 3...
In paulmanser/concavex: Concavex Bayesian Dose-Response Modeling

Function to plot Concavex model risk profiles. Specifically, posterior predictive probabilities of not exceeding efficacy thresholds are plotted by doses tested, and for specific thresholds of interest. If no thresholds are specified in 'eff.thresholds' argument, only the plot of doses against treatment effect is generated.

1	ccvx_ddcp_plot(ccvx.samples, eff.thresholds = NULL)

`ccvx.samples`	List containg Gibbs samples output by ccvx_fit() function
`eff.thresholds`	A list of efficacy thresholds of specific interest for which to compute probabilities

ccvx.mod <- ccvx_build_jags(predictive.probs = TRUE)
ccvx.samples <- ccvx_fit(ccvx.mod, doses = 0:4, mu.hat = c(1, 20, 50, 60, 65), std.err = rep(20, 5), sd.ph3 = 200, n.per.arm.ph3 = 300)
par(mfrow=c(1,2))
ccvx_ddcp_plot(ccvx.samples, eff.thresholds = c(-5, 0, 5, 10, 20, 40))