comparison toolboxes/distance_learning/mlr/metricPsi/metricPsiMRR.m @ 0:cc4b1211e677 tip

initial commit to HG from
Changeset:
646 (e263d8a21543) added further path and more save "camirversion.m"

+function S = metricPsiMRR(q, y, n, pos, neg)
+%
+%   S = metricPsiMRR(q, y, n, d, pos, neg)
+%
+%   q   = index of the query point
+%   y   = the ordering to compute
+%   n   = number of points in the data set
+%   pos = indices of relevant results for q
+%   neg = indices of irrelevant results for q
+%
+%   S is the vector of weights for q
+
+    yp          = ismember(y, pos);
+    % Truncate yp after the first 1
+    yp(find(yp,1)+1:end) = 0;
+    NumPOS      = sum(yp);
+    PosAfter    = NumPOS - cumsum(yp);
+
+    yn          = ~yp;
+    NumNEG      = sum(yn);
+    NegBefore   = cumsum(yn) - yn;
+
+    S = zeros(n,1);
+
+    S(y)    = 2 * (yp .* NegBefore - yn .* PosAfter) / (NumNEG * NumPOS);
+
+end