Попытка добавить вычисление с задержками в новый столбец данных

Question

Я пытаюсь сделать что-то чрезвычайно простое, но я не могу понять, как это сделать.

В основном это:

Где A и B - столбцы во фрейме данных.

Если я использую:

df$B <- lag(df$B,1) + df$A 

Это, очевидно, приводит к NA, потому что перед строкой 1 * нет задержки B.

Answer 1

Мы можем использовать accumulate

library(tidyverse)
df %>% 
     mutate(B = accumulate(A, `+`))

---

Или это может быть просто cumsum

df %>%
    mutate(B = cumsum(A))

data

df <- data.frame(A= c(10, 9, 3, 1, 7))