# HG changeset patch
# User Jaroslav Hajek <highegg@gmail.com>
# Date 1237023523 -3600
# Node ID 80d499b82ff3dc7825b3629c369cf1b62138f157
# Parent  a7c00773a0898ea612e338fe2001ffd389903e5d
fix typos in var.m

diff -r a7c00773a089 -r 80d499b82ff3 scripts/ChangeLog
--- a/scripts/ChangeLog	Fri Mar 13 22:54:37 2009 +0100
+++ b/scripts/ChangeLog	Sat Mar 14 10:38:43 2009 +0100
@@ -1,3 +1,7 @@
+2009-03-14  Jaroslav Hajek  <highegg@gmail.com>
+
+	* statistics/base/var.m: a -> x.
+
 2009-03-13  Jaroslav Hajek  <highegg@gmail.com>
 
 	* statistics/base/mean.m: Simplify.
diff -r a7c00773a089 -r 80d499b82ff3 scripts/statistics/base/var.m
--- a/scripts/statistics/base/var.m	Fri Mar 13 22:54:37 2009 +0100
+++ b/scripts/statistics/base/var.m	Sat Mar 14 10:38:43 2009 +0100
@@ -41,7 +41,7 @@
 ## Author: KH <Kurt.Hornik@wu-wien.ac.at>
 ## Description: Compute variance
 
-function y = var (x, opt, dim)
+function retval = var (x, opt, dim)
 
   if (nargin < 1 || nargin > 3)
     print_usage ();
@@ -56,11 +56,11 @@
     opt = 0;
   endif
 
-  n = size (a, dim);
+  n = size (x, dim);
   if (n == 1)
     retval = zeros (sz);
-  elseif (numel (a) > 0)
-    retval = sumsq (center (a, dim), dim) / (n + opt - 1);
+  elseif (numel (x) > 0)
+    retval = sumsq (center (x, dim), dim) / (n + opt - 1);
   else
     error ("var: x must not be empty");
   endif