tests/testthat/test-InputChecking.R

In JRC-COMBINE/PhysioSpaceMethods: Creates and uses physio spaces as a dimension reduction mapping

context("Test inptChecking")

SimulatedGeneExpressionData <-
    matrix(
        rnorm(n = 10000, mean = 0, sd = 100),
        ncol = 10,
        dimnames = list(1:1000, 1:10)
    )
SimulatedGeneExpressionData[sample(x = 1:length(SimulatedGeneExpressionData),
                    size = length(SimulatedGeneExpressionData) / 20)] <- NA
.inptChecker(InputData = SimulatedGeneExpressionData[, 1:5],
            Space = SimulatedGeneExpressionData[sample(1:1000), 6:10])


test_that("'.inptChecker' returns a 'InputData' to check",{
    expect_is(InputData,"matrix")
    expect_length(InputData, (ncol(SimulatedGeneExpressionData))/2*
                                    nrow(SimulatedGeneExpressionData))
})

test_that("'.inptChecker' also returns a 'Space' to check",{
    expect_is(Space,"matrix")
    expect_length(Space, (ncol(SimulatedGeneExpressionData))/2*
                                nrow(SimulatedGeneExpressionData))
    expect_equal(dim(InputData),dim(Space))
})