# HG changeset patch
# User jwe
# Date 1111646162 0
# Node ID 28c69e8c0e856a0d4fd02d28ababc05a4b989f20
# Parent  937358a05a18f091ed41095bc725e2914b1a95dc
[project @ 2005-03-24 06:36:02 by jwe]

diff -r 937358a05a18 -r 28c69e8c0e85 scripts/ChangeLog
--- a/scripts/ChangeLog	Thu Mar 24 06:23:10 2005 +0000
+++ b/scripts/ChangeLog	Thu Mar 24 06:36:02 2005 +0000
@@ -1,3 +1,8 @@
+2005-03-24  Quentin Spencer  <qspencer@ieee.org>
+
+	* statistics/base/mean.m: Allow DIMS arg greater than the number
+	of dimensions of X.
+
 2005-03-23  John W. Eaton  <jwe@octave.org>
 
 	* general/tril.m, general/triu.m: Return value of same class as
diff -r 937358a05a18 -r 28c69e8c0e85 scripts/statistics/base/mean.m
--- a/scripts/statistics/base/mean.m	Thu Mar 24 06:23:10 2005 +0000
+++ b/scripts/statistics/base/mean.m	Thu Mar 24 06:36:02 2005 +0000
@@ -96,8 +96,12 @@
     endif
   endif
 
-  sz = size (x);
-  n = sz (dim);
+  if (dim > ndims (x))
+    n = 1;
+  else
+    sz = size (x);
+    n = sz (dim);
+  endif
 
   if (strcmp (opt, "a"))
     y = sum (x, dim) / n;