[Eventstudies-commits] r253 - pkg/R

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

Author: chiraganand
Date: 2014-03-28 16:10:41 +0100 (Fri, 28 Mar 2014)
New Revision: 253

Modified:
   pkg/R/eventstudy.R
Log:
Don't print no inference strategy warning for one series if inference was originally FALSE.

Modified: pkg/R/eventstudy.R
===================================================================
--- pkg/R/eventstudy.R	2014-03-28 15:07:27 UTC (rev 252)
+++ pkg/R/eventstudy.R	2014-03-28 15:10:41 UTC (rev 253)
@@ -84,8 +84,10 @@
 
   if(length(cn.names)==1){
     cat("Event date exists only for",cn.names,"\n")
-    inference <- FALSE
-    cat("No inference strategy for one column","\n")
+    if (inference == TRUE) {
+      warning("No inference strategy for one column","\n")
+      inference <- FALSE
+    }
   } else if (length(cn.names) == 0) {
     ## skip everything
     to.remap = FALSE