Mercurial > hg > octave-lyh

changeset 5243:28c69e8c0e85

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-03-24 06:36:02 by jwe]
author jwe
date Thu, 24 Mar 2005 06:36:02 +0000
parents 937358a05a18
children a34c3c5c37cf
files scripts/ChangeLog scripts/statistics/base/mean.m
diffstat 2 files changed, 11 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -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
--- a/scripts/statistics/base/mean.m
+++ b/scripts/statistics/base/mean.m
@@ -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;