tests/testthat/test-spla.R

In Ronho/prinvars: Principal Variables

obj <- spla(
    USArrests,
    method = "spca",
    para = c(0.5, 0.5, 0.5, 0.5),
    cor = TRUE)

test_that("spla blocks", {
    blocks <- list()
    blocks[[1]] <- new(
        "Block",
        features=c("UrbanPop"),
        explained_variance=0.25,
        ev_influenced = c(1))
    blocks[[2]] <- new(
        "Block",
        features=c("Murder", "Assault", "Rape"),
        explained_variance=0.6849,
        ev_influenced = c(2, 3, 4))

    expect_equal(obj$blocks, blocks, tolerance=1e-2)
})

test_that("spla EC", {
    EC <- matrix(c(0, 0.92, 0, 0), nrow = 1, ncol = 4)
    dim(EC) <- NULL
    names(EC) <- c("[,2]", "[,1]", "[,3]", "[,4]")

    expect_equal(obj$EC, EC, tolerance=1e-2)
})

test_that("spla threshold", {
    threshold <- 0

    expect_equal(obj$threshold, threshold, tolerance=1e-2)
})

test_that("spla threshold_mode", {
    threshold_mode <- "cutoff"

    expect_equal(obj$threshold_mode, threshold_mode, tolerance=1e-2)
})