矩阵上的rowum，R

Question

正如它听起来的那样。我想取一个矩阵，对于每一行，每n列加一个。我不想使用apply或任何循环包装器。它需要尽可能快。例如，请参阅下面的

set.seed(1)
M = matrix(rpois(16,4),4,4)
n = 2

 M
     [,1] [,2] [,3] [,4]
[1,]    3    2    5    5
[2,]    3    7    1    3
[3,]    4    7    2    5
[4,]    7    5    2    4


output

     [,1] [,2] 
[1,]   5   10
[2,]   10   4
[3,]   11   7
[4,]   12   6