tests/testthat/test_embed.R

test_that("standard method is PCA", {

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

})

Try the dimRed package in your browser

Any scripts or data that you put into this service are public.

dimRed documentation built on July 11, 2022, 5:06 p.m.