# 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 <- zwl(X, Y, order = 0)
print(result)
# Output:
# $statistic: The test statistic value
# $pvalue: The p-value indicating the significance of the test
# $Tn: The adjusted test statistic before centering
# $var: The estimated variance
Run the code above in your browser using DataLab