[Analogue-commits] r403 - pkg/R

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

Author: gsimpson
Date: 2014-02-11 19:10:37 +0100 (Tue, 11 Feb 2014)
New Revision: 403

Modified:
   pkg/R/timetrack.R
Log:
remove redundant code to set a default value for method argument

Modified: pkg/R/timetrack.R
===================================================================
--- pkg/R/timetrack.R	2014-02-11 18:10:06 UTC (rev 402)
+++ pkg/R/timetrack.R	2014-02-11 18:10:37 UTC (rev 403)
@@ -22,8 +22,8 @@
     X <- X[, tmp]
     passive <- passive[, tmp]
     ## check what type of ordination is required
-    if(isTRUE(missing(method)))
-        method <- "cca"
+    ##if(isTRUE(missing(method)))
+    ##    method <- "cca"
     method <- match.arg(method)
     FUN <- match.fun(method)
     ## if no env do unconstrained