tests/testthat/test_plot.rgcca_permutation.r

In RGCCA: Regularized and Sparse Generalized Canonical Correlation Analysis for Multiblock Data

#' # 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")
  )
})