# Example usage:
set.seed(123)
X <- matrix(rnorm(200), nrow = 10, ncol = 20) # 10 samples, 20 variables
Y <- matrix(rnorm(200, mean = 0.5), nrow = 10, ncol = 20) # Different mean
result <- SKK(X, Y)
print(result)
# Output:
# TSvalue: The test statistic value
# pvalue: The p-value indicating the significance of the test
Run the code above in your browser using DataLab