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))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.