Получение всех комбинаций до 100 с использованием R
Мне нужно получить все комбинации, для которых сумма равна 100, используя 8 переменных, которые могут принимать любое значение от 0 до 100 с шагом 10 (то есть 0, 10, 20 ... 100).
Следующий скрипт делает именно это, но очень неэффективно, так как создает огромный набор данных, и мне было интересно, есть ли у кого-то лучший способ сделать это.
x <- expand.grid("ON" = seq (0,100,10),
"3M" = seq(0,100,10),
"6M" = seq(0,100,10),
"1Y" = seq(0,100,10),
"2Y" = seq(0,100,10),
"5Y" = seq(0,100,10),
"10Y" = seq(0,100,10),
"15Y" = seq(0,100,10))
x <- x[rowSums(x)==100,]
Редактировать --
ответить на вопрос Стефана Лорана
результат должен выглядеть так
ON 3M 6M 1Y 2Y 5Y 10Y 15Y
100 0 0 0 0 0 0 0
90 10 0 0 0 0 0 0
80 20 0 0 0 0 0 0
70 30 0 0 0 0 0 0
60 40 0 0 0 0 0 0
50 50 0 0 0 0 0 0
(...)
0 0 0 0 0 0 10 90
0 0 0 0 0 0 0 100