Mercurial > hg > octave-lyh

diff scripts/sparse/spstats.m @ 7515:f3c00dc0912b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Eliminate the rest of the dispatched sparse functions
author David Bateman <dbateman@free.fr>
date Fri, 22 Feb 2008 15:50:51 +0100
parents 3f29467c1667
children eb63fbe60fab
line wrap: on
line diff
--- a/scripts/sparse/spstats.m
+++ b/scripts/sparse/spstats.m
@@ -45,14 +45,14 @@
   endif 
   [n, m] = size (S);
 
-  count = spsum (sparse (i, j, 1, n, m));
+  count = sum (sparse (i, j, 1, n, m));
   if (nargout > 1) 
-    mean = spsum (S) ./ count; 
+    mean = sum (S) ./ count; 
   endif
   if (nargout > 2) 
     ## FIXME Variance with count = 0 or 1?
     diff = S - sparse (i, j, mean(j), n, m); 
-    var = spsum (diff .* diff) ./ (count - 1);
+    var = sum (diff .* diff) ./ (count - 1);
   endif
 
 endfunction