bug on check of data length

fnn.m

@@ -55,6 +55,9 @@ function out=fnn(varargin)
 % $Revision$
 %
 % $Log$
+% Revision 5.6  2010/01/06 08:59:24  marwan
+% bugfix if embedding exceeds data length
+%
 % Revision 5.5  2009/07/21 11:24:26  marwan
 % missing default t
 %
@@ -515,11 +518,11 @@ case 'compute'
             % distance in the m-dimensional space
             switch method
               case 1
-                distance = max(abs(x2-repmat(x(jx(idx(i),:))',length(x2),1))');
+                distance = max(abs(x2-repmat(x(jx(idx(i),:))',size(x2,1),1))');
               case 2
-                distance = sqrt(sum((x2-repmat(x(jx(idx(i),:))',length(x2),1)).^2,2));
+                distance = sqrt(sum((x2-repmat(x(jx(idx(i),:))',size(x2,1),1)).^2,2));
               case 3
-                distance = sum(abs(x2-repmat(x(jx(idx(i),:))',length(x2),1)),2);
+                distance = sum(abs(x2-repmat(x(jx(idx(i),:))',size(x2,1),1)),2);
             end
             [distance is] = sort(distance);