r - Rでpolrサマリー出力からAICを抽出する方法

Question

summary()R のパッケージを使用して作成された個々のpolr()モデルで実行したときに出力として提供される AIC をすばやく比較したいと思いMASSます。この情報をコンパイルするのに問題はありませんが、AIC 情報が正確にどこpolrに保存されているのかわかりません。モデルオブジェクト自体で。

モデル オブジェクトに対して と を使用してみました。また、 を使用str()してソース コード自体を調べてみました。私には何も目立っていません。attributes()getAnywhere("polr")

からAIC出力を抽出する方法を知っている人はいますsummary(polr_mod)か?

参考例：

library(MASS)
dat <- data.frame(v1 = factor(rep(0:2,each=3),ordered = T), v2 = rep(1:3,each=3))
mod_polr <- polr(v1 ~ v2, data = dat, Hess = T, method = "logistic" )
summary(mod_polr)

Call:
polr(formula = v1 ~ v2, data = dat, Hess = T, method = "logistic")

Coefficients:
     v2 
46.7233 

Intercepts:
      0|1       1|2 
 73.62014 117.05781 

Residual Deviance: 1.560782e-08 
AIC: 6.00 

^ 出力の下部にある を参照してくださいAIC: 6.00。これはオブジェクトのどこに保存されますか? 呼び出し/抽出したいです。