function [r,a,b] = calcul_parametres(X,Y)

    X_barre = mean(X);
    Y_barre = mean(Y);

    var_X = mean((X - X_barre).^2);
    var_Y = mean((Y - Y_barre).^2);

    et_X = sqrt(var_X);
    et_Y = sqrt(var_Y);

    covX_Y = mean((X - X_barre).*(Y - Y_barre));

    a = covX_Y / var_X;
    b = Y_barre - a * X_barre;
    r = covX_Y / (et_X * et_Y);

end