R中的线性回归预测

在R中编写预测脚本时遇到问题。我将所有时间序列数据保存在导入到全局环境的.csv文档中。代码一直工作到anova（reg1）。所以我的问题是，为什么脚本的其余部分不起作用，我需要如何编辑脚本，使其看起来像示例4.4中的链接（）

---

data由于公式右侧的项不是时间序列，因此它看起来像是时间序列。以下是一个简化的示例：

>df
  a b
1 1 2
2 2 4
3 3 6
4 4 8

> y
[1] 1 3 5 7

>tslm(y ~ a + b, data=df)
Error in tslm(y ~ a + b, data = df) : Not time series data

> dfts = ts(df)    # This is of class 'mts' (multiple time series)
> tslm(y ~ a + b, data=dfts)

Call:
lm(formula = formula, data = dfts, na.action = na.exclude)

Coefficients:
(Intercept)            a            b  
         -1            2           NA  

对于这个过于简化的例子来说，这基本上是合理的输出。
那么您的问题到底是什么？请编辑您的帖子，使其更清楚。确保提供一个不依赖计算机上可用数据的文件。你说的“不工作”是什么意思？您是否收到错误消息？如果是这样的话，你应该包括这一点。
>df
  a b
1 1 2
2 2 4
3 3 6
4 4 8

> y
[1] 1 3 5 7

>tslm(y ~ a + b, data=df)
Error in tslm(y ~ a + b, data = df) : Not time series data

> dfts = ts(df)    # This is of class 'mts' (multiple time series)
> tslm(y ~ a + b, data=dfts)

Call:
lm(formula = formula, data = dfts, na.action = na.exclude)

Coefficients:
(Intercept)            a            b  
         -1            2           NA