如何将打印数据保存到数据框

如何将打印的信息保存到数据框中？我需要包括*列。

ss <- coef(summary(model3))
pv <- ss[,"Pr(>|t|)"]
Signif <- symnum(pv, corr = FALSE, na = FALSE, 
                 cutpoints = c(0, 0.001, 0.01, 0.05, 0.1, 1), 
                 symbols = c("***", "**", "*", ".", " "))
printCoefmat(ss)