#' @examples
#' set.seed(123)
#' df <- simulate_block_data(c(3, 4, 5), lower_corr = .4, upper_corr = .6, n = 100)
#' # fit partition
#' prt <- partition(df, threshold = .6)
#'
#' @md
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.