library(tidyverse)
# data to be passed to API
head(forecast::wineind,14)
#> Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov
#> 1980 15136 16733 20016 17708 18019 19227 22893 23739 21133 22591 26786
#> 1981 15028 17977
#> Dec
#> 1980 29740
#> 1981
#* Return Forecast Data
#* @list a The first number
#* @get /simple_fcast
function(){
ts() %>%
forecast::ets() %>%
forecast::forecast()
}
#> function(){
#> ts() %>%
#> forecast::ets() %>%
#> forecast::forecast()
#> }