tests/testthat/test-crosstab.R

In fwildclusterboot: Fast Wild Cluster Bootstrap Inference for Linear Models

test_that("crosstab works", {
  if (requireNamespace("data.table")) {
  
    a <- sample(1:10, 10, replace = TRUE)
    b <- sample(1:4, 10, replace = TRUE)
    y <- matrix(rnorm(10), 10, 1)
    data <- y
    var1 <- data.frame(a = a)
    var2 <- data.frame(b = b)

    ct1 <- fwildclusterboot:::crosstab(data = data, var1 = var1, var2 = var2)
    # ct2 <- crosstab2(data = data, var1 = var1, var2 = var2)
    # ct3 <- crosstab3(data = data, var1 = var1, var2 = var2)
    ct4 <- fwildclusterboot:::crosstab4(data = data, var1 = var1, var2 = var2)

    expect_equal(ct1, ct4, ignore_attr = TRUE)
  }
})