新手求助如何做回归拟合直线（自己解决了。。。。不用看了各位。。。）

chimcy

自己解决了。。。。
-----------------------------------------------------------------------------------------------------------------------------------------


  刚学R不不久，从网上找了一个简单的例子来练习，但是在做回归拟合线的地方卡住了。

fire.txt ：（数据出自何晓群--应用回归分析）
x y
3.4 26.2
1.8 17.8
4.6 31.3
2.3 23.1
3.1 27.5
5.5 36
0.7 14.1
3 22.3
2.6 19.6
4.3 31.3
2.1 24
1.1 17.3
6.1 43.2
4.8 36.4
3.8 26.1



#-------------------------------------------------------------#数据准备
fire <- read.table('D:/fire.txt', head = T)
#-------------------------------------------------------------#回归分析
plot(fire$y ~ fire$x)
fire.reg <- lm(fire$y ~ fire$x, data = fire) #回归拟合
summary(fire.reg) #回归分析表
anova(fire.reg) #方差分析表
abline(fire.reg, col = 2, lty = 2) #拟合直线     到这部分就做不出来了。


软件上是这样写的，> abline(fire.reg,col=2,lty=2)
                            Error in int_abline(a = a, b = b, h = h, v = v, untf = untf, ...) :
                            plot.new has not been called yet

请问是哪里错误，如何更正？
谢谢。