Обрыв, пока l oop, достигая определенного случайно сгенерированного значения в R - PullRequest
Новая
       4

Обрыв, пока l oop, достигая определенного случайно сгенерированного значения в R

0 голосов
/ 12 марта 2020

Запись некоторое время l oop в R.

У меня есть начальное значение, и мне нужно смоделировать выборку (хотя размер должен быть неограниченным, а не 100).

Когда образец достигает необходимого значения, я хотел бы разбить l oop и напечатать сообщение.

Мой логин c следующий: 

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)
}

1 Ответ

1 голос
/ 12 марта 2020

Пробал, вот что ты хочешь: 

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
...