# get a small sample of random intercepts.
pca_data <- onze_intercepts |>
dplyr::select(-speaker) |>
dplyr::slice_sample(n=10)
# apply correlation test with 10 permutations.
# actual use requires at least 100.
cor_test <- correlation_test(pca_data, n = 10, cor.method = 'pearson')
# Return summary of significant correlations
summary(cor_test)
# use spearman correlation instead.
cor_test_spear <- correlation_test(pca_data, n = 10, cor.method = 'spearman')
Run the code above in your browser using DataLab