proc_loadings <- procrustes_loadings(
pca_data = onze_intercepts |> dplyr::select(-speaker),
max_pcs = 3,
index = TRUE,
n = 10, # set this to at least 100 in actual use.
scale = TRUE
)
plot_procrustes_loadings(proc_loadings, pc_no = 2)
Run the code above in your browser using DataLab