From noreply at r-forge.r-project.org  Thu Mar 14 13:11:15 2013
From: noreply at r-forge.r-project.org (noreply at r-forge.r-project.org)
Date: Thu, 14 Mar 2013 13:11:15 +0100 (CET)
Subject: [Eventstudies-commits] r46 - pkg/R
Message-ID: <20130314121116.002E2183D63@r-forge.r-project.org>

Author: vikram
Date: 2013-03-14 13:11:15 +0100 (Thu, 14 Mar 2013)
New Revision: 46

Modified:
   pkg/R/identifyextremeevents.R
Log:
Minor modification in function

Modified: pkg/R/identifyextremeevents.R
===================================================================
--- pkg/R/identifyextremeevents.R	2013-02-14 17:52:15 UTC (rev 45)
+++ pkg/R/identifyextremeevents.R	2013-03-14 12:11:15 UTC (rev 46)
@@ -141,6 +141,7 @@
   res$left.tail <- as.numeric(res$returns < pval[1])
   res$right.tail <- as.numeric(res$returns > pval[2])
   res$both.tails <- res$left.tail + res$right.tail
+  res <- res[complete.cases(res),]
   if(value=="returns"){
     return(res[-1,])
   }else{