R中我需要在最后结果输出每个循环的结果，而不是最后一个结果，怎么写程序，谢谢
  dy<-c(1,2,3,4,5,3,4)
i<-2
for(i in 2:7){
  x<-dy[c(i,i-1)]
  y<-matrix(data=x,1,2)
  i=i+1
}

输出只有这个
        [,1] [,2]
[1,]    4    3

我想要全部的输出组成矩阵。