最近これを再現しようとしましたか?のコードをチェックアウトしたところ、次texreg::extract.zelig
のメソッドがあるようですmlogit
。
function (model, include.aic = TRUE, include.bic = TRUE, include.loglik = TRUE,
include.deviance = TRUE, include.nobs = TRUE, include.rsquared = TRUE,
include.adjrs = TRUE, include.fstatistic = TRUE, ...)
...
else if ("mlogit" %in% class(model)) {
coefficient.names <- rownames(s@coef3)
coefficients <- s@coef3[, 1]
standard.errors <- s@coef3[, 2]
zval <- s@coef3[, 3]
significance <- 2 * pnorm(abs(zval), lower.tail = FALSE)
gof <- numeric()
gof.names <- character()
gof.decimal <- logical()
if (include.loglik == TRUE) {
lik <- logLik(model)[1]
gof <- c(gof, lik)
gof.names <- c(gof.names, "Log Likelihood")
gof.decimal <- c(gof.decimal, TRUE)
}
if (include.deviance == TRUE) {
dev <- deviance(s)
if (!is.null(dev)) {
gof <- c(gof, dev)
gof.names <- c(gof.names, "Deviance")
gof.decimal <- c(gof.decimal, TRUE)
}
}
if (include.nobs == TRUE) {
n <- nrow(model$data)
gof <- c(gof, n)
gof.names <- c(gof.names, "Num. obs.")
gof.decimal <- c(gof.decimal, FALSE)
}
tr <- createTexreg(coef.names = coefficient.names, coef = coefficients,
se = standard.errors, pvalues = significance, gof.names = gof.names,
gof = gof, gof.decimal = gof.decimal)
return(tr)
}
...
}
それでも問題が解決しない場合は、任意のモデルに対して独自のメソッドを定義する方法について説明している記事のセクション 6texreg
を読んだりextract
、パッケージの作成者 (Philip Leifeld) に書いてサポートを追加してもらったりすることをお勧めします。 .