#' # summary.rgcca_cv
#'''
set.seed(0)
data(Russett)
blocks <- list(
agriculture = Russett[, seq(3)],
industry = Russett[, 4:5],
politic = Russett[, 6:8]
)
blocks_classif <- list(
agriculture = Russett[, seq(3)],
industry = Russett[, 4:5],
politic = as.factor(Russett[, 9])
)
test_that("summary.rgcca_cv prints the expected text", {
skip_if_not(as.logical(Sys.getenv("TEST_SNAPSHOTS")))
local_edition(3)
expect_snapshot({
res <- rgcca_cv(blocks,
response = 3, method = "rgcca", par_type = "tau",
par_value = c(0, 0.2, 0.3), n_run = 1, n_cores = 1,
par_length = 2, verbose = FALSE
)
summary(res, type = "quantile")
})
})
test_that("summary.rgcca_cv prints the expected text 2", {
skip_if_not(as.logical(Sys.getenv("TEST_SNAPSHOTS")))
local_edition(3)
expect_snapshot({
res <- rgcca_cv(blocks_classif,
response = 3, method = "rgcca", par_type = "tau",
par_value = c(0, 0.2, 0.3), n_run = 1, n_cores = 1,
par_length = 2, verbose = FALSE, prediction_model = "lda"
)
summary(res, type = "sd")
})
})
test_that("summary.rgcca_cv prints the expected text 3", {
skip_if_not(as.logical(Sys.getenv("TEST_SNAPSHOTS")))
local_edition(3)
expect_snapshot({
res <- rgcca_cv(blocks,
validation = "loo", metric = "MAE",
response = 3, method = "sgcca", par_type = "sparsity",
n_run = 1, n_cores = 1, par_length = 2, verbose = FALSE
)
summary(res, type = "sd")
})
})
test_that("summary.rgcca_cv prints the expected text 4", {
skip_if_not(as.logical(Sys.getenv("TEST_SNAPSHOTS")))
local_edition(3)
expect_snapshot({
res <- rgcca_cv(blocks_classif,
response = 3, method = "sgcca", par_type = "sparsity",
n_run = 1, n_cores = 1, par_length = 2, verbose = FALSE,
prediction_model = "lda", metric = "Kappa"
)
summary(res, type = "sd")
})
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.