1

これは奇妙な質問ですが、次のようになります。

モデルの結果を TeX テーブルに出力しようとしていますtexreg。

reg <- zelig(Y ~ X, model = "tobit", below = 0, above = Inf)

ただし、からエラーが発生しますtexreg：

texreg(reg)

エラー.local(model, ...): 現在、次の Zelig モデルのみがサポートされています: logit、ls、mlogit、ologit、probit、relogit。

私の質問は基本的に: これは からのエラーですか、Zeligそれとも からのエラーtexregですか?

4

1 に答える 1

3

更新 2015-07-20:

extract.zeligtobitメソッド ( Zelig_4.2-1)を持つようになりました

そのtexreg(reg)ため、期待どおりに動作するようになりました。とにかく後世のために以下を残します。

問題の原因を特定したので、extract.zeligメソッドを更新し、これをパッケージの作成者/メンテナである Philip Leifield に渡しました。Philip Leifield は最新の R-Forge バージョン ( から入手可能install.packages("texreg", repos="http://R-Forge.R-project.org")) に組み込みました。現在の CRAN リリース (2015-04-07) にあるかどうかはわかりません...

追加する必要があるのは次のとおりです。

else if ("tobit" %in% class(model)) {
        coefficient.names <- rownames(s$table)
        coefficients <- s$table[, 1]
        standard.errors <- s$table[, 2]
        significance <- s$table[, 5]
        gof <- numeric()
        gof.names <- character()
        gof.decimal <- logical()
        if (include.aic == TRUE) {
            aic <- AIC(model)
            gof <- c(gof, aic)
            gof.names <- c(gof.names, "AIC")
            gof.decimal <- c(gof.decimal, TRUE)
        }
        if (include.bic == TRUE) {
            bic <- BIC(model)
            gof <- c(gof, bic)
            gof.names <- c(gof.names, "BIC")
            gof.decimal <- c(gof.decimal, TRUE)
        }
        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.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)
    }
于 2015-04-07T22:56:30.010 に答える