[Eventstudies-commits] r380 - pkg/R

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

Author: chiraganand
Date: 2014-10-27 06:33:59 +0100 (Mon, 27 Oct 2014)
New Revision: 380

Modified:
   pkg/R/phys2eventtime.R
Log:
Moved checking of zero columns only if the width is greater than 0.

Modified: pkg/R/phys2eventtime.R
===================================================================
--- pkg/R/phys2eventtime.R	2014-10-26 14:46:31 UTC (rev 379)
+++ pkg/R/phys2eventtime.R	2014-10-27 05:33:59 UTC (rev 380)
@@ -51,12 +51,11 @@
       z.e <- z.e[, -badcolumns]
       events.attrib <- events.attrib[-badcolumns]
     }
+    if (NCOL(z.e) == 0) {
+      return(list(z.e = NULL, outcomes = factor(outcomes)))
+    }
   }
 
-  if (NCOL(z.e) == 0) {
-    return(list(z.e = NULL, outcomes = factor(outcomes)))
-  }
-
   ## Double check
   stopifnot(sum(outcomes=="success") == NCOL(z.e))
   list(z.e=z.e, outcomes=factor(outcomes), events = events.attrib) # :DOC: events.attrib