[Analogue-commits] r175 - pkg/src

[noreply at r-forge.r-project.org]

Author: gsimpson
Date: 2010-05-29 17:14:02 +0200 (Sat, 29 May 2010)
New Revision: 175

Modified:
   pkg/src/distx.c
   pkg/src/distxy.c
   pkg/src/wastats.c
Log:
minor tidying in the C code

Modified: pkg/src/distx.c
===================================================================
--- pkg/src/distx.c	2010-05-29 15:13:23 UTC (rev 174)
+++ pkg/src/distx.c	2010-05-29 15:14:02 UTC (rev 175)
@@ -16,7 +16,7 @@
 #include <math.h>
 
 /* Indices */
-/* Note we don't actually call all of these via xy_distance
+/* Note we don't actually call all of these via xx_distance
  * Some are called via direct methods, but we include the 
  * indices here to allow the pattern matching to work 
  * correctly
@@ -367,6 +367,12 @@
 	}
 }
 
+/* 
+ * These functions are called directly as they don't fit the
+ * nice, ordered manner of the coefficients above
+ *
+ */
+
 /*
  * Kendall's coefficient
  *

Modified: pkg/src/distxy.c
===================================================================
--- pkg/src/distxy.c	2010-05-29 15:13:23 UTC (rev 174)
+++ pkg/src/distxy.c	2010-05-29 15:14:02 UTC (rev 175)
@@ -5,7 +5,7 @@
  * Based on code from vegdist by Jari Oksanen:
  *
  * (C) 2001-2009, Jari Oksanen
- * (C) 2009 Gavin L. Simpson
+ * (C) 2009-2010 Gavin L. Simpson
  *
  * Licene: GPL 2
  */
@@ -358,6 +358,12 @@
 	}
 }
 
+/* 
+ * These functions are called directly as they don't fit the
+ * nice, ordered manner of the coefficients above
+ *
+ */
+
 /*
  * Kendall's coefficient
  *

Modified: pkg/src/wastats.c
===================================================================
--- pkg/src/wastats.c	2010-05-29 15:13:23 UTC (rev 174)
+++ pkg/src/wastats.c	2010-05-29 15:14:02 UTC (rev 175)
@@ -1,3 +1,13 @@
+/* 
+ * Functions to WA and WAT transfer function models
+ * Really helper functions to speed aspects of the
+ * computations
+ *
+ * (C) 2009-2010 Gavin L. Simpson
+ *
+ * Licene: GPL 2
+ */
+
 /* Standard R headers */
 
 #include <R.h>