Data;
Inflation = Data(:,2);
FFR = Data(:,3);
GDP = Data(:,4);
I = table2array(Inflation);
F = table2array(FFR);
G = table2array(GDP);
B = 0;
B2 = 0;
B3 = 0;

Imean = mean(I)
Fmean = mean(F)
Gmean = mean(G)
Istd = std(I)
Fstd = std(F)

for i=1:51
    A =(I(i)-Imean)*(F(i)-Fmean);
    B =B+A;
end
CovIF=B/50

for i=1:51
    A2 =(I(i)-Imean)^2;
    B2 =B2+A2;
end
VarI=B2/50

for i=1:51
    A3 =(F(i)-Fmean)^2;
    B3 =B3+A3;
end
VarF=B3/50

CoeffIF=(CovIF)/(sqrt(VarI)*sqrt(VarF))