Mercurial > hg > octave-lyh

diff scripts/statistics/distributions/discrete_pdf.m @ 11156:83da69c6e7be

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Sort values in discrete_pdf before calling lookup
author David Bateman <dbateman@free.fr>
date Mon, 25 Oct 2010 21:36:29 +0200
parents 1c6ff93c025a
children 1740012184f9
line wrap: on
line diff
--- a/scripts/statistics/distributions/discrete_pdf.m
+++ b/scripts/statistics/distributions/discrete_pdf.m
@@ -53,7 +53,8 @@
   k = find (!isnan (x));
   if (any (k))
     n = length (k);
-    pdf (k) = p (lookup (v, x(k), 'm'));
+    [vs, vi] = sort (v);
+    pdf (k) = p (vi(lookup (vs, x(k), 'm')));
   endif
 
 endfunction