配对Wilcoxon检验，R中的权重

Question

我想使用R中的Wilcoxon检验对两个样本x和y进行非参数统计成对比较，但每个对都有权重关联。

这里有一个数据示例：

set.seed(9)

x <- sample(x = c(1:100), size = 20, replace = TRUE)
y <- sample(x = c(1:100), size = 20, replace = TRUE)
weight <- runif(n = 20)

data <- data.frame(x = x, y = y, weight = weight)

我知道Wilcoxon测试（没有权重）是在R中实现的，例如wilcox.test（x，y，paired = TRUE）`。但是，我无法找到一种方法来进行这项测试，并有可能为每一对增加一个权重。你知道如何在R中做到这一点吗？