tests/testthat/test-ac.R

In lucas-johnson/agreeable: Assess Agreement of Datasets

# ==============================================================================
# pud
# ==============================================================================

test_that("pud works", {
    test_data <- data.frame(
        a = c(1, 2, 3),
        b = c(4, 5, 6)
    )
    expect_equal(pud(test_data, a, b), 0)
})

test_that("na.rm works with pud", {
    test_data <- data.frame(
        a = c(1, 2, NA),
        b = c(3, 4, 5)
    )
    expect_equal(pud(test_data, a, b, na.rm = T), 0)
    expect_true(is.na(pud(test_data, a, b)))
})

# ==============================================================================
# psd
# ==============================================================================

test_that("psd works", {
    test_data <- data.frame(
        a = c(1, 2, 3),
        b = c(4, 5, 6)
    )
    expect_equal(psd(test_data, a, b), 1)
})

test_that("na.rm works with psd", {
    test_data <- data.frame(
        a = c(1, 2, NA),
        b = c(3, 4, 5)
    )
    expect_equal(psd(test_data, a, b, na.rm = T), 1)
    expect_true(is.na(psd(test_data, a, b)))
})

# ==============================================================================
# ac
# ==============================================================================

test_that("ac works", {
    test_data <- data.frame(
        a = c(1, 2, 3),
        b = c(4, 5, 6)
    )
    expect_equal(ac(test_data, a, b), 0.3414634)
})

test_that("na.rm works with ac", {
    test_data <- data.frame(
        a = c(1, 2, NA),
        b = c(3, 4, 5)
    )
    expect_equal(ac(test_data, a, b, na.rm = T), 0.36)
    expect_true(is.na(ac(test_data, a, b)))
})

# ==============================================================================
# acs
# ==============================================================================

test_that("acs works", {
    test_data <- data.frame(
        a = c(1, 2, 3),
        b = c(4, 5, 6)
    )
    expect_equal(acs(test_data, a, b), 0.3414634)
})

test_that("na.rm works with acs", {
    test_data <- data.frame(
        a = c(1, 2, NA),
        b = c(3, 4, 5)
    )
    expect_equal(ac(test_data, a, b, na.rm = T), 0.36)
    expect_true(is.na(ac(test_data, a, b)))
})

# ==============================================================================
# acu
# ==============================================================================

test_that("acu works", {
    test_data <- data.frame(
        a = c(1, 2, 3),
        b = c(4, 5, 6)
    )
    expect_equal(acu(test_data, a, b), 1)
})

test_that("na.rm works with acu", {
    test_data <- data.frame(
        a = c(1, 2, NA),
        b = c(3, 4, 5)
    )
    expect_equal(acu(test_data, a, b, na.rm = T), 1)
    expect_true(is.na(acu(test_data, a, b)))
})