# NOT RUN {
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)
# three ways to retrieve reduced data
partition_scores(prt)
fitted(prt)
prt$reduced_data
# }
Run the code above in your browser using DataLab