Я витратив більше доби, намагаючись здійснити те, що здається дуже простою справою. Мені потрібно створити 300 «випадкових» послідовностей, у яких числа 1,2,3 та 4 з’являються рівно 12 разів, але те саме число ніколи не використовується два рази «підряд» / послідовно.
Мої найкращі спроби (я думаю):
мають вибірки R вибірки 48 без заміни, перевіряють, чи є послідовні значення з rle, а потім використовувати лише ті послідовності, які не містять послідовних значень. Проблема: майже немає випадкових послідовностей, які б відповідали цьому критерію, тому це потрібно назавжди.
мають R створювати послідовності без послідовних значень (див. код).
pop<-rep(1:4,12)
y=c()
while(length(y)!=48)
{
y= c(y,sample(pop,48-length(y),replace=F))
y=y[!c(FALSE, diff(y) == 0)]
}
Проблема: це створює послідовності з різною кількістю кожного значення. Тоді я намагався використовувати лише ті послідовності з точно 12 значенням кожного, але це лише повернуло мене до проблеми 1: займає назавжди.
Має бути якийсь простий спосіб зробити це, правда? Будь-яка допомога дуже вдячна!