Альфа-код Holtwinters в приведенном ниже сценарии и заменить Альфу Chronsbachs?

Question

Вопрос:

Как получить код Альфы Холтвинтерса в приведенном ниже сценарии и заменить Альфа Хронсбаха?

СКРИПТ 1

read_file(sales1)
library(tidyverse)
library(psy)

Количество строк перед принять во внимание

rolling = 2

sales1 <- sales::sales(
  ~date, ~sales,)

Лаг

sales1 = sales1 %>%  mutate(lagsales = lag(sales))

Rolling Chronbachs Alpha.:

sales1$alpha = c(
  rep(NA, rolling), 
  map_dbl((rolling + 1):nrow(sales1), function(x){
    cronbach(sales1 %>% select(sales, lagsales) %>% slice((x-rolling):x))$alpha
  })
)
sales1