Nothing
context("compare_stages")
DD <- generate_linear_dataset(5, 10)
levels(DD$C) <- c("a", "b")
levels(DD$X3) <- c("qqqq", "pppp")
mod1 <- full(DD, join_unobserved = FALSE)
mod2 <- indep(DD, join_unobserved = FALSE)
test_that("compare_stages correctly returns TRUE/FALSE", {
if (!requireNamespace("pkg", quietly = TRUE)) {
methods <- c("naive", "stages")
} else {
methods <- c("naive", "hamming", "stages")
}
for (m in methods) {
expect_true(compare_stages(mod1, mod1, method = !!m))
expect_true(compare_stages(mod2, mod2, method = !!m))
expect_false(compare_stages(mod1, mod2, method = !!m))
expect_false(compare_stages(mod2, mod1, method = !!m))
}
})
test_that("hamming_stages", {
expect_true(hamming_stages(mod1, mod2) >= 0)
})
test_that("inclusion_stages works properly", {
comparison <- inclusions_stages(mod1, mod2)
for (i in 2:(NCOL(DD) - 1)) {
expect_true(NROW(comparison[[i]]) > NROW(comparison[[i - 1]]))
}
})
test_that("inclusion_stages works symmetrically", {
comparison1 <- inclusions_stages(mod1, mod2)
comparison2 <- inclusions_stages(mod2, mod1)
for (i in 1:(NCOL(DD) - 1)) {
expect_true(NROW(comparison1[[i]]) == NROW(comparison2[[i]]))
}
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.