从 R 中的 multinom（） 模型获取线性预测变量

问：

我使用包中制作了一个多项式模型。我正在尝试进行内部验证并更新模型，但我需要模型中的线性预测变量值，但我似乎无法访问它们。我可以得到预测的概率，但找不到获得线性预测变量项的方法。multinom()nnet

我已经尝试过，但似乎您不能使用“链接”作为多项式模式的参数。想知道是否有人有任何建议？predict(MultiNom1, type = "link")

例如

require(nnet)
require(rms)
attach(mtcars) 
car <- multinom(gear ~ am + cyl + rcs(mpg, 4)) 
predict(car, type = "link")