在R或winbugs中绘制拟合值与观测值

我想绘制拟合值与观测值的对比图，并想画一条直线，显示拟合的优度。但是，我不想使用

abline（）

，因为我没有使用

lm

命令计算拟合值，因为我使用的是

R

未涵盖的模型。我计算了系数，并用它们来计算拟合值。那么，我该怎么做才能在R或winbugs中获得这样的图呢

这是我想要的

---

仍然没有提供数据，但使用

曲线

功能的这个简单示例可能会告知流程：

x <- 1:10
y <- 2+ 3*(1:10) + rnorm(10)
plot(1:10, y)
curve( 2+3*x, 0, 10,  add=TRUE)

---

x我找不到任何重要的东西你知道这条线吗？截距和坡度将需要
abline
。两点需要计算截距和斜率，然后使用
abline
。还有什么？我的线性模型是单向误差分量随机效应模型，其规格是y_i=1-xbeta+delta_i+e_i，其中x是设计矩阵，beta是回归系数的向量，delta_i是第i个随机效应，e是第i个常用误差。我得到了这个模型的可能性，然后通过在R中使用optim得到了beta，然后是拟合值。还要注意的是，没有什么好主意。非常感谢。