加快代码查找向量中每12个元素之间的差异的速度

Question

我有一个长度超过200,000的向量。为了简单起见，请说：

x <- c(1:96)

我想做的是生成一个向量，该向量包含数字与向量中的下一个第十二个数字之间的差。在这种情况下，它将生成像这样的向量：

diff <- c( (13 - 1) = 12, (14 - 2) = 12, (15 - 3) = 12, ...)

我希望这个例子有意义（仅出于描述目的）。当前，我正在运行以下for循环来生成它：

diff <- c()
for (k in 1:length(x)){
   d <- x[k+12] - x[k]
   diff <- c(diff, d)
}

这正在生成我想要的，但是对于大向量它运行非常慢。如果有人对如何加快速度提出建议，我将不胜感激！