# HG changeset patch
# User jwe
# Date 1036077057 0
# Node ID 4e8255035e84439b79ccc9cb7c5011e0f8824160
# Parent  c06ee5520e4f82075235fb1ef23504a0b1ead4fb
[project @ 2002-10-31 15:10:57 by jwe]

diff --git a/scripts/ChangeLog b/scripts/ChangeLog
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,3 +1,7 @@
+2002-10-31  Francesco Potorti` <pot@gnu.org>
+
+	* statistics/distributions/discrete_pdf.m: Fix typo.
+
 2002-10-09  John W. Eaton  <jwe@bevo.che.wisc.edu>
 
 	* mkdoc: Exit immediately on errors.
diff --git a/scripts/statistics/distributions/discrete_pdf.m b/scripts/statistics/distributions/discrete_pdf.m
--- a/scripts/statistics/distributions/discrete_pdf.m
+++ b/scripts/statistics/distributions/discrete_pdf.m
@@ -57,7 +57,7 @@
   k = find (!isnan (x));
   if (any (k))
     n = length (k);
-    pdf (k) = ((x(k) * ones (1, m)) == (ones (n, 1) * v)) * P;
+    pdf (k) = ((x(k) * ones (1, m)) == (ones (n, 1) * v)) * p;
   endif
 
   pdf = reshape (pdf, r, c);