r - 比较向量值

Question

`我想知道我将如何更改此代码，以便两个向量的对应值不能相等。例如:如果 x = (1, 2, 2, 4, 8, 1, 7, 9, 5, 10) 和 y = (3, 2, 7, 8, 4, 10, 4, 8, 2, 1)，两个向量的第二个值等于 2。有什么办法可以告诉 R 在向量 x 的第二个位置重新采样，直到它在向量 y 中的值不同？

x <- c(1:10)
y <- c(1:10)
sample_x <- sample(x, length(10), replace = TRUE)
z <- sample_x > y`

Answer 1

你可以这样做:

while(any(x == y)) x <- sample(x)

编辑 :现在我意识到 x 和 y 可能来自与 sample 类似的 replace = TRUE 调用，这是一种避免 while 循环的有趣方法。它使用索引和模数来确保两个样本不匹配:

N <- 1:10  # vector to choose from (assumes distinct values)
L <- 20    # sample size - this might be length(N) as in your example

n <- length(N)

i <- sample(n,   L, replace = TRUE)
j <- sample(n-1, L, replace = TRUE)

x <- N[i]
y <- N[1 + (i + j - 1) %% n]