tests/testthat/test-crosstab.R

In s3alfisc/fwildclusterboot: Fast Wild Cluster Bootstrap Inference for Linear Models

test_that("crosstab works", {
  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)
  ct5 <- fwildclusterboot:::crosstab_qtab(data = data, var1 = var1, var2 = var2)
  
  expect_equal(ct1, ct4, ignore_attr = TRUE)
})