如果样本包含一对特定物种，如何告诉R中的for循环重新生成样本？

Question

我正在从128个物种库中创建1000个随机社区（向量），并将某些操作应用于该社区并存储在新的向量中。 为简单起见，我一直在练习使用20个物种库中的10个随机社区来编写代码。问题是存在一对物种对，因此，如果一对物种是在随机社区中生成的，则我需要该社区被扔掉，重新产生一个新的。 我已经能够编码，如果在社区中找到该对，该社区（矢量）将被标记为NA。 我也知道如何使用“ next”命令告诉循环跳过该向量。 但是使用这两个选项，我无法获得所需的所有社区。

这是我使用NA选项的代码，但是这又再次导致我的社区短缺。

C<-c(1:20)
D<-numeric(10)
X<- numeric(5)
for(i in 1:10){
  X<-sample(C, size=5, replace = FALSE)
  if("10" %in% X & "11" %in% X) X=NA else X=X
  if("1" %in% X & "2" %in% X) X=NA else X=X
  print(X)
  D[i]<-sum(X)
  }
print(D)

这就是我的结果。

[1]  5  1  7  3 14
[1] 20  8  3 18 17
[1] NA
[1] NA
[1] 4 7 1 5 3
[1] 16  1 11  3 12
[1] 14  3  8 10 15
[1]  7  6 18  3 17
[1]  6  5  7  3 20
[1] 16 14 17  7  9
> print(D)
 [1] 30 66 NA NA 20 43 50 51 41 63

非常感谢！