# 7. Exercices du poly Premiers pas ----

## 7.1 Créations de vecteurs ----
### a. Vecteur x ----
x<-c(120,134,256,12)# Création du vecteur x
x # Affichage du vecteur x 
## [1] 120 134 256  12
### b. Vecteurs y et z ----
y<-x+100 # Création du vecteur y=x+100
y # Affichage du vecteur y
## [1] 220 234 356 112
z<-x*2 # Création du vecteur z=2*x
z # Affichage du vecteur z
## [1] 240 268 512  24
## 7.2 Revenus des ménages ----
### a. Création des trois vecteurs ----
conjoint1<-c(1200,1180,1750,2100)
conjoint2<-c(1450,1870,1690,0)
nb_personnes<-c(4,2,3,2)
conjoint1 # Affichage de conjoint1
## [1] 1200 1180 1750 2100
conjoint2 # Affichage de conjoint2
## [1] 1450 1870 1690    0
nb_personnes # Affichage de nb_personnes
## [1] 4 2 3 2
### b. Affichage des données relatives au ménage n?3 ----
conjoint1[3]
## [1] 1750
conjoint2[3]
## [1] 1690
nb_personnes[3]
## [1] 3
### c. Calcul de deux indicateurs: revenu total et revenu par personne ----
rtot<-(conjoint1+conjoint2) # Calcul du revenu total nommé rtot
rpers<-(rtot/nb_personnes) # Calcul du revenu par personne nommé rpers
rtot # Affichage du vecteur rtot
## [1] 2650 3050 3440 2100
round(rpers,1) # Affichage du vecteur rpers avec 1 décimale (utilisation de la fonction round)
## [1]  662.5 1525.0 1146.7 1050.0
range(conjoint1) # Affichage des valeurs minimale et maximale du vecteur conjoint1
## [1] 1180 2100
range(conjoint2) # Affichage des valeurs minimale et maximale du vecteur conjoint2
## [1]    0 1870
## 7.3 Températures et précipitations lyonnaises ----
### a. Créations des deux vecteurs températures et précipitations ----
temperatures<-c(3.4,4.8,8.4,11.4,15.8,19.4,22.2,21.6,17.6,13.4,7.6,4.4)
precipitations<-c(47.2,44.1,50.4,74.9,90.8,75.6,63.7,62,87.5,98.6,81.9,55.2)
temperatures # Affichage du vecteur temperatures
##  [1]  3.4  4.8  8.4 11.4 15.8 19.4 22.2 21.6 17.6 13.4  7.6  4.4
precipitations # Affichage du vecteur precipitations
##  [1] 47.2 44.1 50.4 74.9 90.8 75.6 63.7 62.0 87.5 98.6 81.9 55.2
### b. Calcul de la température moyenne sur l'année ----
moytemp<-mean(temperatures) # Calcul de la température moyenne et sauvegarde dans un objet moytemp
moytemp # Affichage du calcul
## [1] 12.5
### c. Calcul de la quantité totale de précipitations sur l'année ----
sum(precipitations) # Calcul et affichage de la quantité totale de précipitations sur l'année
## [1] 831.9
### d. Fonction cumsum ----
cumsum(precipitations)
##  [1]  47.2  91.3 141.7 216.6 307.4 383.0 446.7 508.7 596.2 694.8 776.7 831.9
help(cumsum) # Affichage de l'aide sur la fonction help
## démarrage du serveur d'aide httpd ... fini
# Il s'agit de la somme cumulée des températures mois par mois.
cumulprecipit<-cumsum(precipitations)# Création d'un vecteur qui récupère les cumuls
cumulprecipit[6]# Affichage de la valeur au mois de juin. 
## [1] 383
# Commentaire : au mois de juin, il est tombé en moyenne 383 mm depuis le début de l'année, soit un peu moins de la moitié du total annuel de précipitations (832)
### e. Fonction diff ----
diff(temperatures)
##  [1]  1.4  3.6  3.0  4.4  3.6  2.8 -0.6 -4.0 -4.2 -5.8 -3.2
help(diff) # Affichage de l'aide sur la fonction diff
# Commentaire : il s'agit de la différence de température un mois sur l'autre. 
# Par exemple le mois de février enregistre une température de 1,4 degrés de plus que celle du mois de janvier.
# Le mois de novembre enregistre une température de 5,8 degrés de moins que celle du mois d'octobre.
## 7.4 Notes d'un groupe d'élèves ----
### a. Création de trois vecteurs pour stocker les notes dans trois matières ----
maths<-c(12,16,8,18,6,10) # Notes de maths
anglais<-c(14,9,13,15,17,11) # Notes d'anglais
sport<-c(18,11,14,10,8,12) # Notes de sport
# Affichage des trois vecteurs créés
maths
## [1] 12 16  8 18  6 10
anglais
## [1] 14  9 13 15 17 11
sport
## [1] 18 11 14 10  8 12
### b. Calcul de la moyenne des élèves dans les trois matières ----
mean(maths) # Moyenne des élèves en maths
## [1] 11.66667
mean (anglais) # Moyenne des élèves en anglais
## [1] 13.16667
mean (sport) # Moyenne des élèves en sport
## [1] 12.16667
### c. Calcul de la moyenne générale de chaque élève ----
moygen<-(maths+anglais+sport)/3 # Création d'un vecteur mpye gen qui calcule la moyenne générale pour chaque élève (somme des 3 notes divisée par 3)
moygen # Affichage des moyennes générales des 6 élèves
## [1] 14.66667 12.00000 11.66667 14.33333 10.33333 11.00000
### d. Interprétation des fonctions pmin et pmax ----
help(pmin)# Affichage de l'aide sur la fonction pmin
help(pmax)# Affichage de l'aide sur la fonction pmax
pmin(maths,anglais,sport)# Il s'agit de la note la plus faible obtenue pour chaque élève
## [1] 12  9  8 10  6 10
pmax(maths,anglais, sport)# Il s'agit de la note la plus élève obtenue par chaque élève
## [1] 18 16 14 18 17 12