Stargazer和gam - 如何包含整个摘要输出？

Question

当使用平滑样条函数拟合广义加法模型时，只返回主效应，而不是在summary(pros.gam)中可以看到的平滑项。观星者还可以归还这些吗？或者是否有其他功能或包可以完成这项工作？

library(ElemStatLearn)
library(mgcv)
library(stargazer)

pros.gam=gam(lpsa~s(lcavol)+s(lweight)+s(age)+s(lbph)+svi
+s(lcp)+gleason+s(pgg45),data=prostate)

summary(pros.gam) # Table should include the smooth terms that are visible here
stargazer(pros.gam,summary=TRUE)

Answer 1

toLatex包的utils完成了这项工作：

require(utils)
toLatex(summary(pros.gam)$s.table) 

输出：

# \begin{tabular}{lD{.}{.}{7}D{.}{.}{7}D{.}{.}{7}D{.}{.}{7}}
# \toprule
 # & \multicolumn{1}{c}{edf} & \multicolumn{1}{c}{Ref.df} & \multicolumn{1}{c}{F} & \multicolumn{1}{c}{p-value} \\
# \midrule
# s(lcavol) & 1.0000000 & 1.0000000 & 48.8654347 & 0.0000000 \\
# s(lweight) & 7.4334733 & 8.3759397 & 2.9521585 & 0.0054553 \\
# s(age) & 1.7609527 & 2.1888342 & 3.2466098 & 0.0402275 \\
# s(lbph) & 1.7480193 & 2.1293872 & 2.3329425 & 0.0998080 \\
# s(lcp) & 3.3087460 & 4.0189658 & 1.3792509 & 0.2484695 \\
# s(pgg45) & 1.1277962 & 1.2388741 & 0.2681440 & 0.6563885 \\
# \bottomrule
# \end{tabular}

Answer 2

我在转换GAM模型（mgcv包）的输出时遇到了同样的问题，我得到了我想要的R. Harald Baayen撰写的“itsadug”包。

将模型摘要转换为Latex / HTML表格，以获取knitr / R Markdown报告。

data(simdat)

Model with random effect and interactions:

m1 <- bam(Y ~ Group+te(Time, Trial, by=Group),data=simdat)
summary(m1)
gamtabs(m1, caption='Summary of m1')

See for more examples:

vignette("inspect", package="itsadug")