onze_pca <- prcomp(onze_intercepts |> dplyr::select(-speaker), scale = TRUE)
# Plot PC1 with a cutoff value of 60%
pca_contrib_plot(onze_pca, pc_no = 1, cutoff = 60)
# Plot PC2 with no cutoff value.
pca_contrib_plot(onze_pca, pc_no = 2, cutoff = NULL)
Run the code above in your browser using DataLab