如何从 R 中的点拟合函数中提取回归系数

如何解决如何从 R 中的点拟合函数中提取回归系数

我最近创建了一个使用 -1 幂 Boxcox 变换的线性回归模型。在图中，我想对模型进行反向变换以显示未变换 (UT) 和反向变换模型拟合。为此，我一直在使用以下代码将因变量转换为 ^-1，然后将结果模型反向转换为 ^-1。之所以会产生略微不同的模型，是因为回归是根据与进化树估计的协变进行加权的。

plot(yvar~xvar,comp.data$data,pch=16,col="blue")

points(fitted(UTmodel)~UTmodel$data$data$xvar,col="blue",type="l") # fit line from untransformed

points(fitted(Tranformedmodel)^-1~BTmodel$data$data$xvar,col="red",type="l")

这实际上效果很好（见图），但我想知道如何从最后一行访问回归方程系数。我已经尝试通过 ^-1 直接提高转换后的系数并使用 coef() 函数，但无济于事。