[Eventstudies-commits] r72 - pkg/R

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

Author: chiraganand
Date: 2013-07-12 14:32:37 +0200 (Fri, 12 Jul 2013)
New Revision: 72

Modified:
   pkg/R/phys2eventtime.R
Log:
Don't interpolate if data is missing.

Modified: pkg/R/phys2eventtime.R
===================================================================
--- pkg/R/phys2eventtime.R	2013-07-12 11:33:57 UTC (rev 71)
+++ pkg/R/phys2eventtime.R	2013-07-12 12:32:37 UTC (rev 72)
@@ -52,8 +52,6 @@
   if (width > 0) {
     for (i in 1:ncol(z.e)) {
       tmp <- z.e[,i]
-      tmp <- na.locf(tmp, na.rm=FALSE, maxgap=4)
-      tmp <- na.locf(tmp, na.rm=FALSE, maxgap=4, fromLast=TRUE)
       tmp2 <- window(tmp, start=-width, end=+width)
       if (any(is.na(tmp2))) {
         outcomes[as.numeric(colnames(z.e)[i])] <- "wdatamissing"