Extracts the fitted values.
# S3 method for class 'croston'
fitted(object, ...)
A vector of fitted values.
library(tsibble)
sim_poisson <- tsibble(
time = yearmonth("2012 Dec") + seq_len(24),
count = rpois(24, lambda = 0.3),
index = time
)
sim_poisson %>%
model(CROSTON(count)) %>%
tidy()
#> # A tibble: 4 × 3
#> .model term estimate
#> <chr> <chr> <dbl>
#> 1 CROSTON(count) demand_init 0.545
#> 2 CROSTON(count) demand_par 0
#> 3 CROSTON(count) interval_init 2
#> 4 CROSTON(count) interval_par 0