bug in order patterns RP fixed (empty order patterns)

crqa.m

@@ -135,6 +135,9 @@ function xout=crqa(varargin)
 % $Revision$
 %
 % $Log$
+% Revision 5.8  2004/11/15 12:56:01  marwan
+% bug fix in method checking
+%
 % Revision 5.7  2004/11/15 12:53:27  marwan
 % covariance plot commented out
 %
@@ -809,6 +812,8 @@ case 'compute'
 if Nx==w & wstep<2, wstep=1; Nx=w+1; end
 if Nx==w, Nx=w+1; end
 if nogui~=2, hw=waitbar(0,['0/',num2str(Nx-w)]);set(hw,'Name','Please Wait!');h1=get(hw,'chil');h1=get(h1,'title'); drawnow; end
+if strcmpi(method,'Order Pattern') method = 'op'; end
+if strcmpi(method,'Order Matrx') method = 'om'; end
 
 for i=1:wstep:Nx-w; 
      if ~nogui
@@ -819,13 +824,13 @@ for i=1:wstep:Nx-w;
          break
        end
      end
+
 try
 %  X=crp_big(x(i:i+w-1,:),y(i:i+w-1,:),m,t,e,'fan','silent');
-  if embed_flag
+  if 0 %embed_flag
     X=crp_big(x(i:i+w-1,:),y(i:i+w-1,:),m,t,e,method,'silent',check_norm{nonorm+1});
   else
-%    X=crp2(x(i:i+w-1,:),y(i:i+w-1,:),m,t,e,method,varargin{i_char},'silent');
-    X=crp2(x(i:i+w-1,:),y(i:i+w-1,:),m,t,e,method,check_norm{nonorm+1},'silent');
+    X=crp2(x(i:i+w-1,:),y(i:i+w-1,:),m,t,e,method,'silent',varargin{i_char});
   end
 %  X=crp(x(i:i+w-1,:),y(i:i+w-1,:),m,t,e,varargin{i_char},'silent');
   x_var=var(x(i:i+w-1,:)); y_var=var(y(i:i+w-1,:)); temp=cov(x(i:i+w-1,:),y(i:i+w-1,:)); xy_var=temp(1,2);