@param gamma variance of posterior distribution of W #' @param mu mean for posterior distribution of W #' @param kappa vector of zero-inflation probabilities #' @param rho posterior probabilities of ...

generate_blocks <- function(p, Q, alpha = rep(1/Q, Q)){ ...