# NOT RUN {
set.seed(123)
df <- simulate_block_data(c(3, 4, 5), lower_corr = .4, upper_corr = .6, n = 100)
test_permutation(df, partitioner = part_pc1(), nperm = 5) %>%
plot_permutation("nclusters")
# }
Run the code above in your browser using DataCamp Workspace