data = csvRead("data.csv");
// Pour réaliser la regression linaire du taux de mortalité infantile en fonction du taux du revenus
// on reprend le code la question précédente mais en utilisant les collones correspondantes 

X = find(data(:,13)>=0); // Revenus 

XX = mtlb_t(data(X,13));
YY = mtlb_t(data(X,7));

plot2d(XX,YY,-1);
title("Revenus en fonction du taux de mortalité infantile");
xlabel("Taux de mortalité infantile");
ylabel("Revenus");
xs2png(0,"ex4/img/ex4-3.png");

// Calcul de coefficient de correlation

coefficient_correlation = correl(XX,YY);

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