PROSAGA码农传奇-Tex-R：使用texreg从zelig tobit模型创建tex输出

<div class =“post-text”itemprop =“text”>
  
    看起来像
     <code>
 Zelig-tobit
 </code>
     对象的定义
     <code>
 Zelig
 </code>
     包只是包含的容器
     <code>
 tobit
 </code>
     对象的定义
     <code>
 AER
 </code>
     包等等。因此，您应该能够运行
     <code>
 texreg
 </code>
     在...上
     <code>
 tobit
 </code>
     包含在的对象
     <code>
 model
 </code>
    ：
  
   <pre>
 <code>
 screenreg(model$zelig.out$z.out[[1]])

</code>
 </pre>
  
    收益率：
  
   <pre>
 <code>
 ==========================
 Model 1 
--------------------------
(Intercept) -18.42 
 (16.34) 
b 0.49 
 (0.36) 
c 17.51 
 (11.49) 
Log(scale) 1.76 ***
 (0.49) 
--------------------------
AIC 33.55 
BIC 34.34 
Log Likelihood -12.78 
Deviance 9.46 
Total 9 
Left-censored 3 
Uncensored 3 
Right-censored 3 
Wald Test 2.35 
==========================
*** p < 0.001, ** p < 0.01, * p < 0.05

</code>
 </pre>
  
    可以写一个
     <code>
 extract
 </code>
     自动执行此操作的方法。这是一个例子：
  
   <pre>
 <code>
 # extension for Zelig-tobit objects (Zelig package)
extract.Zeligtobit <- function(model, include.aic = TRUE, include.bic = TRUE, 
 include.loglik = TRUE, include.deviance = TRUE, include.nobs = FALSE, 
 include.censnobs = TRUE, include.wald = TRUE, ...) {
 e <- extract(model$zelig.out$z.out[[1]], include.aic = include.aic, 
 include.bic = include.bic, include.loglik = include.loglik, 
 include.deviance = include.deviance, include.nobs = include.nobs, 
 include.censnobs = include.censnobs, include.wald = include.wald, ...)
 return(e)
}

setMethod("extract", signature = className("Zelig-tobit", "Zelig"), 
    definition = extract.Zeligtobit)

</code>
 </pre>
  
    现在你可以写：
  
   <pre>
 <code>
 screenreg(model)

</code>
 </pre>
  
    产生与上面相同的输出。
  
  
    我从未完全理解为什么人们会使用
     <code>
 Zelig
 </code>
     而不是像原来的包
     <code>
 AER
 </code>
    。
     <code>
 Zelig
 </code>
     仅为其他现有的估计函数提供包装器，从而以不必要的方式使数据结构复杂化。例如，你为什么不只是使用
     <code>
 AER
 </code>
     包？
  
</DIV>