# NOT RUN {
set.seed(123)
df <- simulate_block_data(c(3, 4, 5), lower_corr = .4, upper_corr = .6, n = 100)
# fit partition using part_minr2()
partition(df, threshold = .6, partitioner = part_minr2())
# }
Run the code above in your browser using DataCamp Workspace