打破while循环，在R中达到某个随机生成的值

Question

在 R 中编写一个 while 循环。

我有一个初始值，我需要模拟一个样本（但大小必须是无限的，而不是 100）。

当样本达到必要值时，我想打破循环并打印一条消息。

我的逻辑如下：

my_start <- 1000 # inital value
random <- sample(my_start, size = 100, replace = FALSE, prob = NULL) 
# sample simulation, but size must be not 100, but unlimited
while (result > 2000) {
result <- my_start + random # trying here to add a sample to initial value
print('Start reaches', result)
}

另外我希望样本的分布不会超过 100。

感谢任何提示！

更新：在另一个用户的帮助下几乎达到了目标，只是希望值的波动不会超过某个值（100），而不是纯粹随机的。例如，它会在 900 和 1000 之间波动，当它达到 1050 时，它就会破裂。

my_start <- 1000 # inital value
result <- my_start
n <- 2000 # generate random number from 1 to this value

while (result < 2000) {
random <- sample(n, 1)
result <- random
cat('\nValue reaches', result)
}

Answer 1

可能，这就是你想要的：

my_start <- 1000 # inital value
result <- my_start
n <- 100 #generate random number from -n to n

set.seed(123)
while (result < 2000) {
  random <- sample(-n:n, 1)
  result <- result + random
  cat('\nValue reaches', result)
}

#Value reaches 1058
#Value reaches 1136
#Value reaches 1049
#Value reaches 1143
#Value reaches 1212
#...
#...
#Value reaches 966
#Value reaches 906
#Value reaches 980
#Value reaches 969
#Value reaches 928
#Value reaches 843
#Value reaches 858
#...
#...
#Value reaches 1952
#Value reaches 1973
#Value reaches 2015