% Rappresentare graficamente la soglia oltre il quale il valore di rxy è
% ritenuto significativo al livello del 5% in funzione della numerosità
% campionaria
 
nn=5:1000;
tinvalpha2=(tinv(0.975,nn-2)).^2;
soglia=sqrt(tinvalpha2./(nn-2+tinvalpha2));
plot(nn,soglia)
ylabel('Valore soglia per la significatività di r al 5%')
xlabel('Numerosità campionaria')