Comment obtenir la valeur de l'erreur quadratique moyenne dans une régression linéaire dans R


20

Soit un modèle de régression linéaire obtenu par la fonction R lm voudrait savoir s'il est possible de l'obtenir par la commande Mean Squared Error.

J'ai eu la sortie SUIVANTE d'un exemple

> lm <- lm(MuscleMAss~Age,data)
> sm<-summary(lm)
> sm

Call:
lm(formula = MuscleMAss ~ Age, data = data)

Residuals:
     Min       1Q   Median       3Q      Max 
-16.1368  -6.1968  -0.5969   6.7607  23.4731 

Coefficients:
            Estimate Std. Error t value Pr(>|t|)    
(Intercept) 156.3466     5.5123   28.36   <2e-16 ***
Age          -1.1900     0.0902  -13.19   <2e-16 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1   1

Residual standard error: 8.173 on 58 degrees of freedom
Multiple R-squared:  0.7501,    Adjusted R-squared:  0.7458 
F-statistic: 174.1 on 1 and 58 DF,  p-value: < 2.2e-16

Plusieurs R au carré est l'erreur de somme des carrés? si la réponse est non, cela pourrait expliquer la signification de Multiple R-carré et Multiple R-carré

Réponses:


25

Le multiple R au carré que R rapporte est le coefficient de détermination , qui est donné par la formule

R2=1-SSresSStot.

La somme des erreurs quadratiques est donnée (grâce à une réponse précédente ) par sum(sm$residuals^2).

L'erreur quadratique moyenne est donnée par mean(sm$residuals^2). Vous pouvez écrire une fonction pour calculer cela, par exemple:

mse <- function(sm) 
    mean(sm$residuals^2)

5
sm$sigma^2 * sm$fstatistic[3]/(1+sum(sm$fstatistic[2:3]))8.173581+18.1732×58/(1+1+58)=64,57 .
whuber

6
Antépénultième est un grand mot.
2014

1
Comme d'habitude, une manière beaucoup plus soignée est d'écriremse <- function(sm) mean(sm$residuals^2)
Marius Hofert

4
> N'est-ce pas que l'erreur quadratique moyenne est donnée par les résidus ^ 2 / erreur df de la table ANOVA au lieu de la moyenne (résidus ^ 2). Ce dernier est le carré d'erreur de prédiction moyenne. Je ne sais pas si je manque de compréhension. Désolé, je n'ai pas assez de points de réputation pour poster un commentaire.
SrikanthRaja

1
Mais je suis d'accord avec ce que user45409 a dit. D'après ce que j'ai appris, MSE = résidus ^ 2 / erreur df.
vtshen
En utilisant notre site, vous reconnaissez avoir lu et compris notre politique liée aux cookies et notre politique de confidentialité.
Licensed under cc by-sa 3.0 with attribution required.