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 

このように見えるようにregession係数を四捨五入する方法である：

$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)