# HG changeset patch
# User schloegl
# Date 1410543973 0
# Node ID 5e2e99930b8c895e9343e2b8d4a3084b5aee27c2
# Parent  ca003c383f0ba4f3822b52d0dd2f992723bce4f1
mean: support DIM larger than data size

diff -r ca003c383f0b -r 5e2e99930b8c extra/NaN/inst/mean.m
--- a/extra/NaN/inst/mean.m	Sun Sep 07 15:21:58 2014 +0000
+++ b/extra/NaN/inst/mean.m	Fri Sep 12 17:46:13 2014 +0000
@@ -66,6 +66,9 @@
 		%------ case:  mean(x,opt)
                 opt=DIM;
                 DIM=[]; 
+        elseif (DIM>length(size(x)))
+		y=x; 
+		return; 	
         else
 		%------ case:  mean(x,DIM)
                 opt='a';
@@ -82,6 +85,9 @@
                 opt=DIM;
                 DIM=tmp;
                 W = []; 
+        elseif (DIM>length(size(x)))
+		y=x; 
+		return; 	
         else 
         	%------ case:  mean(x,DIM,opt)
         	W = [];