回复 第2楼 的 nan.xiao：
man <- c(22,29,31,32,33,35,36,37,41,42,47,52,55,56)<br />
woman <- setdiff(22:58,man)<br />
A <- array(0, c(14,3))<br />
A[,1] <- man</p>
<p>for (i in 1:14){<br />
set.seed(222222)<br />
A[i,2] <- sample(woman,1)<br />
woman <- setdiff(woman,A[i,2])<br />
}</p>
<p>two <- sample(1:14,9)<br />
for (i in two){<br />
set.seed(222222)<br />
A[i,3] <- sample(woman,1)<br />
woman <- setdiff(woman,A[i,3])<br />
}<br />
A<br />
woman
</p>
版主给看看，最后woman应该是没有元素的啊，第三列出现了重复的25，这是怎么回事啊
<br />
a=1<br />
a=setdiff(a,1)<br />
a
的结果是numeric(0)；woman最后的结果也应该是numeric(0)啊？
</p>
