Ajout question 1 exo 4

Exo4/Question1.sce

@@ -0,0 +1,16 @@
+data = csvRead("data/data.csv");
+
+//Taux de fécondité
+tauxFec = data(:, 8);
+
+//Proportion de moins de 15 ans
+propMoins15 = data(:, 9);
+
+//regression
+[a, b] = reglin(tauxFec', propMoins15');
+
+//affichage
+plot2d(tauxFec, propMoins15, -1);
+plot(tauxFec', a*tauxFec' + b);
+xtitle("Proportion de moins de 15 ans en fonction du taux de fécondité", "Taux de fécondité (enfants par femme)", "Proportion de moins de 15 ans (en %)");
+legend(["Nuage de points", "Régression linéaire"]);