Вычислить экспоненциальную скользящую среднюю с использованием функции применения крена в R

Question

Мне известен нормальный способ вычисления экспоненциальной скользящей средней с использованием встроенной функции EMA(). Хотите вычислить EMA, используя функцию rollapply.

Answer 1

Нет необходимости использовать EMA с rollapply, так как EMA уже имеет встроенную функцию прокрутки.

Пример: data_new <- data%>% mutate (new_col = EMA (x, n = 10))

Если вы настаиваете на использовании как rollapply, так и EMA, вы можете сначала определить функцию с EMA:

compute_EMA <- fun (x) {return (EMA (x, n = 10))}

Затем:

data_new <- data%>% mutate (new_col = rollapply (x, width = 10, FUN = compute_EMA, fill = NA, align = "right")