Я пытаюсь получить таблицу с катушками Альфа, Бета и гамма (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?