更新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'不支持'tobit'模型。如果你只想要係數,你可以嘗試'xtable :: xtable(summary(reg)$ table)' – user20650 2015-04-02 01:15:50
你怎麼知道這不是'Zelig'中產生的錯誤? – MichaelChirico 2015-04-02 01:16:47
,因爲在運行命令'texreg'後出現錯誤。 'zelig'函數執行,不是? 'texreg'看起來好像只是將模型輸出轉換爲膠乳 - 但不支持所有型號 – user20650 2015-04-02 01:19:52