Code covered by the BSD License  

Highlights from
Exercises in Advanced Risk and Portfolio Management

from Exercises in Advanced Risk and Portfolio Management by Attilio Meucci
text and comments on solutions available at http://symmys.com/node/170

Goodness(Who,M)
function g = Goodness(Who,M)

Cov_FF_k=M.Cov_FF(Who,Who);
Cov_XF_k=M.Cov_XF(:,Who);
minCov_U=Cov_XF_k*(Cov_FF_k\(Cov_XF_k')); % abriged version of variance of error
g=trace(minCov_U);                        % abridged version of r^2


Contact us at files@mathworks.com