Mercurial > octave-nkf

comparison scripts/statistics/base/statistics.m @ 3273:eb27ea9b7ff8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1999-10-12 02:22:25 by jwe]
author jwe
date Tue, 12 Oct 1999 02:27:27 +0000
parents 781c930425fd
children f8dde1807dee
comparison
equal deleted inserted replaced
3272:9e0c8e289555 3273:eb27ea9b7ff8
34 if (prod (size (X)) > 1) 34 if (prod (size (X)) > 1)
35 if (is_vector (X)) 35 if (is_vector (X))
36 X = reshape (X, length (X), 1); 36 X = reshape (X, length (X), 1);
37 endif 37 endif
38 for k=1:columns(X) 38 for k=1:columns(X)
39 S(:,k) = [min (X(:,k)); empirical_inv ([0.25;0.5;0.75], X(:,k)); 39 S(:,k) = [(min (X(:,k)));
40 max (X(:,k)); mean (X(:,k)); std (X(:,k)); 40 (empirical_inv ([0.25;0.5;0.75], X(:,k)));
41 skewness (X(:,k)); kurtosis (X(:,k))]; 41 (max (X(:,k)));
42 (mean (X(:,k)));
43 (std (X(:,k)));
44 (skewness (X(:,k)));
45 (kurtosis (X(:,k)))];
42 endfor 46 endfor
43 else 47 else
44 error ("statistics: invalid argument"); 48 error ("statistics: invalid argument");
45 endif 49 endif
46 50