r - 如何修复 S-plus 中的线性模型拟合误差

Question

我正在尝试在我的算法中拟合值，以便我可以预测下个月的数字。当我清楚地定义了我要放入等式的对象是什么时，我得到了变量错误的无数据。

我试图将它们放在向量中，以便它可以使用一个向量作为训练数据集来预测新值。当前脚本对我来说适用于不同的数据集，但由于某种原因在这里不起作用。

数据很小，所以我想知道这是否与它有关。数据是：

 Month  io   obs    Units Sold
 12     in    1    114
 1      in    2    29
 2      in    3    105
 3      in    4        30
 4      in    5  

我正在尝试使用下面的代码预测 Units Sold

 matt<-TEST1

 isdf<-matt[matt$month<=3,]
 isdf<-na.omit(isdf)
 osdf<-matt[matt$Units.Sold==4,]

 lmfit<-lm(Units.Sold~obs+Month,data=isdf,na.action=na.omit)

 predict(lmFit,osdf[1,1])

我希望能够将 lmfit 放入 predict 并获得输出。