Создание неперекрывающихся агрегаций времени из ежедневных данных с помощью пакета thief

Question

Я планирую реализовать подход временной агрегации для задачи прогноза с ежедневными данными.

Я планирую использовать {thief}package и хотел бы создать список ежедневных, еженедельных, ежемесячных, ежеквартальных двухгодичных и годовых данных, но в настоящее время я получаю другой набор агрегаций (период 73, период 5 и т. д.).

Что мне нужно изменить, чтобы получить желаемый результат?

      library(thief)

y <- ts(fpp2::goog, frequency = 365)

tsaggregates(y) %>% 
  purrr::map(head)
#> $`Period 365`
#> Time Series:
#> Start = c(1, 1) 
#> End = c(1, 6) 
#> Frequency = 365 
#> [1] 392.8300 392.5121 397.3059 398.0113 400.4902 408.0957
#> 
#> $`Period 73`
#> Time Series:
#> Start = c(1, 1) 
#> End = c(1, 6) 
#> Frequency = 73 
#> [1] 1981.150 2064.373 2048.467 2014.592 1997.061 1973.271
#> 
#> $`Period 5`
#> Time Series:
#> Start = 1.13972602739726 
#> End = 2.13972602739726 
#> Frequency = 5 
#> [1] 32199.64 34228.08 41724.42 39802.58 41792.38 38347.72
#> 
#> $`Period 1`
#> Time Series:
#> Start = 1.739726 
#> End = 2.739726 
#> Frequency = 1 
#> [1] 201914.3 268853.6

^{Создано 10 декабря 2020 г. пакетом reprex (v0.3.0)}