tests/testthat/test_drr.R

In dimRed: A Framework for Dimensionality Reduction

test_that("drr forward and backward passes", {
    spiral <- loadDataSet("Helix", n = 200)

    drr_spiral <- embed(spiral, "DRR", ndim = 3, .mute = c("message", "output"))

    expect_equal(3, getNDim(drr_spiral))
    dsa <- drr_spiral@apply(spiral)
    dsi <- drr_spiral@inverse(dsa)

    expect_equal(dsi, spiral)
})