Code:
> getwd()
#[1] "C:/Program Files/R/rw1091"
> getwd()
#[1] "C:/Documents and Settings/etudiant/Mes documents/R_STAT_2"
> t<-read.table('deug.txt')
> t
V1 V2 V3 V4
1 Etudiant Mention P1(janv) P2(juin)
2 1 P 10 12
3 2 AB 16 10
4 3 P 9 13
5 4 AB 13 9
6 5 B 15 13
7 6 P 7 14
8 7 P 6 8
9 8 AB 14 7
10 9 P 8 10
11 10 P 13 15
12 11 AB 13 13
13 12 P 12 8
14 13 P 9 10
15 14 B 17 18
Edit
Data Editor...
t
> V1<-t[,1]
> V2<-t[,2]
> V3<-t[,3]
> V4<-t[,4]
> cat('moyenne:',mean(V3),'\n'); cat('mediane :',median(V3),'\n'); cat('1er quartile :',quantile(V3,0.25),'\n'); cat('2e quartile :',quantile(V3,0.5),'\n'); cat('3e quartile :',quantile(V3,0.75),'\n'); quantile(V3,0.1); quantile(V3,0.2); var(V3); sd(V3);
moyenne: 11.57143
mediane : 12.5
1er quartile : 9
2e quartile : 12.5
3e quartile : 13.75
10%
7.3
20%
8.6
[1] 11.80220
[1] 3.435433
> cat('moyenne:',mean(V4),'\n'); cat('mediane :',median(V4),'\n'); cat('1er quartile :',quantile(V4,0.25),'\n'); cat('2e quartile :',quantile(V4,0.5),'\n'); cat('3e quartile :',quantile(V4,0.75),'\n'); quantile(V4,0.1); quantile(V4,0.2); var(V4); sd(V4);
moyenne: 11.42857
mediane : 11
1er quartile : 9.25
2e quartile : 11
3e quartile : 13
10%
8
20%
8.6
[1] 9.648352
[1] 3.106180
>
> cat('coefficient de corrrelation lineaire empirique :',cor(V3,V4), '\n')
coefficient de corrrelation lineaire empirique : 0.270836
>
POUR OBTENIR LES MODES DE P1 et P2
> hist(V3)
> hist(V4)