[Eventstudies-commits] r46 - pkg/R

[noreply at 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{