R中去溶剂输出的移动平均值

我对R不熟悉，但很想学。 我刚刚构建了一个相当复杂的系统动力学库存和流量模型，我想使用R的

deSolve

包运行它

简化问题。我想根据过去12个月的销售额做一个销售预测。我曾经

movavg(ResultsSimulation$TotalSales, 12, type="s")

我认为

movavg

将使用最后12个值（1个时间步长=1个月）进行计算，因此我将得到过去12个月的移动平均值。每次不同的时间点，

deSolve

都会添加一个时间步长

但是表“ResultsSimulation”和列“TotalSales”在开始时并不存在（因为它是模拟的结果）

我想也许我可以在第一次运行时欺骗R，在第一次运行模拟之前创建一个具有完全相同名称的表和列，第1轮后的结果将覆盖第一个数据表，以便从此处

movavg

使用模拟结果。显然这不起作用

您对如何计算移动平均值有何建议？移动平均值仍将被计算并保存在第一步不可用的列表中

谢谢你的帮助