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

Question

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

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

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

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

我正在尝试使用以下代码预测已售出的商品数量

 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放入预测并获得输出。