order patterns for multi-column vectors without embedding

crqa.m

@@ -135,6 +135,9 @@ function xout=crqa(varargin)
 % $Revision$
 %
 % $Log$
+% Revision 5.26  2006/03/29 13:07:55  marwan
+% problems regarding OPRPs and embedding resolved
+%
 % Revision 5.25  2006/02/14 11:45:49  marwan
 % *** empty log message ***
 %
@@ -358,8 +361,14 @@ errcode=1;
        m=1; 
        disp('Warning: For order matrix a dimension of one is used.')
    end
+   
+   
+   Nx=length(x); Ny=length(y);
+   if size(x,1)<size(x,2), x=x'; end
+   if size(y,1)<size(y,2), y=y'; end
 
-   if (strcmpi(method,'Order Pattern') | strcmpi(method,'op')) & m == 1, 
+
+   if (strcmpi(method,'Order Pattern') | strcmpi(method,'op')) & m == 1 & size(x,2) < 2
        m=2; 
        h = findobj('Tag','crqa_m');
        if ~isempty(h)
@@ -372,10 +381,6 @@ errcode=1;
        end
    end
 
-   Nx=length(x); Ny=length(y);
-   if size(x,1)<size(x,2), x=x'; end
-   if size(y,1)<size(y,2), y=y'; end
-
    if size(x,2)>=2
       xscale=x(:,1); 
       if ~isempty(find(diff(xscale)<0)) % multi-column data vector, each column used as vector component