[Vars-commits] r62 - pkg/R

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

Author: matthieu
Date: 2009-12-12 17:02:40 +0100 (Sat, 12 Dec 2009)
New Revision: 62

Modified:
   pkg/R/causality.R
Log:
warn more explicitely which variables is used


Modified: pkg/R/causality.R
===================================================================
--- pkg/R/causality.R	2009-12-12 16:02:39 UTC (rev 61)
+++ pkg/R/causality.R	2009-12-12 16:02:40 UTC (rev 62)
@@ -12,7 +12,7 @@
   y.names <- colnames(x$y)
   if(is.null(cause)){
     cause <- y.names[1]
-    warning("\nArgument 'cause' has not been specified;\nusing first variable in 'x$y' as cause variable.\n")
+    warning("\nArgument 'cause' has not been specified;\nusing first variable in 'x$y' (", cause, ") as cause variable.\n")
   } else {
     if(!all(cause%in%y.names)) stop("Argument cause does not match variables names.\n")
   }