Plot the clustering results of subgroups.
plot the observed response rate versus subgroup ID with clusters coded by the color of dots.
BCHMplot_cluster( res, col = res$Result[, 4], pch = 16, xlim = c(0, dim(res$Result)[1] + 2), ylim = c(0, 1), cex = 2, ... )
res
: BCHM calculation results.col
: Color vectorpch
: pch vectorxlim
: X-axis rangeylim
: Y-axis rangecex
: size of points...
: other optionsNone
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_cluster(res, col, pch=16)
BCHM Perform the analysis based on the BCHM design.
BCHMplot_post_value Plot the posterior response of subgroups.
BCHMplot_post_dist Plot the posterior distributions of subgroups.
Useful links