[Eventstudies-commits] r221 - pkg/R

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

Author: vikram
Date: 2014-03-25 16:34:16 +0100 (Tue, 25 Mar 2014)
New Revision: 221

Modified:
   pkg/R/inference.bootstrap.R
Log:
Minor modification

Modified: pkg/R/inference.bootstrap.R
===================================================================
--- pkg/R/inference.bootstrap.R	2014-03-25 13:44:45 UTC (rev 220)
+++ pkg/R/inference.bootstrap.R	2014-03-25 15:34:16 UTC (rev 221)
@@ -30,7 +30,7 @@
 }
 
 # Plotting inference
-plot.es <- function(es.object, xlab="Event time",
+plot.inference <- function(inference, xlab="Event time",
                     ylab="", main="", col.es="dark slate blue"){
   big <- max(abs(es.object$eventstudy.output))
   hilo <- c(-big,big)
@@ -103,7 +103,7 @@
   colnames(result) <- c("2.5%","Median","97.5%")
   rownames(result) <- rownames(Median)
   if(to.plot == TRUE){
-    plot.es(inference = result, xlab, ylab, main)
+    plot.inference(inference = result, xlab, ylab, main)
   }
   return(result)  
 }