How do i get to see a matrix instead of a plot showing the rolling Alpha ,Beta and Gamma? (so with an overlap every 2 variables)
library(dplyr)
library(lubridate)
library(tibble)
library(tidyverse)
library(psy)
read_file(sales1)
sales1 <- sales::sales(~date, ~sales1,)
#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
add_column(df, b= 2, w = 1)
plot(sales_hw)
plot(fitted(sales_hw))
sales_hw
#extract from file Sales1
1982-06-12 3 NA
2 1982-06-19 8 3
3 1982-06-26 1 8
4 1982-07-03 3 1
5 1982-07-10 5 3
6 1982-07-17 8 5
7 1982-07-24 18 8
8 1982-07-31 7 18
9 1982-08-07 5 7
10 1982-08-14 4 5
11 1982-08-21 7 4
12 1982-08-28 11 7
13 1982-09-04 7 11
14 1982-09-11 25 7
15 1982-09-18 8 25
16 1982-09-25 9 8
17 1982-10-02 4 9
18 1982-10-09 13 4
19 1982-10-16 11 13
20 1982-10-23 7 11
21 1982-10-30 11 7
22 1982-11-06 8 11
23 1982-11-13 4 8