dev/tests/acca_tests2.R

In meantrix/corrP: Compute Correlations Type Analysis in Parallel

# ACCA testes C++ functions
library(corrp)
x <- corrp(mtcars)
m <- corr_matrix(x)
m[is.na(m)] <- 0
acca_res <- acca(m, 3)

sil_acca(acca = acca_res, m)

best_acca(m, 2, 10)

##
results <- corrp(iris, cor.nn = "mic", cor.nc = "pps", cor.cc = "uncoef", n.cores = 2, verbose = FALSE)
m <- corr_matrix(results, col = "infer.value", isig = TRUE)
acca.res <- acca(m, 2)
acca.res


sil_acca(acca.res, m)