在每隔一行使用mutate

Question

我想更改以下代码行：

dat %>% mutate(New = Measurement -lag(Measurement))

计算测量（t） - 每行的测量（t-1）进入测量（t） - 每隔一行的测量（t-2）（其他可以设置为NA），使用dplyr范例。

如何一次完成所有操作？有没有比做以下更方便的方式？

dat <- dat %>% mutate(New = Measurement - lag(Measurement, 2))
dat[which((1:nrow(dat) %% 2) == 0), "New"] <- NA