R 序列日期和数据帧

我正在使用forecast package中的ets功能进行造林。我有2015-01-01到2015-12-01期间每天的销售数据。此编码的输出是forecast object。此forecast object没有正确的日期，因此我必须将forecast放入表中

library(forecast)
library(lubridate)

forecast_horizont<-10

DATA_TEST<-data.frame(date_of_sale = seq.Date(as.Date("2015-01-01"), as.Date("2015-12-01"), by = "day"),
                      value=sample(1:50, 335, replace=TRUE))

为了进行预测，下一步应该是如何制作下表

在下面的代码行中，我必须将forecast_horizont放在下面，因此我尝试使用这行代码。但存在问题，这行代码不起作用

EXPAND_DATA_set<-data.frame(date_of_sale = seq.Date(as.Date("2015-12-01"), by = "day")+forecast_horizont)

那么，有谁能帮助我修复这行代码，并使用forecast_horizont制作类似上图的表格吗？

您是否正在尝试从2015-12-01开始添加forecast_horizont天数

或

您在seq.Dateas.Date2015-12-01中只有一个日期，by=day。。。

data.frame(date_of_sale = seq(as.Date("2015-12-01"), by = "day", length.out = forecast_horizont))

#   date_of_sale
#1    2015-12-01
#2    2015-12-02
#3    2015-12-03
#4    2015-12-04
#5    2015-12-05
#6    2015-12-06
#7    2015-12-07
#8    2015-12-08
#9    2015-12-09
#10   2015-12-10

data.frame(date_of_sale = as.Date('2015-12-01') + 0:forecast_horizont)