data = csvRead("data.csv");

// Pour réaliser la regression linaire du taux de mortalité infantile en fonction du taux de natalité 
// on reprend le code la question précédente mais en utilisant les collones correspondantes 

X = mtlb_t(data(:,4)); // natalité
Y = mtlb_t(data(:,7)); // mortalité infantile

plot2d(X,Y,-1);

[a,b] = reglin(X, Y);
plot(X,a*X+b);
title("Regression lineaire du taux de mortalité infantile en fonction du taux de natalité");
xlabel("Taux de natalité");
ylabel("Taux de mortalité infantile");
xs2png(0,"ex4/img/ex4-2.png");

// Calcul de coefficient de correlation

coefficient_correlation = correl(X,Y);

mprintf("Coefficient de correlation : %.2f\n", coefficient_correlation);