tt=seq(length(X))
lmt=lm(c(X)~1+tt+tt^2)
t_hat=list(c(73:84),c(73:84)^2)
predict(lmt,newdata = t_hat)#得到的是lmt[["fitted.values"]]
相似问题