Mercurial > hg > octave-lyh

diff 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
line wrap: on
line diff
--- a/scripts/statistics/base/statistics.m
+++ b/scripts/statistics/base/statistics.m
@@ -36,9 +36,13 @@
       X = reshape (X, length (X), 1);
     endif
     for k=1:columns(X)
-      S(:,k) = [min (X(:,k)); empirical_inv ([0.25;0.5;0.75], X(:,k));
-	 	max (X(:,k)); mean (X(:,k)); std (X(:,k));
-		skewness (X(:,k)); kurtosis (X(:,k))];
+      S(:,k) = [(min (X(:,k)));
+		(empirical_inv ([0.25;0.5;0.75], X(:,k)));
+	 	(max (X(:,k)));
+		(mean (X(:,k)));
+		(std (X(:,k)));
+		(skewness (X(:,k)));
+		(kurtosis (X(:,k)))];
     endfor 
   else
     error ("statistics:  invalid argument");