r - R の係数 G 値を抽出する

Question

results <- 

Call:
lm(formula = log(Y) ~ G)

Coefficients:


(Intercept)            G  
     1.6122       0.5647  


$`3388.415_6`

Call:
lm(formula = log(Y) ~ G)

Coefficients:


(Intercept)            G  
      1.994       -2.178  

RでそれからG値を取得する方法は?

Answer 1

コードが意味をなさないため、質問を正しく編集したかどうかはわかりませんが、おそらくこれは望ましい答えのようになるでしょう:

G <- 1:10
Gmod <- lm( rnorm(10) ~ G) ; Gmod
coef(Gmod)["G"]

リスト構造に多くのモデルオブジェクトがある場合、おそらくこれでうまくいくでしょう:

> lapply( list(Gmod, Gmod), function(mdo) coef(mdo)["G"] )
[[1]]
         G 
0.04917535 

[[2]]
         G 
0.04917535 

(リストのインデックスとして浮動小数点数を使用しているのではないかと心配しています。これは、以前の手順で何か問題が発生した可能性があることを示唆しています。)