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