#' # print.rgcca_permutation
#'''
set.seed(0)
data(Russett)
blocks <- list(
agriculture = Russett[, seq(3)],
industry = Russett[, 4:5],
politic = Russett[, 6:11]
)
res <- rgcca_permutation(blocks,
par_type = "tau", par_length = 2,
n_perms = 5, n_cores = 1, verbose = FALSE
)
test_that("print.rgcca_permutation prints the expected text", {
skip_if_not(as.logical(Sys.getenv("TEST_SNAPSHOTS")))
local_edition(3)
expect_snapshot(print(res))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.