while子句在R中循环

Question

我需要以下代码的帮助

我尝试使用while子句生成随机序列并遇到以下问题

运行代码时如下

m1=0.82
set=rep(1, 1000)

while(mean(set)!=m1){
 k=sample(1:1000,1)
 if(set[k]!=0){set[k]=0}

 }

每件事情都没问题，但是如果我按照下面的方法改变ml，那么循环可以结束

 m1=1-0.18
set=rep(1, 1000)

while(mean(set)!=m1){
 k=sample(1:1000,1)
if(set[k]!=0){set[k]=0}

}

从ml = 0.82更改为ml = 1-0.18，R无法停止循环。