#' # test plot.rgcca_permutation
#-------------------------
set.seed(0)
data(Russett)
A <- list(
agriculture = Russett[, seq(3)],
industry = Russett[, 4:5],
politic = Russett[, 6:11]
)
perm.out <- rgcca_permutation(A,
par_type = "tau", n_perms = 5,
n_cores = 1, verbose = FALSE
)
A2 <- c(A, A)
names(A2) <- NULL
perm.out2 <- rgcca_permutation(A2,
par_type = "sparsity", n_perms = 2,
n_cores = 1, par_length = 4, verbose = FALSE
)
test_that("plot.rgcca_permutation produces the expected crit plot", {
skip_if_not(as.logical(Sys.getenv("TEST_SNAPSHOTS")))
vdiffr::expect_doppelganger(
"Permutation crit", plot.rgcca_permutation(perm.out, type = "crit")
)
})
test_that("plot.rgcca_permutation produces the expected zstat plot", {
skip_if_not(as.logical(Sys.getenv("TEST_SNAPSHOTS")))
vdiffr::expect_doppelganger(
"Permutation zstat", plot.rgcca_permutation(perm.out, type = "zstat")
)
})
test_that("plot.rgcca_permutation produces the expected zstat
plot with legend", {
skip_if_not(as.logical(Sys.getenv("TEST_SNAPSHOTS")))
vdiffr::expect_doppelganger(
"Permutation legend", plot.rgcca_permutation(
perm.out,
type = "zstat", show_legend = TRUE
)
)
})
test_that("plot.rgcca_permutation produces the expected crit
plot with many blocks", {
skip_if_not(as.logical(Sys.getenv("TEST_SNAPSHOTS")))
vdiffr::expect_doppelganger(
"Permutation many blocks", plot.rgcca_permutation(perm.out2, type = "crit")
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.