A <- ts(c(1,2,3,4,5,4,3,2,3,4,5,6,5,4,3,4,5,6,7,6,5,4,5,6,7,8,7,6,5,6,7,8,9,8,7,6,7,8,9,10), start = c(2020,1), frequency = 1)
AForecast <- HoltWinters(A, beta=NULL, gamma=TRUE, l.start=1)
#> Error in decompose(ts(x[1L:wind], start = start(x), frequency = f), seasonal): time series has no or less than 2 periods
fabletools::common_periods(tsibble::as_tsibble(A))
#> year
#> 1
A <- ts(c(1,2,3,4,5,4,3,2,3,4,5,6,5,4,3,4,5,6,7,6,5,4,5,6,7,8,7,6,5,6,7,8,9,8,7,6,7,8,9,10), start = c(2020,1), frequency = 10)
AForecast <- HoltWinters(A, beta=NULL, gamma=TRUE, l.start=1)
AForecast
#> Holt-Winters exponential smoothing with trend and additive seasonal component.
#>
#> Call:
#> HoltWinters(x = A, beta = NULL, gamma = TRUE, l.start = 1)
#>
#> Smoothing parameters:
#> alpha: 0.815026
#> beta : 0
#> gamma: TRUE
#>
#> Coefficients:
#> [,1]
#> a 10.1888216
#> b 0.1418182
#> s1 1.0948149
#> s2 1.8839601
#> s3 1.5453455
#> s4 0.1010440
#> s5 -1.2276309
#> s6 -0.1239793
#> s7 -0.0738190
#> s8 -0.9525811
#> s9 -0.9384756
#> s10 -0.1888216