web-dev-qa-db-fra.com

Extraire la valeur du carré R avec R dans les modèles linéaires

Je sais que l'utilisation de summary m'aidera à le faire manuellement, cependant, je devrai calculer des tonnes de valeurs R au carré. Par conséquent, j'ai besoin de l'ordinateur pour l'extraire pour moi. Voici un exemple simple:

library(alr3)
M.lm=lm(MaxSalary~Score,data=salarygov)
#Here you will see the R square value
summary(M.lm)

Comment puis je faire ça?

rlm
35
Zander

Le carré R, le carré R ajusté et toutes les autres valeurs que vous voyez dans le résumé sont accessibles à partir de l'objet résumé. Vous pouvez tout voir en utilisant str(summary(M.lm)):

> str(summary(M.lm))  # Truncated output...
List of 11
 $ call         : language lm(formula = MaxSalary ~ Score, data = salarygov)
 $ terms        :Classes 'terms', 'formula' length 3 MaxSalary ~ Score
 ...
 $ residuals    : Named num [1:495] -232.3 -132.6 37.9 114.3 232.3 ...
 $ coefficients : num [1:2, 1:4] 295.274 5.76 62.012 0.123 4.762 ...
 $ aliased      : Named logi [1:2] FALSE FALSE
 $ sigma        : num 507
 $ df           : int [1:3] 2 493 2
 $ r.squared    : num 0.817
 $ adj.r.squared: num 0.816
 $ fstatistic   : Named num [1:3] 2194 1 493
 $ cov.unscaled : num [1:2, 1:2] 1.50e-02 -2.76e-05 -2.76e-05 5.88e-08

Pour obtenir la valeur R au carré, tapez summary(M.lm)$r.squared ou summary(M.lm)$adj.r.squared

65
Andrew

Avec un seul prédicteur, vous pouvez simplement utiliser cor(salarygov$MaxSalary ,salarygov$Score)^2. Alternativement, summary(M.lm)$r.squared.

7
Roland

Cela dépend de celui qui vous intéresse:

 # adjusted R²
 summary(M.lm)$adj.r.squared
 # R²
 summary(M.lm)$r.squared
1
droopy