diff --git a/Exo4/Question3.sce b/Exo4/Question3.sce
new file mode 100644
index 0000000..052dffd
--- /dev/null
+++ b/Exo4/Question3.sce
@@ -0,0 +1,17 @@
+//Revenu
+revenu = data(find(data(:,13) >=0), 13);
+
+//Taux de mortalité infantile
+tauxMortaliteInfantile = data(find(data(:,13) >=0), 7);
+
+//coefficient de correlation
+r = correl(revenu, tauxMortaliteInfantile);
+mprintf("Coefficient de correlation : %f\n", r);
+
+[a, b] = reglin(revenu', tauxMortaliteInfantile');
+
+//affichage
+plot2d(revenu, tauxMortaliteInfantile, -1);
+plot(revenu', a*revenu'+b);
+xtitle("Taux de mortalité infantile en fonction du revenu", "Revenu national brut ppa par habitant (en $US)", "Taux de mortalité infantile (pour 1000 naissances)");
+legend(["Nuage de points", "Régression linéaire"]);
diff --git a/image/tauxmortarevenu.jpg b/image/tauxmortarevenu.jpg
new file mode 100644
index 0000000..239c44a
Binary files /dev/null and b/image/tauxmortarevenu.jpg differ