r - セグメント機能を使用して線を引く

Question

私は、観察された価値と適合価値の間のラインをプロットしようとしています。しかし、どういうわけか私はエラーを取得し続けます。私はこれを行うために使用segmentsしています。以下は私のスクリプトです：

mdl<-lm(yld ~ year,data=asm);summary(mdl)
plot(yld ~ year,data=asm,pch=16,xlab="Year",ylab=expression(paste("Raw rice yield (kg/ha)")))
abline(mdl)
x0 <- x1 <- mdl$mdl$year
y0 <- mdl$mdl$yld
y1 <- fitted(mdl)
segments(x0, y0, x1, y1, col="red", lwd=2)

Error in segments(x0, y0, x1, y1, col = "red", lwd = 2) : 
invalid first argument

ここで何が間違っているのか誰か教えてもらえますか? 実行するx0とNULLが表示されます。x1and y1(NULL)も同様です。これが問題ですか、どうすれば修正できますか

ありがとう