# BCHMplot_post_dist: Plot the posterior distributions of subgroups. In BCHM: Clinical Trial Calculation Based on BCHM Design

## Description

plot the posterior distribution by subgroup ID

## Usage

 ```1 2 3 4 5 6 7 8 9``` ```BCHMplot_post_dist( res, col = res\$Result[, 4], lty = 1:dim(res\$Result)[1], lwd = 2, xlim = c(0, 1), ylim = c(0, 20), ... ) ```

## Arguments

 `res` BCHM calculation results. `col` Color vector `lty` line types `lwd` line width `xlim` X-axis range `ylim` Y-axis range `...` other options

## Value

None

`BCHM Perform the analysis based on the BCHM design.`

`BCHMplot_cluster Plot the clustering results of subgroups. `

`BCHMplot_post_value Plot the posterior response of subgroups. `

## Examples

 ``` 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31``` ```nDat = c(25, 25, 25, 25) # total number of patients xDat = c(2, 3, 8, 6) # number of responses alpha <- 1e-20 d0 <- 0.0 alpha1 = 50 beta1 = 10 tau2 <- 0.1 phi1 <- 0.1 deltaT <- 0.2 thetaT <- 0.60 res <- BCHM(nDat = nDat, xDat = xDat, alpha = alpha, d0 = d0, alpha1 = alpha1, beta1 = beta1, tau2 = tau2, phi1 = phi1, deltaT = deltaT, thetaT = thetaT, burnIn = 100, MCIter = 200, MCNum = 1000, seed = 1000 ) print(res\$SMatrix) print(res\$Result) col <- res\$Result[,4] BCHMplot_post_dist(res, col, lty=1:length(nDat), lwd =3, xlim=c(0, 0.8)) ```

BCHM documentation built on July 2, 2020, 2:29 a.m.