From bug-octave-request at bevo dot che dot wisc dot edu Fri Dec 12 00:03:24 2003
Subject: weird characters in iqr.m
From: Paul Kienzle <pkienzle at jazz dot ncnr dot nist dot gov>
To: bug-octave at bevo dot che dot wisc dot edu
Date: Fri, 12 Dec 2003 01:03:05 -0500

Weird characters have appeared in iqr.m.  The
following patch removes them.

Paul Kienzle
pkienzle at users dot sf dot net


Index: iqr.m
===================================================================
RCS file: /cvs/octave/scripts/statistics/base/iqr.m,v
retrieving revision 1.6
diff -c -p -r1.6 iqr.m
*** iqr.m	2003/11/18 18:30:06	1.6
--- iqr.m	2003/12/12 06:00:34
*************** function y = iqr (x)
*** 34,48 ****
      usage ("iqr (x)");
    endif
  
!  � if (rows (x) == 1)
!  �  � x = x.';
!  � endif
  
!  � [r, c] = size (x);
!  � y = zeros (1, c);
  
!  � for i = 1:c;
!  �  � y(i) = empirical_inv (3/4, x(:,i)) - empirical_inv (1/4, x(:,i));
!  � endfor
  
  endfunction
--- 34,48 ----
      usage ("iqr (x)");
    endif
  
!   if (rows (x) == 1)
!     x = x.';
!   endif
  
!   [r, c] = size (x);
!   y = zeros (1, c);
  
!   for i = 1:c;
!     y(i) = empirical_inv (3/4, x(:,i)) - empirical_inv (1/4, x(:,i));
!   endfor
  
  endfunction



-------------------------------------------------------------
Octave is freely available under the terms of the GNU GPL.

Octave's home on the web:  http://www.octave.org
How to fund new projects:  http://www.octave.org/funding.html
Subscription information:  http://www.octave.org/archive.html
-------------------------------------------------------------