tests/testthat/test_cbound.R

In kolesarm/RDHonest: Honest Inference in Regression Discontinuity Designs

test_that("Test estimation of bound on M in Lee data", {
    ma <- function(a) max(abs(a))

    expect_message(r <- RDHonest(voteshare~margin, data=lee08))
    r1 <- RDSmoothnessBound(r, s=100, separate=TRUE, multiple=TRUE, sclass="T")
    expect_lt(ma(r1$estimate-c(0.00147446, 0.00016410)), 3e-9)
    r2 <- RDSmoothnessBound(r, s=100, separate=FALSE, multiple=TRUE, sclass="H")
    expect_lt(ma(r2$conf.low- 0.017285255), 1e-9)
    r3 <- RDSmoothnessBound(r, s=100, separate=FALSE, multiple=FALSE,
                            sclass="H")$conf.low
    expect_equal(r3, 0.59509966)
    ## Should fail, s too big
    expect_error(RDSmoothnessBound(r, s=10000))
    r <- RDHonest(log(earnings)~yearat14, cutoff=1947, data=cghs, M=0.023,
                  h=3.4)
    expect_error(RDSmoothnessBound(r, s=20, separate=TRUE, multiple=FALSE))
    r4 <- RDSmoothnessBound(r, s=2, separate=TRUE, multiple=FALSE)
    expect_lt(ma(r4$estimate- c(0.015359658, 0L)), 1e-9)

    ## Old implementation
    ## r2 <- capture.output(print(r, digits=5))
    ## expect_equal(c(r$po$Delta, r$ne$Delta),
    ##              c(0.002546658, 0.020467968))
    ## expect_identical(r2[c(5, 13)], c("Delta: 0.0025467, sd=0.0015372",
    ##                                  "Delta: 0.020468, sd=0.0073167"))
})