tests/testthat/test-calculate_es.R

In sweater: Speedy Word Embedding Association Test and Extras Using R

S1 <- c("math", "algebra", "geometry", "calculus", "equations", "computation", "numbers", "addition")
T1 <- c("poetry", "art", "dance", "literature", "novel", "symphony", "drama", "sculpture")
A1 <- c("male", "man", "boy", "brother", "he", "him", "his", "son")
B1 <- c("female", "woman", "girl", "sister", "she", "her", "hers", "daughter")

test_that(".purify", {
    expect_equal(.purify_class(weat(glove_math, S1, T1, A1, B1)), "weat")
    expect_equal(.purify_class(mac(glove_math, S1, A1)), "mac")
    expect_equal(.purify_class(rnsb(glove_math, S1, A1, B1)), "rnsb")
    expect_equal(.purify_class(rnd(glove_math, S1, A1, B1)), "rnd")
    expect_equal(.purify_class(semaxis(glove_math, S1, A1, B1)), "semaxis")
    expect_equal(.purify_class(nas(glove_math, S1, A1, B1)), "nas")
    expect_equal(.purify_class(ect(glove_math, S1, A1, B1)), "ect")
})

test_that("error cases", {
    expect_error(calculate_es())
    expect_error(calculate_es(x = 1))
    expect_error(calculate_es(semaxis(glove_math, S1, A1, B1)))
    expect_error(calculate_es(nas(glove_math, S1, A1, B1)))
})

test_that("calculate effect size", {
    sw <- weat(glove_math, S1, T1, A1, B1)
    expect_equal(weat_es(sw), calculate_es(sw))
    expect_equal(weat_es(sw, standardize = FALSE), calculate_es(sw, standardize = FALSE))
    expect_equal(weat_es(sw, r = TRUE), calculate_es(sw, r = TRUE))
    mac_res <- mac(glove_math, S1, A1)
    expect_equal(mac_es(mac_res), calculate_es(mac_res))
    rnd_res <- rnd(glove_math, S1, A1, B1)
    expect_equal(rnd_es(rnd_res), calculate_es(rnd_res))
    rnsb_res <- rnsb(glove_math, S1, A1, B1)
    expect_equal(rnsb_es(rnsb_res), calculate_es(rnsb_res))
    ect_res <- ect(glove_math, S1, A1, B1)
    expect_equal(ect_es(ect_res), calculate_es(ect_res))
})