BCHMplot_cluster {BCHM}

Plot the clustering results of subgroups.

Description

plot the observed response rate versus subgroup ID with clusters coded by the color of dots.

Usage

BCHMplot_cluster(
  res,
  col = res$Result[, 4],
  pch = 16,
  xlim = c(0, dim(res$Result)[1] + 2),
  ylim = c(0, 1),
  cex = 2,
  ...
)

Arguments

res

BCHM calculation results.

col

Color vector

pch

pch vector

xlim

X-axis range

ylim

Y-axis range

cex

size of points

...

other options

Value

None

See Also

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.

Examples

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)