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

## Description

plot the posterior response rate with its highest probability density (HPD) interval by subgroup ID

## Usage

 ``` 1 2 3 4 5 6 7 8 9 10 11``` ```BCHMplot_post_value( res, col = res\$Result[, 4], pch = c(19, 4), cex = 2, HPD = 0.95, xlim = c(0, dim(res\$Result) + 2), ylim = c(0, 1), ObsMean = FALSE, ... ) ```

## Arguments

 `res` BCHM calculation results. `col` Color vector `pch` pch vector pch Posterior mean pch Observed mean `cex` size of points `HPD` Highest Posterior Density level for drawing (NA: No HPD drawing ) `xlim` X-axis range `ylim` Y-axis range `ObsMean` Draw the observed mean of subgroups if this parameter is TRUE `...` other options

## Value

None

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

`BCHMplot_cluster Plot the clustering results of subgroups. `

`BCHMplot_post_dist Plot the posterior distributions 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_value(res, col, HPD = 0.8) ```

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