tests/testthat/test_embed.R

test_that("standard method is PCA", {

  res <- embed(iris[1:4])
  expect_equal(res@method, "PCA")

})
gdkrmr/dimRed documentation built on March 23, 2023, 5:44 a.m.