r-如何使用memisc库中的getSummary对回归系数进行舍入

Question

我正在使用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

谢谢你的帮助。

Answer 1

getSummary的输出只是一个list，因此

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