> q6<-c(1:20)

> for(i in 1:20)

+ {

+  q6<-RHfit$ax[26]+RHfit$bx[26]*q5+q55

+ }

Error in q6 <-RHfit$ax[26] + RHfit$bx[26] * q5 + q55 :

  更换参数长度为零

> x4<-c(2014:2033)

> lines(x4,q6,xlim=(2014:2033),lty=3)

> title(main="年龄=25",)

>

>