Сохранение значений из вложенного l oop в матрицу

Question

Я пытаюсь сохранить значения из вложенного l oop в матрицу. Я предоставил упрощенную версию кода ниже:

for (i in 1:2) {
  for (j in 1:2) {
    Test  <- i+j

    'Create Summary table of looping results'
    Summary_Loop <- matrix(ncol=2,nrow=2)
    Summary_Loop[i,j] <- Test

    'End of loop'
  }
}

Summary_Loop <- as.table(Summary_Loop)
print(Summary_Loop)

По какой-то причине в матрице сохраняется только последнее значение из l oop. Записи [1,1] [1,2] и [2,1] имеют # N / A. Может ли кто-нибудь сказать мне, как заставить матрицу хранить все значения?