tests/testthat/test-dda.resdist.R

In dda: Direction Dependence Analysis

# Load necessary libraries
library(testthat)

# Set seed for reproducibility
set.seed(123)

# --- Data generation ---

n <- 500
z <- sort(rnorm(n))
z1 <- z[z <= 0]
z2 <- z[z > 0]

# --- x -> y when z <= 0 ---
x1 <- rchisq(length(z1), df = 4) - 4
e1 <- rchisq(length(z1), df = 3) - 3
y1 <- 0.5 * x1 + e1

# --- y -> x when z > 0 ---
y2 <- rchisq(length(z2), df = 4) - 4
e2 <- rchisq(length(z2), df = 3) - 3
x2 <- 0.5 * y2 + e2

# Combine data
y <- c(y1, y2)
x <- c(x1, x2)
dat <- data.frame(x, y, z)

# Fit model
m <- lm(y ~ x * z, data = dat)

# --- Tests ---

test_that("dda.resdist works", {
  # Test the function and assign the result to test.dda.resdist
  test.dda.resdist <- dda.resdist(
    formula = m,
    pred = "x",
    data = dat,
    B = 200
  )

  # Check that it runs without warnings or messages
  expect_silent(test.dda.resdist)
})

test_that("dda.resdist print works", {
  # Test the print functionality
  test.dda.resdist <- dda.resdist(
    formula = m,
    pred = "x",
    data = dat,
    B = 200
  )

  # Verify that print can run without issues
  expect_output(print(test.dda.resdist))
})