[Eventstudies-commits] r366 - in pkg: R man

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

Author: chiraganand
Date: 2014-05-23 19:36:26 +0200 (Fri, 23 May 2014)
New Revision: 366

Modified:
   pkg/R/eesInference.R
   pkg/man/eesInference.Rd
Log:
Changed ees arguments to event.window and event.lists.

Modified: pkg/R/eesInference.R
===================================================================
--- pkg/R/eesInference.R	2014-05-23 17:31:42 UTC (rev 365)
+++ pkg/R/eesInference.R	2014-05-23 17:36:26 UTC (rev 366)
@@ -718,8 +718,8 @@
 ##----------------------
 ## Event study plot for EES (extreme event studies)
 ## Input: Output of GCF
-## eventLists: Output of eesDates
-eesInference <- function(input, eventLists, width, to.remap=TRUE, 
+## event.lists: Output of eesDates
+eesInference <- function(input, event.lists, event.window, to.remap=TRUE, 
                          remap="cumsum", inference = TRUE,
                          inference.strategy = "bootstrap"){
                          
@@ -727,25 +727,25 @@
   ## Computing inference
   ## Normal
                                         # Good days
-  inf$good.normal <- eventstudy(input, event.list=eventLists$events.good.normal,
+  inf$good.normal <- eventstudy(input, event.list=event.lists$events.good.normal,
                                 type="None", to.remap=to.remap,
-                                remap=remap, event.window=width, inference=inference,
+                                remap=remap, event.window=event.window, inference=inference,
                                 inference.strategy=inference.strategy)
                                         # Bad days
-  inf$bad.normal <- eventstudy(input, event.list=eventLists$events.bad.normal,
+  inf$bad.normal <- eventstudy(input, event.list=event.lists$events.bad.normal,
                                 type="None", to.remap=to.remap,
-                                remap=remap, event.window=width, inference=inference,
+                                remap=remap, event.window=event.window, inference=inference,
                                 inference.strategy=inference.strategy)
   ## Purged
                                           # Good days
-  inf$good.purged <- eventstudy(input, event.list=eventLists$events.good.purged,
+  inf$good.purged <- eventstudy(input, event.list=event.lists$events.good.purged,
                                 type="None", to.remap=to.remap,
-                                remap=remap, event.window=width, inference=inference,
+                                remap=remap, event.window=event.window, inference=inference,
                                 inference.strategy=inference.strategy)
                                             # Bad days
-  inf$bad.purged <- eventstudy(input, event.list=eventLists$events.bad.purged,
+  inf$bad.purged <- eventstudy(input, event.list=event.lists$events.bad.purged,
                                 type="None", to.remap=to.remap,
-                                remap=remap, event.window=width, inference=inference,
+                                remap=remap, event.window=event.window, inference=inference,
                                 inference.strategy=inference.strategy)
 
   class(inf) <- "ees"

Modified: pkg/man/eesInference.Rd
===================================================================
--- pkg/man/eesInference.Rd	2014-05-23 17:31:42 UTC (rev 365)
+++ pkg/man/eesInference.Rd	2014-05-23 17:36:26 UTC (rev 366)
@@ -9,7 +9,7 @@
 }
 
 \usage{
-   eesInference(input, eventLists, width, to.remap = TRUE, remap = "cumsum", 
+   eesInference(input, event.lists, event.window, to.remap = TRUE, remap = "cumsum", 
    		inference = "TRUE", inference.strategy = "bootstrap")
 }
 
@@ -19,12 +19,12 @@
   \sQuote{get.clusters.formatted} function.
   }
 
-  \item{eventLists}{
+  \item{event.lists}{
     a \sQuote{list} of normal and purged events as returned by
     \sQuote{eesDates}.
   }
 
-  \item{width}{
+  \item{event.window}{
     an \sQuote{integer} of length 1 that specifies a
     symmetric event window around the event date.
   }
@@ -115,7 +115,7 @@
 event.lists <- eesDates(formattedClusters)
 
 inference <- eesInference(input = formattedClusters,
-                          eventLists = event.lists,
-                          width = 5)
+                          event.lists = event.lists,
+                          event.window = 5)
 str(inference, max.level = 2)
 }