我试图在我的观察值和拟合值之间绘制线。但不知何故，我一直在出错。我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。x1和y1(NULL)相同。这是问题吗？我该如何纠正
谢谢