# NOT RUN {
set.seed(271)
n <- 1000
d <- 10
set.seed(271)
X <- matrix(rnorm(n*d), ncol = d)
P <- cor(X)
colnames(P) <- paste("Var", 1:d)
extreme_pairs(P, n = 5, method = "both")
if(FALSE) {
require(graph) # requires 'graph' from Bioconductor
plot(extreme_pairs_graph(P, n = 5))
}
# }
Run the code above in your browser using DataLab