function Y = plotCor(x, y, nomx, nomy)
% Trace x en fnction de y et la regression lineaaire, retourne le
% coefficient de correlation. Si x et y sont de tailles differentes, prend
% la plus petite taille des deux vecteurs. nomx et nomy sont les noms des
% axes x et y.


%suppression des NaNs
x = x(~isnan(x));
y = y(~isnan(y));
lx = length(x);
ly = length(y);
if lx > ly
    x = x(1:ly);
end
if lx < ly
    y = y(1:lx);
end
plot(x, y, '.');
Y = addLinFit(x, y);
xlabel(nomx);
ylabel(nomy);
title(['R = ' num2str(Y)])

