如何使用memisc库中的getSummary对回归系数进行取整？

我正在使用

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

我不知道的是如何将region系数四舍五入为如下所示：

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的输出只是一个

列表，所以

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

感谢您提供此解决方案，但它所做的事情略有不同。现在输出如下：
r.squared 0.05
。但是我想要的东西看起来像这个
r.squared 4.5
r.squared是一个介于0和1之间的值。如果你想要一个介于0和100之间的值，那么把它乘以100-
values*100
我有一个相关的问题。我如何创建一个将回归系数四舍五入应用于其他模型的函数？我是说lm1，lm2，lmx。