通过修改相应的提取功能，将诊断测试结果包含在texreg表中相对简单。例如，我在extract.lm函数中添加了有关KPSS单位根测试的部分：
if (include.kpss == TRUE) {
KPSS_mu <- summary(ur.kpss(s$residuals, type = "mu"))
kpss <- KPSS_mu@teststat
gof <- c(gof, kpss)
gof.names <- c(gof.names, "KPSS")
gof.decimal <- c(gof.decimal, TRUE)
}
我想更进一步，在检验统计量中添加显着性星号，这样就可以立即看到是否否定了假设。 texreg默认情况下会为估计系数提供显着性星，但是我还没有找到一种方法将其纳入拟合优度部分。有没有人试图相应地修改texreg？