set.seed(1234)
# Draw some data
X1 <- matrix(rnorm(1000), ncol = 10)
X2 <- matrix(rnorm(1000, mean = 0.5), ncol = 10)
# Perform maxtype edge-count test
if(requireNamespace("gTests", quietly = TRUE)) {
# Using 5-MST
ZC(X1, X2)
# Using 3-MST
ZC(X1, X2, graph.fun = MST, graph.args = list(K = 3))
}
Run the code above in your browser using DataLab