texreg-ING从泽里格柯包托比特输出(R)(texreg-ing Tobit output f

2019-10-22 11:41发布

这是一个奇怪的问题,但在这里有云:

我想我的产出模型结果与TeX的表texreg

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

不过,我碰到一个错误texreg

texreg(reg)

在错误.local(model, ...)只有以下型号泽里格柯目前支持:对数,LS,mlogit,ologit,概率,relogit。

我的问题基本上是:这是一个错误Zeligtexreg

Answer 1:

更新2015-07-20:

extract.zelig现在有一个tobit方法( Zelig_4.2-1

所以texreg(reg)现在可以按预期。 无论如何,我会留在下面的后人。


在确定了问题的根源,我更新了extract.zelig方法,并通过这一起包创建者/维护者菲利普Leifield,谁纳入最新的R-Forge的版本(可通过install.packages("texreg", repos="http://R-Forge.R-project.org") 我不知道这是在当前CRAN发布(2015年4月7日)...

下面是我们需要增加:

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)
    }


文章来源: texreg-ing Tobit output from zelig package (R)
标签: r texreg r-zelig