嗨，谢谢你。
所以我非常努力地在R中找到一个有效的预测功能，但我没有运气。
这就是我需要完成的事情：
1）从单个txt文件中提取2组数据（一个是数量值，另一个是时间）。记录的数量必须能够变化（例如4个不同时间的4个数量值，或5或6等）
为此我尝试使用数据框，但后来的预测函数由于某种原因不能接受它。
2）将数据放入预测功能，以便生成新的预测数据。数据（顺便说一句，我需要使用的预测方法根本不重要[我只能使用平均预测，因为它太简单了]，但像naive或rwf之类的东西会工作得很好）
3）我想保存新制作的＆＃39;预测＆＃39;数据到另一个txt文件进行存储。
到目前为止，这是我的代码：
我用来创建和保存样本数据的这些行（我目前有18条记录）：
library(forecast)
library(ggplot2)
library(reshape2)
Quantity <- c(5,3,8,4,0,5,2,7,4,2,6,8,4,7,8,9,4,6)
Time <- c("2010/01/01", "2010/07/02", "2010/08/03", "2011/02/04", "2011/11/05", "2011/12/06", "2012/06/07", "2012/08/30", "2013/04/16", "2013/03/18", "2014/02/22", "2014/01/27", "2015/12/15", "2015/09/08", "2016/05/04", "2017/11/07", "2017/09/22", "2017/04/04")
Frame <- data.frame(Time,Quantity)
write.table(Frame,file="....path..../Frame.txt",quote=F)
然后我使用这些行将数据放入（希望）数据框或任何可容纳上述两个矢量数据的容器中：
Frame <- read.table("....path..../Frame.txt")
出于保证的缘故，我试图绘制数据（但我不需要）只是为了查看程序是否正确读取了我的数据（无济于事）：
有4次尝试（不幸的是没有成功）：
1 -
plot.ts(Frame)
2 -
Frame <- read.table("....path..../Frame.txt")
3 -
Frame <- window(start = 2000, end = 2019)
autoplot(Frame) + autolayer(meanf(Frame,h=11),PI=FALSE, series="Means") + autolayer(naive(Frame, h=11),PI=FALSE,series="Naive") + ggtitle("Quantity vs Time") + xlab("Time") + ylab("Quantity") + guides(colour=guide_legend(title="Forecast"))
4 -
plot(Frame, xlab="Time",ylab="Quantity",main="Stock Quantity vs Time",type='l')
我还没有到达我需要发送新预测的部分＆＃39;数据到新的txt文件，所以我没有任何尝试代码。
任何帮助都表示赞赏。谢谢。