tests/testthat/test_userinput_inference.R

In eventstudies: Event Study Analysis

library(testthat)
context("userinput")

## 1. Test for normal values
## 2. Testing for univariate series in zoo object

test_that("userinput for inference functions", {
    library(eventstudies)
    ## Data of Stock Prices
    test.data <- structure(c(33.16, 34.0967, 35.3683, 34.46, 34.17,
                             35.89, 36.19, 37.1317, 36.7033, 37.7933,
                             37.8533, 285.325, 292.6, 290.025, 286.2,
                             290.075, 295.05, 289.325, 285.625, 293.7,
                             298.5, 289.05, 704.5438, 708.35, 735.835,
                             710.625, 711.65, 731.012, 727.575,
                             715.0187, 724.2, 713.1875, 695.1812),
                           .Dim = c(11L, 3L),
                           .Dimnames = list( NULL, c("ITC",
                             "Reliance", "TCS")),
                           index = structure(c(12418,
                             12419, 12422, 12423, 12424,
                             12425, 12426, 12429, 12430,
                             12431, 12432),
                             class = "Date"),
                           class = "zoo")
    test.data <- diff(log(test.data))

    ## List of events
    test.eventslist <- data.frame(name = c("ITC","Reliance","TCS",
                                    "ITC","Reliance","Junk"),
                                  when = as.Date(c("2004-01-02",
                                    "2004-01-08", "2004-01-14",
                                    "2005-01-15", "2004-01-01",
                                    "2005-01-01")))
    test.eventslist$name <- as.character(test.eventslist$name)


### Testing function for normal values of width
    
    message("Testing for normal input values")
    esConvertNormal0 <- phys2eventtime(z = test.data,
                                       events = test.eventslist,
                                       width = 1)
    es.test.w0 <- window(esConvertNormal0$z.e,
                         start = -1,
                         end = +1)

    test.eventtime0 <- remap.cumsum(es.test.w0, is.pc = FALSE,
                                    base = 0)

    ## Inference.bootstrap function
    test.boot0 <- inference.bootstrap(es.w = test.eventtime0,
                                     to.plot = FALSE)

    ## Inference.wilcox function
    test.wilcox0 <- inference.wilcox(es.w = test.eventtime0,
                                     to.plot = FALSE)

    ## Inference.classic function
    test.classic0 <- inference.wilcox(es.w = test.eventtime0,
                                      to.plot = FALSE)
    

### Testing function for univariate series: one firm
    
    message("Testing for univariate series in zoo object")
    esConvertNormal1 <- phys2eventtime(z = test.data,
                                       events = test.eventslist,
                                       width = 4)
    es.test.w1 <- window(esConvertNormal1$z.e,
                         start = -4,
                         end = +4)

    test.eventtime1 <- remap.cumsum(es.test.w1, is.pc = FALSE,
                                    base = 0)

    ## Inference.bootstrap function
    expect_error(inference.bootstrap(es.w = test.eventtime1,
                                     to.plot = FALSE))
    ## Inference.wilcox function
    expect_error(inference.wilcox(es.w = test.eventtime1,
                                  to.plot = FALSE))
    ## Inference.classic function
    expect_error(inference.classic(es.w = test.eventtime1,
                                   to.plot = FALSE))
})