我希望在观星器中回归输出的意义与“正常输出”相同。
我产生数据
library("stargazer"); library("lmtest"); library("sandwich")
set.seed(1234)
df <- data.frame(y=1001:1100)
df$x <- c(1:70,-100:-71) + rnorm(100, 0, 74.8)
model <- lm(log(y) ~ x, data=df)
并获得一些模型估计,其中 x 的系数的 p 值为 0.1023
coeftest(model, vcov = vcovHC(model, type="HC3"))
我想在 LaTeX 中得到这些结果。基于相同的函数,我计算异方差一致的标准估计并让观星者使用它们。
stderr_HC3_model <- sqrt(diag(vcovHC(model, type = "HC3")))
stargazer(model, se=list(stderr_HC3_model))
当 alpha=10% 时,stargazer 输出在表示显着性的系数处有一个星号。我希望 stargazer 给出与 coeftest 相同的值。(因为 reg L_y x, vce(hc3) 与 Stata 具有可比性,因此恰好给出了 coeftest 结果。)
我玩过 stargazer 选项 p.auto、t.auto,但没有帮助。当我执行“stargazer”时,我无法查看底层代码,因为在其他情况下是可能的。该怎么办?
理查兹的回答帮助了我。我指出了我用来给出多个回归的步骤(比如说 ols_a 和 ols_b)。
ses <- list(coeftest(ols_a, vcov = vcovHC(ols_a, type="HC3"))[,2],
coeftest(ols_b, vcov = vcovHC(ols_b, type="HC3"))[,2])
pvals <- list(coeftest(ols_a, vcov = vcovHC(ols_a, type="HC3"))[,4],
coeftest(ols_b, vcov = vcovHC(ols_b, type="HC3"))[,4])
stargazer(ols_a, ols_b, type="text", p=pvals, se=ses)