set.seed(123)
x <- matrix(rnorm(300), ncol = 3)
R_target <- matrix(c(1, 0.5, 0.3,
0.5, 1, 0.4,
0.3, 0.4, 1), 3)
out <- ic_exact(x, R_target)
cor(out, method = "spearman")
Run the code above in your browser using DataLab