如何使用 memisc 库中的 getSummary 舍入回归系数?

How to round regression coefficients using getSummary from memisc library?

我正在使用 memisc 库中的 getSummary 进行一些基本的回归分析。脚本如下所示:

lm0 <- lm(formula = X~Y, data=dataframe)
lm1 <- lm(formula = X~Y+Z, data=dataframe)

getSummary(lm0, alpha=.05)
getSummary(lm1, alpha=.05)

输出如下所示:

$sumstat
        sigma     r.squared adj.r.squared             F 
 1.312559e+00  4.612393e-02  4.520586e-02  5.024003e+01 
        numdf         dendf             p        logLik 
 1.000000e+00  1.039000e+03  2.508404e-12 -1.759244e+03 
     deviance           AIC           BIC             N 
 1.790001e+03  3.524488e+03  3.539332e+03  1.041000e+03 

我不知道如何将回归系数四舍五入成如下所示:

    $sumstat
 r.squared     adj.r.squared             
 4.6           4.5

感谢您的帮助。

getSummary的输出只是一个list,所以

s = getSummary(lm1, alpha=.05)
## Extract values
values = s$sumstat[c("r.squared", "adj.r.squared")]
## Round 
round(values, 2)