Холт зимует альфа, бета и гамма (ABG), катящиеся за два или три числа - PullRequest
Новая
       67

Холт зимует альфа, бета и гамма (ABG), катящиеся за два или три числа

0 голосов
/ 14 апреля 2020

Я пытаюсь получить таблицу с катушками Альфа, Бета и гамма (ABG) зимы Холта на два или три числа. Пока я получаю ABG для всего временного ряда. 

library(dplyr) 
library(lubridate) 
library(tibble) 
library(tidyverse)
library(psy)

read_file(sales1)

sales1 <- sales::sales(~date, ~sales,)
#Lag
sales1 = sales1 %>% mutate(lagsales = lag(sales))
 rep(NA, rolling),   map_dbl((rolling + 1):nrow(sales1)

ts(sales, start = ymd("2017-03-01"), frequency = 2) -> sales_alpha

HoltWinters(sales_alpha) -> sales_hw

plot(sales_hw)

plot(fitted(sales_hw))
sales_hw
sales_alpha

Вот что я получаю: table:

Sales1 

[1]   6   5  18   8  43  61  95 139  45  88  93  98  11 336   9 313  47
[18] 583  66  61   4  90  15  13  19  18  11  19  61  17 144  40  38 309
[35]  41  77  96  33   8  39

Но я пытаюсь получить таблица, подобная приведенной ниже: альфа-бета и гамма (переходящий + 1): (число поддельное, просто пример) 

    > sales1

#   A tibble: 3 41  x 4             
    Date         sales  lagsales alpha beta gamma


1   03-01-2017      40  NA  NA  NA  NA
2   04-01-2017      2   40  NA  NA  NA
3   05-01-2017      2   2   0   0.5 2
4   06-01-2017      2   2   0   1   1
5   07-01-2017      30  2   0   2   3
6   08-01-2017      2   30  -2  0.3 5
7   01-02-2017      9   2   -4. 4   1   
8   02-02-2017      5   9   -1. 4   2   
9   03-02-2017      65  5   -0. 4       
10  04-02-2017      3   65  -2. 6   9

Есть ли кто-нибудь, кто знает, как создать таблицу с помощью ABG?

...