[Vegan-commits] r2640 - in pkg/lmodel2: . R

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

Author: jarioksa
Date: 2013-10-17 12:54:26 +0200 (Thu, 17 Oct 2013)
New Revision: 2640

Modified:
   pkg/lmodel2/DESCRIPTION
   pkg/lmodel2/R/lmodel2.R
Log:
remove superfluous blanks from column headers (suggested by Ben Harrison)

Modified: pkg/lmodel2/DESCRIPTION
===================================================================
--- pkg/lmodel2/DESCRIPTION	2013-10-17 10:47:47 UTC (rev 2639)
+++ pkg/lmodel2/DESCRIPTION	2013-10-17 10:54:26 UTC (rev 2640)
@@ -1,8 +1,8 @@
 Package: lmodel2
 Type: Package
 Title: Model II Regression
-Version: 1.7-1
-Date: 2013-01-08
+Version: 1.7-2
+Date: 2013-10-17
 Author: Pierre Legendre
 Maintainer: Jari Oksanen <jari.oksanen at oulu.fi>
 Description: Computes model II simple linear regression using ordinary

Modified: pkg/lmodel2/R/lmodel2.R
===================================================================
--- pkg/lmodel2/R/lmodel2.R	2013-10-17 10:47:47 UTC (rev 2639)
+++ pkg/lmodel2/R/lmodel2.R	2013-10-17 10:54:26 UTC (rev 2640)
@@ -1,5 +1,5 @@
 `lmodel2` <-
-function(formula, data = NULL, range.y = NULL, range.x = NULL,
+    function(formula, data = NULL, range.y = NULL, range.x = NULL,
              nperm = 0)
 ###
 ### Bivariate model II regression.
@@ -209,10 +209,10 @@
         H <- NA
     reg.res <- data.frame(met,res1,res2,res3,res8)
     CI.res <- data.frame(met,res4,res5,res6,res7)
-    colnames(reg.res) <- c("Method","Intercept","    Slope",
-                           " Angle (degrees)"," P-perm (1-tailed)")
-    colnames(CI.res) <- c("Method"," 2.5%-Intercept","97.5%-Intercept",
-                          " 2.5%-Slope","97.5%-Slope")
+    colnames(reg.res) <- c("Method","Intercept","Slope",
+                           "Angle (degrees)","P-perm (1-tailed)")
+    colnames(CI.res) <- c("Method","2.5%-Intercept","97.5%-Intercept",
+                          "2.5%-Slope","97.5%-Slope")
 
     out <- list(y=y, x=x, regression.results=reg.res,
                 confidence.intervals=CI.res,