[Eventstudies-commits] r224 - pkg/R

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

Author: vikram
Date: 2014-03-26 09:28:37 +0100 (Wed, 26 Mar 2014)
New Revision: 224

Modified:
   pkg/R/eventstudy.R
Log:
Modified plot.es function

Modified: pkg/R/eventstudy.R
===================================================================
--- pkg/R/eventstudy.R	2014-03-25 16:22:50 UTC (rev 223)
+++ pkg/R/eventstudy.R	2014-03-26 08:28:37 UTC (rev 224)
@@ -129,17 +129,17 @@
 }
 
 plot.es <- function(x, xlab="Event time",
-                    ylab="", main="", col.es="dark slate blue"){
+                    ylab="", main="", col="dark slate blue"){
   big <- max(abs(x$eventstudy.output))
   hilo <- c(-big,big)
   width <- (nrow(x$eventstudy.output)-1)/2
   plot(-width:width, x$eventstudy.output[,2], type="l", lwd=2, ylim=hilo,
-       col=col.es,xlab= xlab, ylab = ylab,
+       col=col,xlab= xlab, ylab = ylab,
        main=paste(main))
   points(-width:width, x$eventstudy.output[,2])
   lines(-width:width, x$eventstudy.output[,"2.5%"],
-        lwd=1, lty=2, col=col.es)
+        lwd=1, lty=2, col=col)
   lines(-width:width, x$eventstudy.output[,"97.5%"],
-        lwd=1, lty=2, col=col.es)
+        lwd=1, lty=2, col=col)
   abline(h=0,v=0)
 }