來自zelig package（R）的turit-ing Tobit輸出

Question

這是一個奇怪的問題，但這里有：

我試圖將我的模型結果輸出到帶有texreg的TeX表中。

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

但是，我從texreg收到錯誤：

texreg(reg)

.local(model, ...)出錯：目前僅支持以下Zelig模型：logit，ls，mlogit，ologit，probit，relogit。

我的問題基本上是：這是來自Zelig還是來自texreg的錯誤？

Answer 1

更新2015-07-20：

extract.zelig現在有一個tobit方法（ Zelig_4.2-1 ）

因此， texreg(reg)現在按預期工作。 無論如何，我會留下下面的后代。

---

確定了問題的根源后，我更新了extract.zelig方法並將其傳遞給包創建者/維護者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)
    }