Холт зимует Альфа - PullRequest
Новая
       26

Холт зимует Альфа

1 голос
/ 11 апреля 2020

Я пытаюсь добавить функцию HoltWinters Alpha. У меня есть таблица под названием Sales1, и код должен ссылаться на эту таблицу. Есть ли кто-нибудь, кто может исправить или изменить мой код ниже, так что я получаю Альфу Холтвинтерс вместо Альфы Хронбахс?

Холт Винтерс кал c (нужно это, вероятно, изменить) 

library(forecast)
library(Metrics

) 

read_file(sales1)
x <- sales

x = c(Sales1)  
mSES = HoltWinters(x, alpha = 0.5, beta = FALSE, gamma = FALSE)  
mHW = HoltWinters(x, alpha = 0.5, beta = FALSE, gamma = FALSE)
mSES$SSE  
mHW$SSE

HoltWinters(x, alpha = NULL, beta = NULL, gamma = NULL,
            seasonal = c("additive", "multiplicative"),
            start.periods = 2, l.start = NULL, b.start = NULL,
            s.start = NULL,
            optim.start = c(alpha = 0.3, beta = 0.1, gamma = 0.1),
            optim.control = list())

chronbachs alpha cal c

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

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

rolling = 2

sales1 <- sales::sales(  ~date, ~sales,)
#Lag
sales1 = sales1 %>%  mutate(lagsales = lag(sales))

#Rolling Chronbachs Alpha.:( I need the Holtwinter Alpha here )

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

тиббет из таблицы Sales1:

df <- tibble :: tribble (~ seq, ~ date, ~ sales, 1, "3/01/2017", 40, 2, "4/01/2017", 2, 3, "5 / 01/2017 », 2, 4,« 01.01.2017 », 2, 5,« 01/01/2017 », 30, 6,« 01.01.2017 », 2, 7,« 1/02 / 2017 », 9, 8,« 02.02.2017 », 5, 9,« 02.02.2017 », 65, 10,« 02.02.2017 », 3, 11,« 02.02.2017 » 65 </p>

...