Bonjour,
je cherche à travers ceci, la valeur du coefficient de corrélation mais je ne trouve pas... je débute. Merci beaucoup

> str(exo1)
'data.frame': 30 obs. of 2 variables:
$ Age : int 46 52 39 65 54 33 49 76 71 41 ...
$ Cholest: int 181 228 182 249 259 201 121 339 224 112 ...
> plot(exo1)
> modele1<-lm(Cholest~Age,data=exo1)
> summary(modele1)
Call:
lm(formula = Cholest ~ Age, data = exo1)
Residuals:
Min 1Q Median 3Q Max
4

-56.065 -19.591 -5.367 18.701 43.491
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 124.3189 15.2562 8.149 7.17e-09 ***
Age 1.6887 0.2982 5.663 4.56e-06 ***
---
Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Residual standard error: 26.25 on 28 degrees of freedom
Multiple R-squared: 0.5338, Adjusted R-squared: 0.5172
F-statistic: 32.06 on 1 and 28 DF, p-value: 4.555e-06
> anova(modele1)
Analysis of Variance Table
Response: Cholest
Df Sum Sq Mean Sq F value Pr(>F)
Age 1 22099 22098.9 32.064 4.555e-06 ***
Residuals 28 19298 689.2
---
Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
> residus<-residuals(modele1)
> shapiro.test(residus)
Shapiro-Wilk normality test
data: residus
W = 0.9605, p-value = 0.3197