correction statistics and not statistic
[scilab.git] / scilab / modules / statistics / macros / strange.sci
1 function [r]=strange(x,orien)
2 //
3 //The range  is  the distance between   the largest  and smaller  value,
4 //[r]=range(x) computes the range of vector or matrix x.
5 //
6 //[r]=range(x,'r')  (or equivalently  [r]=range(x,1)) give a  row vector
7 //with the range of each column.
8 //
9 //[r]=range(x,'c') (or equivalently [r]=range(x,2)) give a column vector
10 //with the range of each row.
11 //
12 //author: carlos klimann
13 //
14 //date: 1999-05-11
15 //
16   [lhs,rhs]=argn(0)
17   if rhs==0 then error('strange requires at least one input.'), end
18   if rhs==1 then
19     r=max(x)-min(x)
20   elseif rhs==2 then
21     if orien=='r'|orien==1 then 
22       r=max(x,'r')-min(x,'r')
23     elseif orien=='c'|orien==2 then
24       r=max(x,'c')-min(x,'c')
25     else 
26       error('second parameter must be ''r'', ''c'',1 or 2'), 
27     end
28   end
29 endfunction