アールメカブ

• バックアップ一覧
• 現在との差分 を表示
• ソース を表示
• バックアップ を表示
• R_str へ行く。
  • 1 (2007-10-08 (月) 12:14:48)
  • 2 (2007-10-08 (月) 12:18:58)

• 追加された行はこの色です。
• 削除された行はこの色です。

[[Rの備忘録]]

*str()関数でオブジェクトの構造を見る． [#a819bf05]

例えば lm オブジェクトであれば

> str(summary(alice.g.lm))
List of 11
 $ call         : language lm(formula = log(alice.g$Types) ~ log(alice.g$Tokens))
 $ terms        :Classes 'terms', 'formula' length 3 log(alice.g$Types) ~ log(alice.g$Tokens)
  .. ..- attr(*, "variables")= language list(log(alice.g$Types), log(alice.g$Tokens))
  .. ..- attr(*, "factors")= int [1:2, 1] 0 1
  .. .. ..- attr(*, "dimnames")=List of 2
  .. .. .. ..$ : chr [1:2] "log(alice.g$Types)" "log(alice.g$Tokens)"
  .. .. .. ..$ : chr "log(alice.g$Tokens)"
  .. ..- attr(*, "term.labels")= chr "log(alice.g$Tokens)"
  .. ..- attr(*, "order")= int 1
  .. ..- attr(*, "intercept")= int 1
  .. ..- attr(*, "response")= int 1
  .. ..- attr(*, ".Environment")=<R_GlobalEnv> 
  .. ..- attr(*, "predvars")= language list(log(alice.g$Types), log(alice.g$Tokens))
  .. ..- attr(*, "dataClasses")= Named chr [1:2] "numeric" "numeric"
  .. .. ..- attr(*, "names")= chr [1:2] "log(alice.g$Types)" "log(alice.g$Tokens)"
 $ residuals    : Named num [1:40] -0.09344 -0.01558  0.01508  0.00604 -0.00784 ...
  ..- attr(*, "names")= chr [1:40] "1" "2" "3" "4" ...
 $ coefficients : num [1:2, 1:4]  1.81553  0.59876  0.04097  0.00442 44.31240 ...
  ..- attr(*, "dimnames")=List of 2
  .. ..$ : chr [1:2] "(Intercept)" "log(alice.g$Tokens)"
  .. ..$ : chr [1:4] "Estimate" "Std. Error" "t value" "Pr(>|t|)"
 $ aliased      : Named logi [1:2] FALSE FALSE
  ..- attr(*, "names")= chr [1:2] "(Intercept)" "log(alice.g$Tokens)"
 $ sigma        : num 0.0241
 $ df           : int [1:3] 2 38 2
 $ r.squared    : num 0.998
 $ adj.r.squared: num 0.998
 $ fstatistic   : Named num [1:3] 18362     1    38
  ..- attr(*, "names")= chr [1:3] "value" "numdf" "dendf"
 $ cov.unscaled : num [1:2, 1:2]  2.8898 -0.3103 -0.3103  0.0336
  ..- attr(*, "dimnames")=List of 2
  .. ..$ : chr [1:2] "(Intercept)" "log(alice.g$Tokens)"
  .. ..$ : chr [1:2] "(Intercept)" "log(alice.g$Tokens)"
 - attr(*, "class")= chr "summary.lm"
<

の出力から調整済み &mathml(R^2); を取り出すには

 summary(alice.g.lm)$adj.r.squared

とすればよい．