Р: Как сгенерировать 15 случайных чисел из 1:10 со странными условиями

Question

Как сгенерировать 15 случайных чисел случайных чисел от 1:10, убедившись, что А) Каждое число появляется по крайней мере один раз и Б) Ни одно число не появляется ТРИ раза

Я знаю, как использовать обычную функцию выборки сreplace = True и False. Но этот вопрос совершенно другой, аааа ....

sample(1:10, 15, replace = TRUE)

Answer 1

Вы можете сделать это с помощью ...

sample(c(1:10, sample(10, 5)))

Последовательность 1:10 объединяется с пятью случайными числами из 1:10. Внешний sample тасует весь лот.