# Example usage:
set.seed(123)
p <- 50
n1 <- 30
n2 <- 30
X <- matrix(rnorm(n1 * p), nrow = p, ncol = n1)
Y <- matrix(rnorm(n2 * p), nrow = p, ncol = n2)
result <- CQ2(X, Y)
print(result)
Run the code above in your browser using DataLab